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SUMMARY 


High  performance  combat  aircraft  have  extended  the  maneuvering/operating 
range  into  regimes  that  exceed  the  capabilities  of  current  ejection  seat 
systems.  One  of  the  problems  encountered  involves  the  unstable  rotational 
characteristics  of  the  typical  ejection  seat,  resulting  in  a  decreased 
probability  of  survival  due  to  the  reorientation  of  the  ejecting  crew¬ 
member  into  an  attitude  less  tolerant  to  acceleration.  Furthermore,  an 
unstable  ejection  seat  may  neither  clear  the  airframe,  nor  provide 
adequate  ground  clearance.  The  capability  to  simulate  the  trajectory  of  an 
escape  system,  and  to  determine  its  stability  characteristics  using  class¬ 
ical  stability  and  control  methods,  is  required  to  enhance  the  development 
of  both  active  and  passive  stability  augmentation  systems. 

The  Simulation  and  Analysis  of  In-Flight  Escape  System  Techniques  (SAFEST) 
computer  program,  developed  by  the  AFFDL  for  the  analysis  of  occupied 
ejection  seat  stability  characteristics,  is  a  six-degree-of -freedom  simu¬ 
lation  of  an  ejection  system.  SAFEST  uses  a  fourth  order  Runge-Kutta 
integrator  with  a  fixed  time  step  to  calculate  the  trajectories  for  the 
seat/man,  man  alone,  airplane,  drag  parachute,  and  the  recovery  parachute. 
However,  SAFEST  docs  not  have  the  capability  to  perform  classical  stabil¬ 
ity  analyses. 

The  EASY  program,  originally  developed  by  Boeing  under  Air  Force  Contract, 
is  a  general  purpose  program  for  the  linear  and  nonlinear  analysis  of 
system  dynamics  using  classical  techniques.  It  has  been  used  to  model  a 
variety  of  systems,  including  environmental  control  systems,  aircraft 
flight  controls  and  dynamics,  space  vehicle  dynamics,  electrical  power 
generation,  rapid  transit  vehicles  and  air  cushion  landing  systems. 

The  objective  of  this  development  effort  was  to  develop  an  ejection  seat 
classical  stability  analysis  capability  by  incorporating  SAFEST  simulation 
subroutines  into  the  EASY  standard  component  library.  The  resultant  com¬ 
puter  program  described  in  this  user  manual /document  is  the  EASY  And  SAFEST 
Integration  for  the  Evaluation  of  Stability  and  Trajectory  (EASIEST). 


Although  EASY  was  originally  developed  under  contract  to  the  Air  Force, 
additional  Boeing  funded  research  and  development  effort  was  undertaken  to 
improve  the  program  and  increase  its  capability.  The  resultant  improved 
version,  EASY5,  formed  the  basis  for  development  of  EASIEST.  Because  these 
added  capabilities  were  developed  using  Boeing  funds,  they  remain  propri¬ 
etary  to  The  Boeing  Company.  Therefore,  the  program  documentation/user 
manual  is  contained  in  two  volumes.  Volume  I  is  a  "stand  alone"  user 
manual  describing  the  EASIEST  program  and  complete  information  on  the  use 
of  the  program  and  how  to  apply  it  to  ejection  seat  dynamics  and  control 
analysis.  Volume  II  is  Boeing  proprietary  and  contains  only  the  EASY5 
source  code. 
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SECTION  I 
INTRODUCTION 


The  objective  of  the  research  work  described  in  this  document  was  to 
develop  a  stability  analysis  capability  for  ejection  seat  performance. 
This  was  accomplished  by  modifying  ejection  seat  simulation  subroutines 
from  an  Air  Force  Flight  Dynamics  Laboratory  (AFFDL)  computer  program, 
Simulation  and  Analysis  of  In-Flight  Escape  System  Techniques  (SAFEST), 
into  a  component  library  compatible  with  the  EASY  computer  program.  The 
resultant  computer  program  described  in  this  document  has  been  termed  the 
EASY  and  SAFEST  Integration  for  the  Evaluation  of  Stability  and  Trajectory 
(EASIEST). 

Technology  improvements  in  advanced  combat  aircraft  have  expanded  the 
operational  maneuvering  envelope  beyond  the  capability  of  current  ejection 
seats.  The  aerodynamic  instability  of  ejection  seats  during  entrance  into 
the  air  stream  has  led  to  tumbling,  spinning,  parachute  shroud  fouling,  and 
a  variety  of  system  failures.  The  resultant  loads  may  exceed  the  tolerance 
limits  of  the  human  body.  Experience  from  combat  aircraft  involving  fatal¬ 
ities  and  severe  injuries  points  to  the  need  for  the  development  of  stable 
ejection  seats  whose  performance  is  designed  to  be  within  human  tolerance 
limits. 

The  AFFDL  has  an  active  technology  program  to  enhance  the  stability  of  an 
ejection  seat.  One  aspect  of  the  current  technology  has  been  the  develop¬ 
ment  of  SAFEST,  an  escape  system  computer  program  for  performance  analysis 
of  ejection  seat  dynamics.  However,  an  ejection  seat  stability  study 
utilizing  the  SAFEST  program  demands  numerous  simulation  runs.  The 
results  obtained  then  require  followup  analytical  data  reduction  to  iden¬ 
tify  the  system  stability  characteristics. 

The  EASY  program  was  originally  developed  under  an  Air  Force  contract  to 
provide  methods  for  modeling  and  analyzing  aircraft  environmental  control 
systems.  In  1976,  a  second  Air  Force  contract  extended  the  application  of 
the  program  to  include  aircraft  flight  dynamics.  Since  October  1976,  a 
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Boeing- funded  research  and  development  effort  has  been  undertaken  to  mod¬ 
ify  the  program  for  use  on  a  wide  variety  of  control  system  analyses. 
Additional  effort  during  the  last  half  of  1 977  and  1978  resulted  in  the 
development  of  the  EASY5  program.  The  program  now  includes  component 
models  for  many  types  of  vehicles  and  control  components,  matrix  and  vector 
notation  at  all  program  levels,  capability  to  model  and  analyze  continuous 
and  discrete  systems,  larger  modeling  capacity,  and  the  ability  to  store 
time  history  data  on  magnetic  tape,  to  name  a  few. 

EASY5,  with  its  additional  capability,  was  used  as  the  basis  for  the 
development  of  EASIEST.  Because  the  advanced  features  of  EASY5  were  devel¬ 
oped  by  Boeing-funded  research,  they  remain  proprietary  to  the  Boeing 
Company.  Therefore,  the  program  has  been  documented  in  two  separate 
volumes.  Volume  I  is  a  complete  "stand  alone"  user  manual.  Volume  II  is 
Boeing  proprietary  and  contains  only  the  listings  of  the  EASY5  source  code. 

In  the  context  of  this  docunent,  EASY  refers  to  the  basic  dynamics  analysis 
program  (Model  Generation  Program  and  Analysis  Program)  as  developed  under 
Air  Force  Contract  F33615 -76-C-3100  and  modified  under  contract  F33615- 
76-C-3165.  EASY5  refers  to  the  latest  version  of  the  EASY  program  which  is 
Boeing  proprietary.  EASIEST  refers  to  the  standard  components  and  algo¬ 
rithms  developed  specifically  for  ejection  seat  system  analysis. 

The  EASY5  program  is  a  user  oriented  computer  program  designed  to  provide  a 
simplified  way  to  describe  and  analyze  linear  and  nonlinear  dynamic 
systems.  This  simplified  system  description  is  then  used  for  a  wide 
variety  of  system  analyses  including  conventional  linear  analysis  and  non¬ 
linear  simulation.  The  EASY5  computer  program  consists  of  a  Model  Genera¬ 
tion  Program  and  an  Analysis  Program.  Both  continuous  and  sampled  data 
systems  may  be  described  and  analyzed.  The  modeling  of  most  of  the  systems 
is  accomplished  by  describing  the  system  in  terms  of  standard  components 
which  are  subroutines  that  model  specific  hardware  items,  like  rate  gyros, 
or  perform  certain  functions  such  as  wind  gust  generation.  The  models  of 
these  standard  components  have  been  constructed  in  a  general  fashion  so 
that  by  proper  choice  of  input  parameters  and  tables,  a  wide  range  of 
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specific,  required  system  components  can  be  modeled  by  each  standard  com¬ 
ponent.  If  a  portion  of  a  particular  system  to  be  studied  cannot  be 
described  by  using  one  of  the  standard  components,  FORTRAN  statements  can 
be  directly  included  in  the  model  description  to  implement  those  portions 
of  the  system.  Using  a  simplified  description  of  the  system  model,  the 
EASY5  Model  Generation  Program  generates  the  required  FORTRAN  subroutines 
which  accurately  represent  the  model  in  program  form.  This  computer  gener¬ 
ated  model  can  then  be  analyzed  by  any  of  the  nonlinear,  linear,  dynamic, 
or  steady  state  evaluation  techniques  available  in  the  EASY5  Analysis 
Program.  The  capabilities  include  the  following: 

o  Algebraic  sensitivity 

o  Eigenvalue  and  Eigenvalue  sensitivity*  determination 

o  Frequency  response  (Bode,  Nyquist,  and  Nichols  plots) 
o  Linear  model  generation 

o  Nonlinear  simulation  (time  histories) 

o  Optimal  control  synthesis* 

o  Root  locus* 

o  Stabil  ity  margins* 

o  Stabil ity  matrix  calculation 

o  Steady  state  analysis 

♦These  analyses  are  not  available  for  discrete  systems. 

Volume  I  of  this  document  provides  information  on  the  use  of  the  EASIEST 
program  and  how  to  apply  it  to  ejection  seat  dynamics  and  control  analysis. 
Section  II  of  Volume  I  presents  the  details  of  how  to  use  the  Model 
Generation  Program  to  construct  a  model.  Section  III  presents  the  details 
of  how  to  conduct  a  system  analysis  with  the  Analysis  Program.  It  dis¬ 
cusses  how  to  input  the  model  data,  set  initial  conditions,  designate  plots 
and  to  select  the  different  analysis  options.  Section  IV  describes  the 
EASIEST  components  which  are  used  to  form  the  ejection  seat  dynamic  models. 
Section  V  contains  the  procedure  for  program  execution.  Section  VI  pre¬ 
sents  an  ejection  seat  analysis  example.  Section  VII  describes  the  proce¬ 
dure  for  the  modification  of  a  standard  component.  Section  VIII  contains  a 
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discussion  of  the  numerical  integration  options  available.  Section  IX 
presents  a  discussion  of  the  methods  used  for  discrete  system  analysis. 

Lists  of  Model  Generation  and  Analysis  Program  commands  for  easy  reference 
are  available  in  Appendices  A  and  B. 

Appendix  C  presents  a  program  checklist  to  help  ensure  that  the  program  is 
being  properly  utilized. 

Appendix  D  contains  input  and  output  tables  for  all  the  EASIEST  standard 
components.  Descriptive  figures  are  also  presented  for  the  more  complex 
standard  components. 

Appendix  E  contains  the  listing  of  program  AEROMED,  a  postprocessor  which 
calculates  the  aeromedical  variables. 

Appendix  F  contains  a  listing  of  the  EASIEST  procedure  file. 

Appendix  G  presents  listings  of  the  EASIEST  standard  components,  and 
Appendix  H  contains  associated  subroutine  listings. 

Appendix  I  has  the  FILOAD  input  data.  FILOAD  is  a  program  which  creates  a 
random  access  file  from  input  data  that  defines  the  variable  names  on  the 
calling  sequence  for  each  standard  component. 

Appendix  J  contains  the  EASIEST  F-4E  maneuvering  coefficients  for  the 
airplane  component. 

Appendix  K  contains  input  and  output  tables  for  the  EASY5  standard  compo¬ 
nents  developed  under  previous  contracts. 

Appendices  L  and  M  present  descriptions  of  analysis  calculations  and  opti¬ 
mal  controller  design,  reproduced  from  Sections  4.4  and  4.5  of  reference  1. 

Appendix  N  presents  a  supplementary  ejection  seat  analysis  example. 
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SECTION  II 
MODEL  GENERATION 


The  EASY5  Model  Generation  Program  uses  a  block  diagram  type  of  approach 
for  constructing  the  different  system  models.  It  is  based  upon  the  assump¬ 
tion  that  the  system  analyst  will  construct  a  detailed  schematic  block 
diagram  of  the  system  to  be  analyzed.  This  detailed  schematic  will  then  be 
changed  to  a  form  containing  standard  components  FORTRAN.  The  parts  of  a 
system  which  cannot  be  modeled  using  these  standard  components  are 
included  by  appropriate  FORTRAN  statements  in  the  system  description. 

All  interconnections  between  the  different  standard  components  and  the 
aforementioned  FORTRAN  statements  are  accomplished  by  the  Model  Generation 
Program.  The  analyst  draws  the  block  diagram  by  specifying  the  location  of 
each  standard  component  or  FORTRAN  block  in  the  schematic  diagram  and  all 
of  the  components  that  provide  inputs  to  that  component.  The  Model  Genera¬ 
tion  Program  then  generates  name  labels  and  the  proper  interconnections 
between  the  specified  components.  This  is  accomplished  by  matching  the 
input  quantities  required  by  each  component  to  the  output  quantities  of  the 
components  specified  as  providing  inputs. 

After  processing  the  complete  system  model  description,  the  Model  Genera¬ 
tion  Program  generates  the  schematic  diagram  of  the  model  showing  all  of 
the  interconnections  between  the  components  in  a  mannner  similar  to  the 
analyst's  original  diagram.  It  shows  the  quantities  such  as  forces, 
moments,  velocities,  etc.,  that  are  used  to  form  each  interconnection. 
This  schematic  is  produced  on  the  lineprinter  and  provides  a  rapid  graphic 
check  on  the  program's  interpretation  of  the  model  description. 

In  addition,  the  program  produces  a  complete  list  of  the  input  data  that 
will  be  required  by  each  component  to  complete  the  model  description.  The 
scalar  and  vector  parameters  and  tabular  data  required  for  the  analysis  are 
included  in  this  list.  The  program  assumes  that  any  quantity  not  supplied 
by  another  component  will  be  supplied  as  a  fixed  parameter  by  the  analyst. 
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Thus,  requests  for  nonparameter  items  in  the  input  data  list  reveal  any 
connections  that  have  been  omitted  from  the  system  model  description. 


1.  NAMING  CONVENTION 

Every  variable  or  state  must  have  a  unique  name.  FORTRAN  limits  these 
to  seven  characters.  For  standard  components,  the  name  is  associated  with 
the  standard  component  name. 

a.  Standard  Component  Naming  Conventions 

All  standard  components  are  given  names  consisting  of  two  char¬ 
acters,  the  first  of  which  is  alphabetical .  Thus  we  have  LA  for  lag,  CT 
for  catapult,  SL  for  sled,  etc.  A  specific  component  in  a  model  is 
distinguished  from  other  components  of  the  same  type  by  adding  one  or  two 
more  characters  to  the  standard  component  name.  These  characters  are 
usually  numeric  but  can  also  be  alphabetical  or  blanks.  For  example,  a 
model  using  ten  of  the  same  type  may  have  these  components  designated  as: 

LA  1,  LA  2,  LA  3,  . LA10 

If  matrix  component  notation  is  used,  a  single  component  may  be  defined  as: 

LA  1,  N=I0 

This  results  in  a  single  component  LA  1  with  a  10  vector  assigned  to  those 
inputs  and  outputs  with  variable  array  length  capability. 

b.  State,  Variable,  Parameter,  and  Table  Naming  Conventions 

A  consistent  approach  has  been  taken  to  the  naming  of  inputs  and 
outputs  for  standard  components.  This  convention  is  denoted  by  Figure  1. 
As  described  in  the  figure,  the  standard  component  name  is  shown  as  the 
fourth  and  fifth  character  of  the  total  element  name.  The  last  two  char¬ 
acters  are  used  to  distinguish  between  several  of  the  same  component.  The 
first  three  characters  are  used  to  designate  the  inputs  and  outputs  of  the 
components.  The  specific  names  of  the  input  and  output  quantities  for  the 
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INPUT/OUTPUT  OR  TABLE  MANES 


PHYSICAL  QUANTITY  STANOARD  SPECfFIC 
OR  TABLE  NAME  COMP.  NAME  COMP.  IDENTIFIER 


(IF  REQ'O) 


7  CHARACTER  NAME 


Figure  1.  Character  Assignment  in  Input/Output  or  Table  Name 


EASIEST  components  are  listed  on  Appendix  D.  If  a  variable  is  a  vector, 
subscripts  must  be  added  to  the  name  when  referring  to  a  particular  element 
in  the  array.  An  example  of  this  would  be  S2  LA09  (2). 

All  of  the  input,  output,  and  tabular  quantities  required  by  each  component 
in  a  system  model  must  have  unique  FORTRAN  names.  For  standard  components, 
these  quantities  are  given  names  consisting  of  up  to  three  characters  that 
describe  the  physical  quantity  they  represent.  Since  a  single  component 
may  have  several  inputs  or  outputs  of  the  same  physical  type,  the  program 
adds  a  "port"  number  as  the  second  or  third  character  of  the  physical 
quantity  name  to  prevent  such  a  duplication. 

The  physical  quantities  that  are  outputs  of  a  standard  component  are  spe¬ 
cifically  identified  by  adding  the  four  character  name  of  that  component  to 
the  three  character  name  of  the  physical  quantity.  In  this  way,  unique 
seven  character  FORTRAN  names  are  generated  for  all  output  quantities  of 
the  system  model  components.  As  an  example,  the  output  for  standard 
component  LA23  would  be  52  LA23. 

Input  quantities  to  a  component  that  are  generated  by  another  component 
carry  the  names  of  the  component  that  generates  them.  Any  inputs  that  are 
not  satisfied  by  other  model  components  are  assumed  to  be  parameters  and 
are  assigned  the  name  of  the  component  where  they  are  an  input. 

If  a  component  requires  tabular  data  as  an  input,  unique  table  names  are 
generated  just  as  scalar  input  quantity  names  by  adding  the  component  name 
to  the  table  name.  As  an  example,  the  input  table  for  standard  component 
SR11  would  be  TRFSR11. 

All  parameter,  variable,  and  state  quantities  are  set  as  real  quantities 
even  if  their  name  starts  with  the  FORTRAN  integer  letters  I,  J,  K,  L, 
M,  N.  Names  added  to  the  model  via  the  ADD  commands  can  consist  of  any 
valid  FORTRAN  name  of  up  to  seven  characters.  These  names  must  not  dupli¬ 
cate  any  name  generated  by  the  precompiler  or  other  ADD  statement. 
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2.  MODEL  DESCRIPTION 


The  Model  Generation  Program  is  a  sophisticated  precompiler  which 
accepts  model  description  instructions,  and  uses  them  to  generate  a 
FORTRAN  model  of  the  system.  An  EASY5  system  model  description  contains 
numeric  values,  standard  component  names,  and  standard  input  and  output 
quantity  names.  The  instructions,  referred  to  as  "program  commands,"  are 
made  up  of  one  or  more  functionally  descriptive  words. 

The  EASY5  commands  may  be  best  understood  by  using  an  example  to  describe  a 
simple  ejection  seat  model.  The  EASY5  system  model  description  for  it  is 
given  in  Table  1. 

As  is  seen  in  Table  1,  the  model  description  consists  of  a  series  of 
statements.  Each  statement  specifies  the  location  of  each  component  in  the 
schematic  diagram  and  a  list  of  all  of  the  components  that  provide  inputs 
to  that  component.  The  purpose  of  the  location  of  the  component  in  the 
schematic  is  to  allow  the  Model  Generation  Program  to  use  the  line  printer 
to  draw  a  schematic  of  the  model,  such  as  shown  in  Figure  2.  On  the  line 
printer  drawn  schematic,  the  input  quantities  to  each  component  are  shown. 
This  can  then  be  used  to  check  functional  flow  for  the  diagram. 

a.  Phrases  and  Delimiters 

The  system  model  description  is  interpreted  by  the  Model  Genera¬ 
tion  Program  from  the  command  phrases  following  the  program  commands.  The 
phrases  must  be  separated  by  any  one  of  the  delimiter  symbols  shown  in 
Table  2. 

Comments  can  be  inserted  in  the  model  description  or  analysis  data  by 
placing  a  in  column  1.  These  data  cards  will  be  ignored  by  the  Model 
Generation  or  analysis  programs. 
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MODEL  CONTAINING  AG , SL , RL . CT , SE , HS , AND  CE  COMPONENTS  PAGE 


TABLE  2 


EASY5  Command  Phrase  Delimiters 

=  equal  sign 
,  comma 

(  left  parenthesis 
}  right  parenthesis 
three  or  more  blanks 


b.  Command  Phrases 

The  EASY5  command  phrases  are  described  in  this  section.  They 
are  presented  in  a  sequence  similar  to  that  in  which  they  would  be  used  in 
system  model  descriptions.  For  easy  reference,  they  are  listed  at  the  end 
of  this  section  in  alphabetical  order  and  in  Appendix  A. 

MODEL  DESCRIPTION 

The  MODEL  DESCRIPTION  program  command  is  used  to  indicate  the  start  of  a 
new  system  model.  This  command  may  be  followed,  on  the  same  line,  by  a 
title  of  up  to  60  characters.  This  title  will  be  used  throughout  the 
printout  to  identify  various  program  output  schematics  and  program  list¬ 
ings.  In  the  example  shown  in  Table  1,  the  title  is  "MODEL  CONTAINING  AG, 
SL,  RL,  CT,  SE,  RS,  AND  CE  COMPONENTS'*. 

LOCATION 


The  LOCATION  program  command  indicates  the  start  of  a  new  component  in  the 
system  model.  This  command  must  be  followed  by  a  numeric  value  phrase  that 
specifies  the  location  of  the  component  on  the  model  schematic.  Thus,  in 
the  example  of  Table  1,  the  location  number  of  the  component  AG  is  029  and 
component  SE  is  055,  etc.  To  be  a  valid  component  location,  the  last  two 
digits  of  this  number  must  be  a  number  between  1  and  80.  The  unit  column  of 
this  number  refers  to  a  column  on  the  schematic,  while  the  tens  column 
refers  to  a  row.  The  hundreds  column  is  used  to  specify  additional  pages. 
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if  needed,  for  the  schematic.  Thus  the  numbers  which  would  be  valid 
location  numbers  for  components  on  the  first  page,  PAGE  0,  of  a  system 
schematic  are: 

001,  013,  051,  080 

These  same  locations  on  the  second  page  of  the  schematic,  PAGE  1,  would  be: 
101,  113,  151,  180 

The  location  number  phrase  is  followed  by  the  name  of  the  component  at  that 
location.  A  LOCATION  command  must  be  given  only  once  for  each  component. 
This  means  that  once  a  LOCATION  statement  is  started  for  a  component,  the 
complete  description  of  that  component  must  be  given. 

Certain  components  have  variable  length  vectors  associated  with  them.  The 
number  of  elements  in  these  vectors  can  be  specified  by  providing  a  compon¬ 
ent  dimension  statement,  N=  or  M=.  Examples  of  this  are: 


L0CATI0N=002 

LG  1 

N=3 

INPUT$=... 

LOCATION =524 

SM 

N=12 

INPUTS3. . . 

L0CATI0N=913 

IM 

N=3,M=4 

INPUTS3... 

The  N  or  H  command  must  be  the  next  command  following  the  component  name  in 
the  location  statement.  The  phrase  following  the  N  or  M  command  must  be  a 
number  which  specifies  the  dimensions  of  the  arrays  used  by  the  component. 
The  N  or  M  commands  can  be  applied  to  only  those  standard  components  which 
are  designated  to  be  capable  of  vector  or  matrix  use  as  shown  in  the 
standard  components  lists  contained  in  Appendix  K.  (None  of  the  EASIEST 
components  described  in  Appendix  D  require  this  command.) 

Two  characters  immediately  following  the  component  name  are  used  to  desig¬ 
nate  multiple  occurences  of  the  same  type  of  component  within  the  model 
description.  Thus  the  following  are  all  valid  component  identifiers: 
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LG  1  LG15  LGIN  LG 2 


This  implies  four  occurences  of  the  component  LG. 

Component  arrays  can  also  be  identified  in  the  same  fashion. 

LG1,N=3  LG15,N=4  LG2,N=5  LG,N=3 

The  above  example  identifies  different  distinctive  lag  filters  with  dimen¬ 
sions  of  3,  4,  5,  and  3  respectively.  In  each  of  the  above  examples,  the 
Model  Generation  Program  will  use  the  blank  space  as  a  character  in  identi¬ 
fying  the  components.  Thus  LG  1  and  LG1  are  different  components. 

If  a  portion  of  a  system  cannot  be  conveniently  modeled  using  standard 
components,  a  block  of  FORTRAN  statements  may  be  used.  The  location  of  the 
FORTRAN  block  in  the  system  schematic  diagram  is  specified  by  using  the 
component  name  FORT.  The  use  of  this  technique  is  described  in  the  FORTRAN 
STATEMENTS  section. 

INPUTS 


The  INPUTS  command  indicates  that  the  comma  separated  phrases  following 
this  command  contain  the  names  of  the  components  that  provide  the  necessary 
inputs  to  the  component  at  that  location. 

In  order  to  better  understand  the  ways  to  connect  component  inputs  and 
outputs,  a  description  of  these  characteristics  is  needed.  Figure  3  shows 
the  three  typical  types  of  components  and  their  connections.  The  first 
example  in  this  figure  shows  an  input/output  configuration  that  has  one 
input  and  one  output,  both  designated  by  the  letter  S.  Part  1  specifies 
the  input,  while  part  2  the  output.  This  type  of  component  usually  per¬ 
forms  a  mathematical  operation.  A  second  type  of  input/output  configura¬ 
tion  is  also  used  for  components  that  model  specific  physical  items.  For 
these  components,  the  labels  represent  quantities  that  have  a  definitive 
meaning.  Component  TD  in  Figure  3  is  an  example  of  this.  The  input 
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quantity,  T,  is  a  vector  which  represents  the  torque  applied  to  the 
vehicle.  The  output  quantities  are  the  vectors  WD,  angular  acceleration, 
W,  angular  rate  and  EA,  Euler  angle.  A  third  type  of  component  has 
multiple  inputs  and/or  outputs  designated  by  S  with  a  port  associated  with 
it.  Component  SW  in  Figure  3  is  an  example  of  this  type.  Extra  care  must 
be  used  defining  the  inputs  and  output  connections  to  this  device  to  assure 
proper  signal  hookup. 

Between  the  components,  three  different  levels  of  connection  specification 
can  be  used  in  a  model  description: 

1.  Default  (only  component  names  are  specified) 

Connections  are  made  between  all  unconnected  inputs  and  outputs  to 
the  first  ports  where  a  match  of  physical  quantity  names  occurs.  (Non¬ 
port  inputs  and  outputs  are  also  connected  if  a  name  match  occurs.) 
For  example: 

LOCATION  =  045  SE  INPUTS  =  RL 

2 .  Ports  Specified 

Connections  are  made  between  matching  physical  quantities  for  aV[ 
unconnected  inputs  and  outputs  of  the  specified  ports.  (Non-port 
inputs  and  outputs  are  also  connected  if  a  name  match  occurs.)  For 
example: 

LOCATION  =  045  SE  INPUTS  =  RL  (1=1) 

3.  Physical  Quantities  Specified 

Connections  are  made  between  only  those  quantities  specified.  Pre¬ 
vious  connections  cannot  be  over-ridden.  For  example: 

LOCATION  =  045  RS  INPUTS  =  SE  (SRP=XPB) 

For  many  components,  the  input  and  output  are  single  quantities  and  their 

connections  can  be  made  through  the  program  default  option  without  speci¬ 
fying  the  variable  names.  Thus,  in  the  following  example,  component  LG  1 
at  location  002  receives  inputs  from  component  MC  1: 
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L0CATI0N=002  LG  1  N=3  INPUTS=MC  1 


In  this  example,  the  command  phrase  INPUTS  is  followed  by  a  component  name 
MC  1.  The  output  name  of  MC  and  the  input  to  the  LG  component  have  the  same 
name,  i.e.,  "S" .  Under  this  condition,  no  instruction  other  than  speci¬ 
fying  the  input  component  is  required. 

For  some  components,  there  are  multiple  input  and/or  output  "ports",  which 
require  the  use  of  port  numbers  (SI,  S2,  S3,  S4  etc.).  The  designation  of 
these  port  numbers  are  defined  in  the  standard  components  input/output 
lists.  For  multiple  input  ports,  the  port  number  must  be  specified  as  part 
of  the  INPUTS  statement  as  shown  in  the  following  example: 

L0CATI0N=110  MC  1  INPUTS=IT  1(S=S,1),  TF  1(S=S,3) 

It  must  be  noted  that  the  output  quantity  comes  first,  followed  by  the 
INPUT  quantity  name  and  port  designation. 

Port  numbers  refer  to  different  physical  connection  points  on  a  standard 
component.  Once  a  connection  is  made  between  a  port,  such  as  port  2,  of 
one  component  to  another  port,  such  as  port  1,  of  a  second  component, 
inputs  and  outputs  for  ports  other  than  1  and  2  will  not  be  connected  even 
though  they  may  have  matching  physical  quantity  names. 

Some  standard  components  can  be  used  with  variable  dimensions.  This  fea¬ 
ture  allows  the  array  length  of  a  standard  component  with  this  capability 
to  be  specified.  Thus,  in  the  following  example,  the  multiply  and  add 
component  MC  1  and  integrator  components  IT  1  and  IT  2  are  each  defined  to 
have  three  vectors  as  their  inputs  and  outputs.  The  INPUTS  function 
connects  the  three  integrator  outputs  (IT  1)  to  the  port  1  inputs  and  the 
integrator  outputs  (IT  2)  to  the  port  3  inputs  as  shown  in  the  following 
example: 

LOCATION =052  MC  1  N=3  INPUTS=IT  1 (S=S,1) . IT  2(S=S,3) 
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LOCATION =032  IT  1  N=3  INPUTS=MC  1(S=S) 

L0CATI0N=072  IT  2  N=3  INPUTS=MC  1(S=S) 

If  the  input  ports  are  not  specified,  the  program  default  option  will  make 
the  port  selection  in  the  order  that  they  appear  in  the  standard  components 
list  description.  Thus,  the  following  coding  example  would  have  accom¬ 
plished  the  same  objective. 


LOCATION =052 

MC  1 

N=3 

INPUTS=IT 

1,  IT  2 

LOCATION =032 

IT  1 

N=3 

INPUTS=MC 

1 

LOCATION =072 

IT  2 

N=3 

INPUTS=MC 

1 

For  certain  components,  such  as  control  elements,  the  inputs  to  the  compo¬ 
nent  can  be  any  physical  quantity  in  the  model.  For  these  components,  the 
input  component  names  must  be  supplemented  by  the  name  of  the  particular 
output  quantity  that  is  to  provide  the  input.  As  an  example,  consider  a 
component  that  represents  a  linear  first  order  lag  transfer  function.  If 
the  transfer  function  component's  output,  S,  is  to  be  the  input  toque,  T, 
of  the  seat  equations  of  motion,  then  the  following  statement  would  indi¬ 
cate  to  the  program  that,  of  the  outputs  of  LG  1,  S  was  to  be  used  as  the 
input,  T,  to  the  Seat  Equations  of  Motion,  SE  1: 

LOCATION =005  SE  1  INPUTS=LG  1(S=T) 

Input/output  quantities  may  be  either  scalar,  vector,  or  two  dimensional 
arrays.  Connections  between  array  quantities  are  checked  for  compatible 
dimensions  by  the  EASY5  Model  Generation  Program  precompiler.  An  element 
of  an  output  array  can  be  used  to  drive  a  scalar  input.  Such  a  connection 
can  be  specified  as: 

LOCATION =043  LA  INPUTS=MM(A(2,3)=S) 


18 


Here  A  is  a  two  dimensional  array  output  by  a  component  MM.  Element  2,  3  of 
this  array  will  drive  input  S  of  component  LA.  Numeric  values  following  an 
output  quantity  array  name  are  assumed  to  be  element  designations  if 
enclosed  in  parenthesis.  If  any  other  delimiter  is  used,  they  are  assumed 
to  be  port  designations. 

Inputs  to  standard  components  from  FORTRAN  blocks  are  provided  by  using  the 
name  FORT  for  the  component  name  in  the  input  expression,  i.e.: 

LOCATION =024  LA  INPUTS=F0RT(C0MP2(2) =S) 


The  FORTRAN  component  subscripted  output  quantity  C0MP2(2)  will  be  con¬ 
nected  to  the  input,  $,  of  the  standard  component,  LA.  A  discussion  of 
using  FORTRAN  components  is  provided  in  the  FORTRAN  section.  If  a  standard 
component  is  driven  by  both  standard  components  and  FORTRAN  blocks,  the 
standard  component  inputs  must  be  specified  before  the  FORT  inputs. 

Inputs  to  FORTRAN  blocks  may  be  either  the  outputs  of  standard  components 
or  the  outputs  of  other  FORTRAN  blocks.  Since  the  FORTRAN  blocks  do  not 
have  predefined  input  quantity  names,  the  format  used  for  specifying  their 
inputs  is  different  than  that  used  for  standard  components.  The  complete 
name  of  the  output  quantities  providing  the  inputs  are  required.  The 
output  names  must  contain  enough  information  to  uniquely  define  the  source 
of  the  input.  Thus,  the  complete  output  name  of  any  standard  component 
output  must  be  given,  i.e.: 

LOCATION =63  FORT  INPUTS=S2  LA,  PITCH,  ROLL 


Here  the  quantity  S2  LA  is  the  output  of  the  standard  component  LA.  PITCH 
and  ROLL  are  the  outputs  of  some  other  FORTRAN  block.  The  above  INPUTS 
statement  refers  to  the  output  of  the  scalar  LA  component  as  S2  LA,  not  S,2 
LA.  The  output  quantity  names  must  always  be  defined  this  way  for  use  in 
FORTRAN  component  inputs  since  the  EASY  precompiler  would  interpret  S,  2  LA 
as  two  separate  input  names. 
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FORTRAN  STATEMENTS 


The  FORTRAN  STATEMENTS  program  command  allows  the  system  analyst  to  sup¬ 
plement  the  standard  EASV5  components  with  FORTRAN  statements.  Using  this 
feature,  the  analyst  can  introduce  his  own  program  logic,  DO  loops,  etc., 
as  necessary  to  model  any  system  not  conveniently  described  with  standard 
EASY5  components.  Using  this  feature  of  the  program,  the  analyst  must 
perform  many  of  the  detailed  connections  and  naming  of  variables  that  are 
normally  accomplished  by  the  EASY5  program.  In  return  for  these  added 
tasks,  the  analyst  gains  a  great  deal  of  freedom  and  flexibility  in  forming 
details  of  his  system  model.  To  add  a  block  of  FORTRAN  statements  to  the 
model,  have  it  drawn  on  the  schematic  and  included  in  implicit  equation 
checking,  the  following  convention  must  be  used: 

o  A  LOCATION  statement  with  the  component  name  FORT  is  placed 
before  the  FORTRAN  STATEMENTS  command.  Input  variables  are 
specified  by  giving  their  names  following  the  INPUTS  command  as 
described  previously.  These  names  may  be  either  standard  compo¬ 
nent  output  names  or  the  outputs  of  other  FORTRAN  components, 
but  must  conform  to  the  convention  defined  above, 
o  Outputs  are  specified  by  placing  the  ADD  VARIABLES  command  fol¬ 
lowing  the  INPUTS  command.  These  quantities,  either  scalar  or 
matrix  or  a  combination,  will  be  added  to  the  model  and  assigned 
as  outputs  from  the  specific  FORTRAN  component.  These  output 
names  may  have  up  to  seven  characters, 
o  Parameter  values,  either  scalar  or  matrix,  are  specified  by  the 
ADD  PARAMETERS  or  ADD  TABLES  commands.  These  commands  are  added 
after  the  ADO  VARIABLES  command.  These  quantities  will  be  added 
to  the  model  and  their  values  will  be  set  in  the  Analysis  Pro¬ 
gram.  Parameter  and  table  names  may  also  have  up  to  seven 
characters. 


Thus  the  form  for  each  FORTRAN  component  is: 

/ 


LOCATION =063  FORT  INPUTS=S2  LA, ALPHA 


ADD  VARIABLES=8ETA,GAMMA(3,3) 

ADD  PARAMETERS=C0EFFS(3,2),GAIN 

ADD  TABLES=AER0TAB(250) ,3,AIRDATA(500) ,1 

FORTRAN  STATEMENTS 

The  lines  before  the  FORTRAN  STATEMENTS  command  (except  ADD  PARAMETERS  and 
ADD  TABLES)  are  required  to  specify  the  schematic  location  and  the  inputs 
and  outputs  to  the  block.  If  all  of  these  are  omitted,  the  FORTRAN 
statements  will  not  appear  in  the  schematic  and  will  not  be  included  in  the 
implicit  equation  checking,  which  is  described  later  under  END  OF  MODEL. 
Only  those  quantities  designated  by  ADD  VARIABLES  can  be  visibly  connected 
to  other  standard  components  or  FORTRAN  blocks.  The  ADD  commands  are 
discussed  next  and  details  of  the  model  schematic  drawing  appear  in  Sec¬ 
tion  II. 3.  The  ADD  commands  are  used  instead  of  dimension  statements  for 
the  terms  too  be  used  in  the  FORTRAN  statements.  The  FORTRAN  statements 
can  then  include  any  FORTRAN  IV  required  to  describe  the  item  being  mod¬ 
eled.  To  simplify  a  number  of  these  statements,  a  matrix  arithmetic 
language  has  been  developed  which  can  be  used  within  the  FORTRAN  statements 
to  simplify  the  model  description.  A  complete  description  of  the  matrix 
macro  language  is  contained  in  Section  IV. 

ADD  VARIABLES 

ADD  PARAMETERS 

ADD  TABLES 


The  ADD  commands  are  used  in  conjunction  with  the  FORTRAN  STATEMENTS  com¬ 
mand  to  add  variables,  parameters,  and  tables  that  occur  within  the  user 
supplied  FORTRAN  statements,  to  the  EASY5  generated  system  model. 


Quantities  that  are  not  specified  by  one  of  these  commands  cannot  be 
accessed  or  manipulated  by  the  EASY5  Analysis  Program.  See  the  examples  in 
the  FORTRAN  section  above  for  the  proper  order  and  use  of  the  LOCATION, 
INPUTS,  ADD,  and  FORTRAN  STATEMENTS  commands.  Before  discussing  these 
commands,  a  few  definitions  of  the  terms  are  in  order. 

Variables:  Variables  are  all  dynamic  time  varying  scalar  or  matrix  quan¬ 

tities  in  the  system  model  that  are  not  states.  In  general, 
variables  are  related  to  states  by  fixed  algebraic  relation¬ 
ships. 

Parameters:  Parameters  are  constant  scalar  or  matrix  quantities  in  the 
system  model.  Parameters  can  be  manipulated  by  the  analyst 
to  alter  the  system  model.  Default  values  are  provided  for 
certain  parameters.  The  parameter  values  are  set  during  the 
analysis  option  of  the  program. 

Tables:  Tables  are  constant  nonscalar  quantities  in  the  system  model. 

Tables  are  used  to  represent  algebraic  functional  relation¬ 
ships  with  one,  two  or  three  independent  variables.  All 
table  values  are  input  as  part  of  the  analysis  option  of  the 
program. 

The  format  for  the  ADD  commands  is  that  the  command  is  followed  by  one  or 
more  phrases  that  contain  the  names  of  the  variables,  parameters,  or 
tables.  These  names  must  be  unique.  All  parameter,  and  variable  quanti 
ties  are  typed  as  Real  quantities  even  if  their  name  starts  with  the 

FORTRAN  integer  letters  I,  J,  K,  L,  M,  or  N.  Names  added  to  the  model  via 

the  ADD  commands  can  consist  of  any  valid  FORTRAN  name  of  up  to  seven 
characters.  These  names  must  not  duplicate  any  name  generated  by  the 

precompiler  or  another  add  statement.  Variables  or  parameters  may  be 

scalar,  vector,  or  two  dimension  arrays.  The  integrator  components,  IT  or 
IN,  should  be  used  to  define  the  state  variables  for  the  new  component 
applications  if  additional  states  are  required.  The  integrator  components 
are  straight  forward  in  their  use  for  adding  new  differential  equations  to 
be  solved. 
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Matrix  parameters  are  added  to  the  model  by  placing  dimension  information, 
enclosed  in  parenthesis,  after  the  parameter  name,  e.g., 

ADD  PARAMETER S=ARRAY (3,6)  C0EF(6)  .  .  . 

Note:  The  (  and  )  delimiters  must  be  used  to  enclose  dimension  informa¬ 
tion.  Dimensions  must  be  between  1  and  99. 

Matrix  outputs  are  created  by  placing  dimension  information,  enclosed  in 
parenthesis,  after  the  quantity  names,  e.g., 

ADD  VAR  I ABLES=VAR (3,2) 

In  addition  to  each  table  name,  two  numbers  which  specify  the  amount  of 
storage  to  be  allocated  for  the  table  and  the  number  of  independent  vari¬ 
ables  must  follow  the  table  name.  Thus  to  add  three  tables  to  a  model,  the 
instruction  would  be: 

ADD  TABLES=AEROTAB( 120)2,  TARGET(260)3,  N0ISE(500)1 

This  would  add  the  two  dimensional  table  AEROTAB  with  120  words  of  storage; 
the  three  dimensional  table  TARGET  with  260  words  of  storage;  and  the  one 
dimensional  table  NOISE  with  500  words  of  storage.  The  amount  of  storage 
is  given  by  the  formula: 

where  N=I+J+K+D 

N=  the  total  storage  required  by  the  table,  in  words. 

1=  the  number  of  data  points  in  the  first  independent  variable 
table. 

J=  the  number  of  data  points  in  the  second  independent  vari¬ 
able  table.  (J=0  if  there  is  only  one  independent  vari¬ 
able.  ) 

K=  the  number  of  data  points  in  the  third  independent  variable 
table  (K=0  if  there  are  only  one  or  two  independent  vari¬ 
ables.) 
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0=  the  number  of  data  points  in  the  dependent  variable  table. 
D=I  if  there  is  only  one  independent  variable. 

D=I*J  if  there  are  two  independent  variables. 

D=I*J*K  if  there  are  three  independent  variables. 

TABLE  DIMENSIONS 


The  TABLE  DIMENSIONS  command  can  be  used  to  specify  Standard  Component 
table  dimensions.  This  is  used  when  the  default  value  for  a  Standard 
Component's  table;  as  specified  in  the  input/output  lists,  is  too  large  or 
too  small.  This  may  be  used  as  shown  in  the  following  example. 

LOCATIONS  FV  INPUTS=LA1,  LA2 
TABLE  DIMENSI0NS=FTAFV=500 

The  TABLE  DIMENSIONS  command  in  this  example  would  increase  the  data  stor¬ 
age  for  table  FTA  of  the  component  FV  from  the  default  value  of  171  to  500 
words. 


O.C.  INPUTS 

O.C.  OUTPUTS 


The  O.C.  INPUTS,  O.C.  OUTPUTS,  and  other  commands  starting  with  the  letters 
"O.C."  are  used  to  include  an  optimal  controller  in  the  system  model.  A 
complete  description  of  the  calculation  methods  and  theoretical  basis  for 
the  optimal  controller  are  presented  in  Appendix  N.  An  optimal  controller 
is  a  general  purpose  control  component  which  can  have  an  arbitrary  number 
of  inputs  and  outputs.  It  is,  therefore,  necessary  for  the  system  analyst 
to  specify  the  identity  of  each  optimal  controller  input  and  output.  This 
is  done  using  the  O.C.  INPUTS  and  O.C.  OUTPUTS  commands  rather  than  the 
INPUTS  command  that  is  used  for  the  other  components.  Optimal  controller 
inputs  are  output  quantities,  either  variables  or  states,  from  components 
which  are  used  to  sense  the  response  of  the  system  being  controlled. 
Optimal  controller  outputs  are  input  quantities,  either  variables  or 
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parameters,  to  components  that  serve  as  the  actuators  to  the  system  being 
controlled. 

O.C.  CRITERIA 


The  O.C.  CRITERIA  command  is  used  to  specify  those  output  quantities  from 
the  components  that  are  to  be  used  as  the  criteria  for  designing  the 
optimal  controller.  These  quantities  are  specified  in  the  same  format  as 
O.C.  INPUTS.  If  no  O.C.  CRITERIA  are  specified,  the  O.C.  INPUTS  are  used 
as  the  design  criteria.  A  complete  discussion  of  the  use  of  O.C.  CRITERIA 
is  given  in  Appendix  M. 

O.C.  ORDER 


The  O.C.  ORDER  command  can  be  used  to  specify  the  order  of  the  optimal 
controller.  If  the  optimal  controller  order  is  not  specified,  it  will  be 
taken  as  the  order  of  the  system  model.  This  will  result  in  a  total  system 
order,  (optimal  controller  plus  system  model),  that  is  twice  the  order  of 
the  system  model.  In  most  cases,  such  a  high  order  optimal  controller  is 
unnecessarily  complex  and  impractical.  The  O.C.  ORDER  is  limited  to  values 
between  zero  and  the  system  model  order. 

O.C.  MODEL  ORDER 


The  O.C.  MODEL  ORDER  command  can  be  used  to  specify  that  a  model  order 
lower  than  that  of  the  given  system  model,  be  used  for  the  optimal  con¬ 
troller  design.  This  command  is  used  when  optimal  controllers  are  to  be 
designed  for  high  order  systems.  By  using  a  lower  order  model,  the  com¬ 
puter  memory  requirements  and  computation  time  can  be  greatly  reduced.  A 
complete  discussion  of  the  use  of  reduced  model  orders  is  given  in  Section 
4.4  of  reference  1.  This  section  is  reproduced  in  Appendix  N. 

— -  O.C.  ANALYSIS 


The  O.C.  ANALYSIS  command  is  used  to  specify  that  computer  memory  require¬ 
ments  provided  in  the  system  need  only  be  large  enough  for  the  analysis  of 
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an  optimal  controller.  The  memory  required  to  analyze  a  system  with  an 
optimal  controller  is  considerably  less  than  that  required  to  do  an  optimal 
controller  design.  Thus,  if  the  purpose  of  a  run  is  to  analyze  the 
performance  of  an  optimal  controller  which  was  designed  on  a  previous  run, 
the  O.C.  ANALYSIS  command  can  be  used  to  reduce  computing  costs  and  flow 
time. 

END  OF  MODEL 

The  END  OF  MODEL  command  phrase  indicates  that  model  description  has  been 
completed  and  that  the  Model  Generation  Program  should  proceed  with  the 
generation  of  the  model  subroutines.  As  part  of  the  subroutine  generation,  > 
the  model  components  are  checked  for  implicit  relationships.  An  implicit 
relationship  occurs  when  a  variable  is  used  as  an  input  to  a  component 
before  it  has  been  calculated.  This  can  occur  if  a  variable  is  used  as  an 
input  to  a  component  that  preceeds  the  component  that  generates  the  vari¬ 
able.  Implicit  relations  such  as  this  can  often  be  resolved  by  reordering 
the  sequence  of  the  components  in  the  model.  If  such  reordering  occurs,  a 
warning  message  is  printed  identifying  the  components  affected.  It  is 
possible  to  create  models  in  which  the  implicit  relationships  cannot  be 
resolved  by  such  a  reordering.  In  this  case,  a  warning  message  will  be 
printed  stating  that  analysis  results  will  be  invalid.  The  implicit  rela¬ 
tionship  must  then  be  resolved  by  changing  this  model.  Changes  such  as 
placing  an  additional  state  in  the  implicit  loop  or  solving  the  implicit 
relationship  algebraically  can  be  used. 

PRINT 

The  PRINT  command  phrase  causes  the  program  to:  (1)  draw  a  schematic  of 
the  system  model,  as  shown  in  Figure  2,  (2)  print  a  list  of  input  require¬ 
ments  for  the  model;  and  (3)  print  a  source  listing  of  the  FORTRAN  subrou¬ 
tines  that  were  generated  for  the  model.  The  Model  Generation  Program  then 
terminates. 


LIST  STANDARD  COMPONENTS 

The  LIST  STANDARD  COMPONENTS  command  phrase  causes  the  program  to  print  a 
list  of  all  standard  components.  For  each  standard  component,  lists  of 
inputs,  outputs,  and  tables  for  that  component  are  provided.  For  each 
input,  the  physical  quantity  name  and  port  number  is  given.  For  each 
output,  the  physical  quantity  name,  port  number,  and  the  word  STATE  is 
given,  if  the  quantity  is  a  state.  For  each  table,  the  table  name,  the 
number  of  independent  variables  and  the  default  value  for  data  storage  is 
provided.  This  command  is  usually  given  as  the  first  command  of  a  model 
description  and  will  result  in  a  list  of  all  standard  component  information 
as  the  first  output  from  the  Model  Generation  Program. 

PRINT  STATEMENTS 

The  simulation  operation  of  the  EASY5  Analysis  Program  has  several  print 
output  options.  Most  of  these,  as  described  in  Section  III,  consist  of 
fixed  formats  such  as:  all  states,  all  variables,  or  a  user  furnished  list 
of  variables.  An  additional  option  is  to  execute  a  set  of  user  furnished 
print  statements.  These  print  statements  are  specified  as  part  of  the 
model  description  via  the  PRINT  STATEMENTS  command.  The  PRINT  STATEMENTS 
command  must  be  followed  by  valid  FORTRAN  statements.  These  statements 
will  be  executed  only  when  the  Analysis  program  PRINT  CONTROL  =  8  is 
specified  along  with  the  desired  print  output  periods.  In  general,  only 
FORTRAN  PRINT,  WRITE,  and  FORMAT  statements  would  be  included  as  PRINT 
STATEMENTS.  However,  other  valid  FORTRAN  statements  can  be  included  if 
additional  calculations  or  control  logic  is  desired.  Any  state,  rate, 
variable,  or  parameter  in  the  model  is  available  for  use  in  the  PRINT 
STATEMENTS.  The  PRINT  STATEMENTS  command  can  appear  only  once  in  a  model , 
anywhere  between  the  MOOEL  DESCRIPTION  and  END  OF  MODEL  commands.  An 
example  of  the  PRINT  STATEMENT  command  is  given  below: 

PRINT  STATEMENTS 

WRITE  (6,111)  AMISS,  XLOC,  YLOC,  TIME 


111  FORMAT  (MISS  DISTANCE  =  *,  G12.5,  *  AT  XX  =  *,  G12.5, 
1  *  AND  Y  =  *,  G12.5,  3X,  *  TIME  =  \  G12.5) 


DEBUG 


The  DEBUG  command  may  be  used  to  place  print  statements  between  each 
Standard  Component  in  the  model.  These  print  statements  will  be  executed 
only  when  the  PRINT  command  is  given  to  the  Analysis  Program.  The  printout 
that  occurs  will  be  that  specified  by  the  PRINT  CONTROL  command.  This 
command  is  very  helpful  in  locating  the  cause  of  arithmetic  errors  in  a 
model.  This  command  should  be  placed  before  the  END  OF  MODEL  command.  It 
should  be  removed  from  the  model  description  once  the  model  is  free  of 
arithmetic  errors. 

ALPHABETICAL  LIST  OF  COMMANDS 

ADD  PARAMETERS 
ADD  TABLES 
ADD  VARIABLES 
DEBUG 

END  OF  MODEL 
FORTRAN  STATEMENTS 
INPUTS 

LIST  STANDARD  COMPONENTS 
LOCATION 

MODEL  DESCRIPTION 

O.C.  ANALYSIS 
O.C.  CRITERIA 
O.C.  INPUTS 
O.C.  MODEL  ORDER 
O.C.  ORDER 
O.C.  OUTPUTS 


PRINT 

PRINT  STATEMENTS 
TABLE  DIMENSION 


3.  MODEL  SCHEMATIC 
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The  Model  Generation  Program  produces  a  schematic  diagram  of  the 
system  being  modeled.  This  schematic  is  generated  on  the  line  printer  with 
the  computer  printout.  Its  purpose  is  to  provide  a  means  of  rapidly 
locating  errors  in  the  model  description. 

In  order  to  construct  a  schematic  diagram  in  an  efficient  manner  with  a 
reasonable  size  program,  it  was  necessary  to  establish  some  simple  rules 
for  symbol  generation,  component  connection  paths,  and  labeling.  If  these 
rules  are  kept  in  mind  when  laying  out  a  schematic  for  the  system,  the 
EASY5  produced  schematic  will  match  that  developed  by  the  analyst.  If  the 
rules  are  violated  by  the  analyst's  schematic,  the  EASY5  schematic  will 
still  be  correct  but  may  contain  some  unusual  component  connection  paths, 
and  some  labeling  information  may  be  overwritten. 

a.  Standard  Schematic  Form 

The  EASY5  schematic  diagrams  are  produced  on  a  standard  11"  by 
14"  lineprinter  page  with  80  component  locations  per  page.  A  standard  form 
containing  only  the  location  numbers  can  be  obtained  by  executing  the  EASY5 
Model  Generation  Program  with  the  single  program  command,  PRINT.  This  form 
can  then  be  reproduced  and  the  copies  used  as  forms  for  drawing  system 
model  schematics. 

b.  Input  Quantity  Labeling 

The  names  of  the  physical  quantities  that  are  input  to  one 
component  from  another  component  are  listed  adjacent  to  the  downstream 
component  symbol.  The  physical  quantity  name,  i.e.,  first  three  charac¬ 
ters  of  the  quantity  being  driven,  is  also  given.  These  labels  are  placed 
near  the  connecting  line  that  joins  the  two  components.  Since  these  names 
are  composed  of  the  physical  quantity  name  and  the  name  of  the  component 
that  generates  the  information,  the  source  of  the  input  is  evident  from  the 
name  itself.  Parameter  and  tabular  inputs  to  a  component  are  not  shown  on 
the  schematic. 


c.  Component  Connection  Paths 

In  order  to  simplify  the  EASY5  schematic  drawing  subroutine, 
it  was  necessary  to  limit  the  types  of  connecting  paths  between  components 
to  a  few  basic  routes.  These  paths  are  shown  in  Figure  4.  Connections 
between  components  on  the  same  horizontal  or  vertical  line  are  straight¬ 
forward.  However,  connections  between  components  that  do  not  share  a 
horizontal  or  vertical  line  require  at  least  a  two  segment  path.  These 
paths  have  been  arbitrarily  chosen  to  follow  a  clockwise  route.  It  is, 
therefore,  advisable  that  components  that  are  on  diagonal  locations  be 
placed  in  a  clockwise  sequence.  If  counterclockwise  flow  between  compo¬ 
nents  is  necessary,  it  can  be  accommodated  by  placing  the  components  on  the 
same  horizontal  or  vertical  lines.  The  EASY5  schematic  drawing  subroutine 
does  not  go  around  components  that  are  on  a  connection  path.  Such  compo¬ 
nents  are  "run-over"  by  the  connecting  line. 

d.  Additional  Pages 

The  EASY5  schematic  diagram  may  be  broken  down  into  as  many 
pages  as  are  necessary.  No  attempt  is  made  to  draw  connecting  paths 
between  components  located  on  different  pages.  It  is,  therefore,  advis¬ 
able  to  minimize  the  number  of  connecting  paths  between  pages.  This  can 
usually  be  done  by  grouping  components  with  many  interconnections  on  the 
same  page  and  placing  page  boundaries  between  such  groups  of  components. 

e.  Guidelines  For  Schematic  Layout 

The  following  guidelines  will  help  in  creating  schematic  lay¬ 
outs  that  can  be  easily  produced  by  the  Model  Generation  Program. 

o  Try  to  place  connected  components  on  the  same  horizontal  or  vertical 
line. 

o  Avoid  placing  components  on  adjacent  location  points, 
o  Place  diagonal  components  so  that  flow  is  clockwise, 

o  Group  components  to  minimize  flow  paths  between  pages. 
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4.  WARNING  MESSAGES 


One  or  more  of  the  following  warning  messages  will  occur  if  the 
program  is  unable  to  interpret  a  portion  of  the  model  description  or 
encounters  problems  in  assembling  the  system  model.  These  messages  will  be 
preceded  by:  ***WARNING***  or  ***NOTICE***.  The  symbols  xxx  and  zzz  are 
used  to  indicate  phrases  from  the  model  description  that  are  included  as 
part  of  the  warning  message.  The  following  messages  are  listed  in  alpha¬ 
betical  order: 

1.  ADD  COMMAND  MUST  FOLLOW  A  "LOCATIONS  FORT"  COMMAND 

The  ADD  VARIABLES  command  must  follow  a  FORTRAN  component  location  com¬ 
mand. 

2.  CAN'T  IDENTIFY  SOURCE  OF  xxx  INPUT  TO  LOCATION  U 

Cannot  locate  the  source  of  xxx  which  is  an  input  to  component  at  loca¬ 
tion  U. 

3.  CAN'T  IDENTIFY  xxx  AS  A  STANDARD  COMPONENT. 

xxx  will  contain  the  first  two  characters  of  the  phrase  which  cannot  be 
identified  as  a  command  or  standard  component.  This  message  will  often 
follow  other  warning  messages  as  the  program  makes  successive  attempts  to 
interpret  the  given  phrase. 

4.  CAN'T  IDENTIFY  xxx  AS  A  VALID  INPUT  TO  zzz 

The  input  quantity  xxx  for  component  zzz  cannot  be  identified. 

5.  CAN'T  IDENTIFY  xxx  AS  A  VALID  OUTPUT  FROM  zzz 

The  quantity  xxx  cannot  be  identified  as  an  output  from  zzz. 
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6.  CAN'T  LOCATE  FORTRAN  COMPONENT  xxx 
Cannot  locate  FORTRAN  component  xxx  statements. 

7.  CAN'T  LOCATE  O.C.  INPUT,  xxx,  WILL  RENAME  AS:  zzz 

Check  spelling  of  name  xxx  or  that  the  quantity  xxx  has  been  renamed  as  a 

result  of  being  driven  by  another  component. 

8.  CAN'T  LOCATE  O.C.  OUTPUT,  xxx 

Check  spelling  of  name  xxx. 

9.  COMPONENT  xxx  DEFINITION  WASN'T  COMPLETED  BEFORE  STARTING  THE  DEFINI¬ 
TION  OF  COMPONENT  zzz 

The  command  INPUTS  was  not  given  between  the  component  names  xxx  and  zzz. 
Check  for  proper  spelling  of  INPUTS  and  a  valid  delimiter  after  the  phrase 
xxx. 

10.  COMPONENT  xxx  HAS  ALREADY  BEEN  DEFINED 

11.  CROSS  PRODUCT  IS  ONLY  DEFINED  FOR  3  VECTORS 

12.  DIMENSIONS  HAVE  NOT  BEEN  GIVEN  FOR  xxx 

Dimensions  of  input  matrices  must  be  defined  before  being  used  in  a  matrix 
expression. 

13.  DIMENSIONS  OF  xxx  AND  zzz  ARE  INCOMPATIBLE 

Dimensions  of  input  matrices  in  matrix  expressions  are  incompatible. 

14.  DIMENSIONS  OF  xxx  DO  NOT  MATCH  THOSE  OF  zzz 

Dimension  mismatch  occurred  during  interconnection  of  matrices. 


15.  LOCATION  NO.  xxx  FOR  COMPONENT  zzz  HAS  LAST  TWO  DIGITS  OUTSIDE  THE 
ALLOWABLE  RANGE  1  TO  80.  NO  SYMBOL  WILL  BE  PLACED  IN  SCHEMATIC  FOR 
THIS  COMPONENT 

This  message  will  occur  at  the  end  of  the  model  description  for  a  component 
zzz  which  has  an  invalid  location  number.  The  system  model  may  still  be 
valid,  but  the  schematic  will  not  contain  this  component. 

16.  MATRIX  xxx  IS  BEING  DRIVEN  BY  A  SCALAR  QUANTITY  zzz 
This  is  likely  to  produce  erroneous  results. 

17.  MODES  CANNOT  BE  SPECIFIED  FOR  COMPONENT  xxx 

The  dimensions  statements  N=,  M=  can  only  be  used  on  designated  components. 

18.  NO  OPTIMAL  CONTROL  INPUTS  WERE  SPECIFIED 

Check  that  "O.C.  INPUTS"  command  was  used  to  specify  optimal  inputs. 

19.  NO  OPTIMAL  CONTROL  OUTPUTS  WERE  SPECIFIED 

Check  that  "O.C.  OUTPUTS"  command  was  used  to  specify  optimal  controller 
outputs. 

20.  NO  xxx  OUTPUTS  MATCH  UNSATISFIED  zzz  INPUTS 

Check  that  it  was  intended  to  drive  component  zzz  with  component  xxx  or 
that  the  inputs  to  zzz  have  been  previously  satisfied  by  other  component 
connections. 

21.  O.C.  MODEL  ORDER  CANNOT  BE  SPECIFIED  GREATER  THAN  MODEL  ORDER 
O.C.  model  order  will  be  set  to  n. 


22.  O.C.  ORDER  CANNOT  BE  SPECIFIED  GREATER  THAN  MODEL  ORDER 
O.C.  order  will  be  set  to  n. 

23.  ONLY  63  INPUTS  +  OUTPUTS  ARE  ALLOWED 

Each  component  is  limited  to  63  inputs  +  outputs. 

24.  ONLY  100  VARIABLE  DIMENSION  COMPONENTS  ARE  ALLOWED 

Only  100  variable  dimension  components  are  allowed  in  a  given  model. 

25.  SCALAR  QUANTITY  xxx  IS  BEING  DRIVEN  BY  MATRIX  zzz 

The  first  element  of  matrix  will  be  used  to  drive  the  scalar. 

26.  SYNTAX  ERROR 

Syntax  error  occurred  in  matrix  expression. 

27.  TABLE  NAME  xxx  MUST  BE  FOLLOWED  BY  A  NUMERIC  DIMENSION  RATHER  THAN  zzz 

When  using  the  ADD  TABLES  command,  it  is  necessary  to  provide  Ihe  maximum 
amount  of  storage  to  be  allocated  for  the  table  as  well  as  the  table  name. 
This  storage  value  must  be  a  numeric  quantity. 

28.  THE  FOLLOWING  COMPONENTS  FORM  AN  IMPLICIT  LOOP.  MODEL  RESULTS  WILL  BE 

INVALID,  xxx,  zzz,  - 

Models  must  be  explicit.  Implicit  loops  can  often  be  corrected  by  insert¬ 
ing  a  component  with  a  state  variable  as  its  output,  e.g.,  a  simple  linear 
lag,  LA. 

29.  THE  NUMBER  OF  O.C.  INPUTS,  OUTPUTS,  OR  CRITERIA  VARIABLES  MUST  BE  63 
OR  LESS  XXX  WILL  NOT  BE  LOADED 


30.  THE  SEQUENCE  OF  THE  FOLLOWING  COMPONENTS  HAS  BEEN  ALTERED  TO  FORM  AN 

EXPLICIT  MODEL,  xxx,  zzz,  _ 

The  model  component  sequence  as  given  contained  an  implicit  relationship. 
By  altering  the  component  sequence,  it  was  possible  to  form  an  explicit 
model . 

31.  xxx  IS  NOT  A  VALID  DIMENSION 

The  phrase  xxx  should  be  numeric  to  be  a  dimension  phrase. 

32.  xxx  IS  NOT  A  VALID  INPUT  QUANTITY  OR  PORT  DESIGNATION  FOR  COMPONENT 
zzz 

The  phrase  xxx  cannot  be  located  as  one  of  the  input  quantities  or  input 
ports  of  the  component  zzz.  No  connections  will  occur.  Check  the  list  of 
standard  components  for  the  proper  spelling  or  port  designations  for  this 
component. 

33.  xxx  IS  NOT  A  VALID  LOCATION  NUMBER 

The  LOCATION  command  must  be  followed  by  a  numeric  location  number. 

34.  xxx  IS  NOT  A  VALID  PORT  DESIGNATION  FOR  INPUT  COMPONENT  zzz.  ERRO¬ 
NEOUS  CONNECTIONS  MAY  OCCUR. 

The  phrase  xxx  cannot  be  located  as  a  valid  input  port  for  the  component 
zzz.  Connections  will  be  attempted  using  the  upstream  output  port  that  was 
identified. 

35.  xxx  IS  NOT  A  VALID  SUBSCRIPT 

Subscripts  must  be  numeric.  The  use  of  parenthesis  as  delimiter  after 
array  name  implies  a  subscript  is  given. 
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36.  xxx  IS  NOT  A  VALID  SUBSCRIPT  FOR  FORTRAN  OUTPUT  zzz 


The  quantity  xxx  is  not  a  valid  subscript  for  FORTRAN  output  quantity  zzz. 

37.  xxx  IS  NOT  AVAILABLE  AS  INPUT 

Cannot  locate  xxx  as  FORTRAN  input  to  standard  component. 

38.  xxx  ISN'T  NUMERIC  O.C.  ORDER  MUST  BE  NUMERIC  QUANTITY. 

39.  xxx  MUST  BE  A  SQUARE  MATRIX 

Simultaneous  equation  solution  is  valid  only  for  square  coefficient 
matrix. 
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SECTION  III 

DYNAMIC  ANALYSIS  OF  CONTINUOUS  OR  DISCRETE  SYSTEMS 


The  EASY5  Analysis  Program  allows  several  different  dynamic,  static,  lin¬ 
ear,  or  nonlinear  analysis  techniques  to  be  used  on  the  dynamic  system 
model  generated  by  the  Model  Generation  Program.  In  addition  to  normal 
analysis  techniques,  optimal  linear  controllers  based  on  Kalman  optimal 
linear  regulator  and  Kalman  filter  theory  can  be  synthesized  by  the  pro¬ 
gram.  The  performance  of  such  optimal  controllers  when  operating  with  the 
nonlinear  system  can  be  analyzed  using  any  of  the  analysis  techniques. 

Both  continuous  systems,  i.e.,  those  described  by  ordinary  nonlinear  dif¬ 
ferential  equations,  and  discrete  systems,  i.e.,  those  described  by  dif¬ 
ferential  and  discrete  difference  equations,  can  be  modeled  and  analyzed 
by  the  EASY5  program.  The  analysis  techniques  automatically  switch  to 
discrete  methods*  if  one  of  the  discrete  components,  DE,  DF,  DL,  DT,  DZ,  or 
SH  is  included  in  the  system  model.  All  data  input,  output,  and  analysis 
commands  are  the  same  for  both  continuous  and  discrete  systems.  The  only 
restriction  for  discrete  systems  is  that  the  total  number  of  sampling 
periods  is  restricted  to  10.**  This  refers  to  the  sampling  period  parame¬ 
ters,  TAU,  for  each  discrete  component.  The  name  of  these  parameters  must 
always  start  with  the  letters  TAU,  and  no  other  parameter  may  start  with 
the  letters  TAU. 

A  description  of  the  control  of  the  program  and  of  the  analytical  methods 
is  given  in  Sections  III.l  through  III. 16.  An  alphabetical  listing  of  the 
analysis  program  commands  is  given  in  Appendix  B  of  this  document.  Check 
lists  for  each  analysis  are  given  in  Appendix  C.  For  a  description  of 
continuous  system  techniques  and  numerical  methods,  see  reference  1,  Sec¬ 
tion  4.  For  discrete  methods,  see  Section  IX. 


*The  Root  Locus,  stability  margin,  eigenvalue  sensitivity,  and  optimal 
controller  design  options  are  not  available  for  discrete  systems. 

**Sample  periods  must  be  integer  multiples  of  one  another. 
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1.  MODEL  INPUT  DATA 


A  dynamic  system  model  requires  that  the  values  of  numerous  model 
parameters,  tables  and  initial  conditions,  be  provided  to  complete  the 
model  description.  Sections  III.l,  III. 2,  and  III. 3  describe  the  methods 
used  to  specify  parameter  values,  tables,  and  matrices. 

a.  Scaler  Data 

PARAMETER  VALUES 

This  program  command  allows  the  numeric  values  of  parameters  to  be  loaded 
into  the  system  model.  The  PARAMETER  VALUES  command  is  followed  by  one  or 
more  parameter  names  followed  by  a  numeric  value  of  ten  characters  or  less. 
Each  name  and  its  value  are  separated  by  commas  or  another  one  of  the 
standard  delimiter  symbols.  This  command  is  used  to  specify  the  values  of 
all  system  model  parameters  at  the  beginning  of  an  analysis.  It  may  also 
be  used  at  any  point  between  analyses  to  modify  the  value  of  one  or  more 
model  parameters.  A  default  value  of  .99999  is  provided  for  all  parameters 
not  specified. 

PARAMETER  VALUES  =  MASS  =  10.,  AREA  =  50,  SW  AG  =  1, 

CCGSE- .48,0,- .75,  CW  SE=210,  STIPO10.57,. . .. 


b.  Tabular  Data 

TABLE 

If  tabular  data  is  required  by  the  system  model,  it  should  be  loaded  with 
the  other  parameter  values  before  any  of  the  analysis  commands  described  in 
Sections  III. 4  to  III. 13  are  issued.  Tables  may  be  modified  between 
analyses  by  loading  new  values.  The  tables  required  by  an  EASY5  generated 
model  are  specified  in  the  Model  Generation  Program  Input  Requirements 
List.  These  tables  may  have  either  one,  two,  or  three  independent 
variables.  All  data  items  are  in  a  free  field  format  with  each  item  having 


10  characters  or  less  separated  by  commas  or  other  standard  delimiter.  The 
data  items  required  for  each  table  are  placed  in  the  following  format: 

Line  1  TABLE  Table  name  NX  NY  NZ 

Line  2*  Z  table  values 

Line  3*  Y  table  values 

Line  4*  X  table  values 

Line  5*  D  table  values 

For  this  input,  the  following  definitions  apply: 

Table  Name  -  The  seven  character  table  name  generated  by  the  EASY 
Model  Generation  Program. 

NX  -  The  number  of  points  in  the  first  independent  variable 

table. 

NY**  -  The  number  of  points  in  the  second  independent  vari¬ 

able  table. 

NZ***  -  The  number  of  points  in  the  third  independent  variable 

table. 

Z  table***  -  Table  of  NZ  third  independent  variable  values. 

Y  table**  -  Table  of  NY  second  independent  variable  values. 

X  table  -  Table  of  NX  first  independent  table  values. 

D  table  -  Tables  of  dependent  variable  values. 


*As  many  lines  or  cards  as  required  may  be  used.  Each  table  must  start 
with  a  new  line  or  card  and  NZ,  NY,  NX,  and  NX*NY*NZ  points  must  be  given 
per  table. 

**These  items  are  omitted  for  tables  with  one  independent  variable. 

***These  items  are  omitted  for  tables  with  one  or  two  independent 
variables. 


A  copy  of  all  tabular  input  data  is  printed  as  it  is  interpreted  from  the 
data,  unless  the  OMIT  TABLE  PRINTOUT  comnand  has  been  given.  The  following 
example  shows  the  data  for  a  one  and  a  two  independent  variable  table. 


Line 

1 

TABLE, 

TAB- 

ONE, 

10 

Line 

2 

1,  2, 

3,  4, 

5, 

6,  7, 

8, 

9, 

10 

Line 

3 

11,  12 

,  13, 

14, 

15, 

16, 

17, 

,  18, 

Line 

4 

TABLE, 

TAB- 

TWO, 

5,  4 

Line 

5 

10.3, 

20.4, 

30. 

5,  40 

.6 

Line 

6 

1,  2, 

3,  4, 

5 

Line 

7 

11,  12 

,  13, 

14, 

15 

Line 

8 

21,  22 

,  23, 

24, 

25 

Line 

9 

31,  32 

,  33, 

34, 

35 

Line 

10 

41,  42 

,  43, 

44, 

45 

The  printout  of  these  tables  would  be: 

T 

TABLE  TAB-ONE 

FIRST  INDEPENDENT  VARIABLE  TABLE 

I. 000  2.000  3.000  4.000  5.000  6.000  7.000  8.000 

DEPENDENT  VARIABLE  TABLE 

II. 00  12.00  13.00  14.00  15.00  16.00  17.00  18.00 

TABLE  TAB-TWO 

SECOND  INDEPENDENT  VARIABLE  TABLE 
10.30  20.40  30.50  40.60 

FIRST  INDEPENDENT  VARIABLE  TABLE 
1.000  2.000  3.000  4.000 


.000  10.00 


.00  110.00 


5.000 
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DEPENDENT  VARIABLE  TABLE 


11.00 

12.00 

13.00 

14.00 

15.00 

21.00 

22.00 

23.00 

24.00 

25.00 

31.00 

32.00 

33.00 

34.00 

35.00 

41.00 

42.00 

43.00 

44.00 

45.00 

THREE  INDEPENDENT  VARIABLE  TABLE  EXAMPLE 

TABLE=FTAFW  322 
1,2 
3,4 
5,6,7 

111,112,113 
121,122,123 
211,212,213 
221,222,223 


Line  1 
Line  2 
Line  3 
Line  4 
Line  5 
Line  6 
Line  7 
Line  8 


The  printout  of  this  table  would  be: 

====  TABLE  FTAFW  ===== 

THIRD  INDEPENDENT  VARIABLE  TABLE 

1,000  2,000 

SECOND  INDEPENDENT  VARIABLE  TABLE 
3,000  4,000 

FIRST  INDEPENDENT  VARIABLE  TABLE 
5,000  6,000  7,000 

DEPENDENT  VARIABLE  TABLE 
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THIRD  INDEPENDENT  VARIABLE  =  1,000 


111.0  112.0  113.0 

121.0  122.0  123.0 

THIRD  INDEPENDENT  VARIABLE  =  2,000 

211.0  212.0  213.0 

221.0  222.0  223.0 


OMIT  TABLE  PRINTOUT 

The  OMIT  TABLE  PRINTOUT  command  may  be  used  to  suppress  the  printback  of 
table  data.  This  command  is  often  used  on  production  runs  or  models  with 
large  amounts  of  constant  tabular  data.  A  second  occurrence  of  tnis 
command  causes  table  printback  to  be  restored. 

c.  Matrix  Data 

Matrix  Parameters  can  be  one  or  two  dimensional  arrays.  The 
matrix  input  format  must  contain  the  matrix  name,  the  input  method,  and  the 
appropriate  matrix  elements.  If  the  input  method  is  not  specified,  a 
default  of  input  by  columns  is  assumed.  If  the  default  mode  is  used, 
however,  the  user  must  be  careful  to: 

o  Input  the  exact  number  of  elements  defined  by  the  dimensions  in 
the  Model  Generation  Program  since  the  maximum  dimensions  are 
not  checked  by  EASY5.  With  this  method,  the  user  must  accept 
this  responsibi lity. 

o  Not  exceed  ten  characters  per  matrix  element. 
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If  the  default  option  is  not  used,  parameter  arrays  can  be  loaded  by  any  of 
the  following  conventions  after  inserting  the  PARAMETER  VALUES  command: 

COLUMN  INPUT 

AOATA,  C  (1,  1)  1,  2,  3,  4,  5 
ADATA,  C  (1,  2)  6,  7,  8,  9,  10 


Starts  at  element  1,  1 
Starts  at  element  1,  2 


ROW  INPUT 

BOATA,  R  (2,  3)  7,  8,  9,  10 
BDATA,  R  (1,  2)  3,  6,  9,  10 


Starts  at  element  2,  3 
Starts  at  element  1,  2 


DIAGONAL  INPUT 

COEF ,  D  (2,  4)  .3,  .4,  .5 


Starts  at  element  2,  4 


ZERO  Array  -  then  load  by  row 
COEF,  Z,  R  (2,  2)  1,  2,  3 


Set  array  to  infinite,  "Infinite"  =  1036 
COEF,  I 


Input  by  Column  starting  at  element  1,  1  (default  option) 

VECTOR  =  1,  2,  3,  4,  5 

ELEMENT  Input 

AOATA  (1,  2)  =  12,  (3,  4)  =  16,  (2,  3)  =  21 
Note:  "("  must  be  used  as  delimiter  immediately  following  array  name. 
2.  INITIAL  CONDITION,  ERROR,  ANO  INTEGRATION  CONTROLS 


INITIAL  CONDITIONS 
ERROR  CONTROLS 


INT  CONTROLS 


These  program  commands  may  be  used  to  specify  integrator  initial  condition 
values,  error  controls,  or  status,  whether  active  (=  1)  or  frozen  (=  0). 
The  default  values  that  are  provided  are  0.0  for  initial  conditions,  0.001 
for  error  controls,  and  1  for  integration  controls.  These  are  furnished  by 
the  EASY5  Analysis  Program.  However,  it  is  strongly  recommended  that 
values  appropriate  to  the  particular  system  model  be  furnished  for  the 
initial  conditions  and  error  controls. 

Each  of  these  conmands  is  followed  by  phrases  of  the  form  of  a  state  name 

followed  by  a  numeric  value.  State  quantities  that  are  vectors  or  matrices 

may  be  input  by  the  same  conventions  as  for  parameters.  The  following 
shows  an  example  of  how  these  commands  are  used: 

INITIAL  CONDITIONS  =  VELOCITY  =  50.,  ANGLE  =  2.,  U  SD  =  512,  362,0. 
ERROR  CONTROLS  =  VELOCITY  =  .1,  ANGLE  =  .01,  U  SD(3)  =  .0001 

INT  CONTROLS  =  VELOCITY  =  0,  ANGLE  =  i,  STROKE  =  1 

ALL  STATES 
NO  STATES 

These  program  commands  may  be  used  to  activate  or  freeze  all  system  inte¬ 
grators.  These  conmands  are  normally  used  together  with  the  INT  CONTROLS 
command  to  specify  the  desired  integrator  configuration. 

INITIAL  TIME  =  t 

This  program  command  allows  the  initial  value  of  time  to  be  specified.  The 
default  value  of  initial  time  is  zero.  The  INITIAL  TIME  commana  is  used 
with  moaels  that  contain  time  dependent  features  where  it  may  be  desirable 
to  have  time  at  the  beginning  of  a  simulation  run  or  during  a  steady  state 
analysis  be  some  value  other  than  zero. 


PRINT 


This  command,  PRINT,  causes  the  states  to  be  set  to  the  initial  conditions, 
time  to  equal  INITIAL  TIME,  and  the  model  executed  and  printed  output 
requested  via  the  PRINT  CONTROL  command. 

3.  INITIAL  CONDITION  COMMANDS 

XIC-X 

XIC-XIC1 

XI C-XIC2 

XIC-XIC3 

XIC1-XIC 

XIC2-XIC 

XIC3-XIC 

These  program  commands  are  used  to  transfer  data  from  the  current  state 
vector,  X,  to  the  initial  condition  vector,  XIC,  and  between  the  XIC  vector 
and  three  auxiliary  initial  condition  vectors  XIC1,  XIC2,  XIC3.  The  fol¬ 
lowing  shows  how  these  commands  would  be  used: 

XIC1-XIC,  XIC-X,  X I C2=X I C 

The  three  program  commands  shown  above  would  take  the  current  operating 
point  (initial  condition  vector)  and  store  it  in  vector  XIC1;  then  transfer 
the  current  state,  X,  into  XIC;  and  then  store  that  value  of  XIC  in  XIC2. 

CALC  XIC 

This  command  allows  initial  conditions  to  be  calculated  from  manually 
input  parameters  or  initial  conditions.  This  command,  CALC  XIC,  causes  the 
state  to  be  set  to  the  values  input  manually  for  XIC;  an  integer  flag  in 
common  block  /CICCAL/  to  be  set  to  1,  and  the  model  to  be  executed. 
Initial  condition  calculations  can  be  placed  in  the  model  that  will  be 
executed  only  if  the  flag  equals  1.  Upon  exiting  from  the  model,  the 
initial  condition  array  XIC  is  set  equal  to  the  state  array  X  and  the  print 
routine  is  called.  The  initial  condition  flag  is  reset  to  0. 


4.  SIMULATION  COMMANDS 


SIMULATE 


This  program  command  initiates  simulation  operation.  Before  the  simulate 
conmand  is  used,  the  following  program  values  must  be  set: 


TINC 
TMAX 
INT  MODE 
OUTRATE 
PRATE 


=  time  increment,  seconds 
=  duration  of  the  simulation  run,  seconds 
=  integrator  mode  control 
=  output  rate 
=  print  rate 


PRINT  CONTROL  =  print  control  variable 


These  program  commands  specify  the  integration  time  increment,  duration  of 
simulation  run,  the  integration  type,  the  simulation  output  rate,  the 
printing  rate,  and  the  quantity  of  printing,  at  each  point  in  time.  These 
quantities  must  be  specified  before  the  first  use  of  the  SIMULATE  conmand. 

For  discrete  systems,  the  time  increment,  TINC,  should  be  an  integer  sub¬ 
multiple  of  the  sample  periods.  Thus,  if  sample  periods  were  .01  and  .04, 
TINC  should  be  selected  such  that:  n*TINC=.01,  where  n  is  an  integer.  The 
EASY5  Analysis  Program  will  check  TINC  and  adjust  it  if  necessary  to 
satisfy  this  requirement.  The  output  control  OUTRATE  will  also  be  adjusted 
to  maintain  approximately  the  same  data  output  rate. 

The  integration  mode  control,  INT  MODE,  allows  one  of  six  different  inte¬ 
gration  methods  to  be  selected  according  to  the  description  given  in 
Table  3.  The  default  value  of  INT  MODE  is  6.  A  description  of  tnese 
integration  methods  and  a  guide  to  their  use  is  given  in  Section  VIII. 


TABLE  3 

Integration  Method  Selection 
Method 

Variable  Step,  Variable  Order  Gear 
Variable  Step  4th  Order  Runga-Kutta 
Fixed  Step  Huen  Method,  2nd  Order 
Fixed  Step  Euler,  1st  Order 

Adams-Bashforth  predictor/Adams-Moulton  Corrector, 
Orders  2-12. 

Stiff  Gear 

The  time  increment,  TINC,  provides  the  integrator  time  step  size,  in  sec¬ 
onds,  for  the  fixed  step  integrators.  TINC  also  provides  the  report 
interval  for  which  data  will  be  available  for  printing  or  plotting.  The 
default  value  for  TINC  is  0.1. 

The  duration  of  a  simulation  calculation  is  specified  by  the  TMAX  parameter 
in  seconds.  The  default  value  of  TMAX  is  1. 

The  output  rate  parameter,  OUTRATE,  determines  the  rate  at  which  simula¬ 
tion  data  is  added  to  plots.  Thus,  if  OUTRATE  is  set  equal  to  10,  data  will 
be  plotted  every  10th  time  increment,  TINC.  This  feature  is  normally  used 
only  when  a  fixed  step  size  integrator  is  specified.  With  such  an  integra¬ 
tor,  the  time  increment  is  usually  quite  small,  and  excessive  plottea 
output  would  be  generated  if  it  were  not  for  this  sampling  feature  provided 
by  the  OUTRATE  parameter.  The  default  value  of  OUTRATE  is  1.  OUTRATE 
should  only  be  set  to  positive  integer  values. 

The  number  of  data  samples  plotted  for  a  simulation  analysis  is  given  by: 

No.  of  Plotted  Samples  =  TINC*0UTRATE  +  ^ 


I NT  MODE 
1 
2 

3 

4 

5 

6 


For  most  simulation  operations,  the  plot  output  is  the  primary  data.  The 
line  printer  output  options  provided  by  the  PRINT  CONTROL  parameter  allow  a 
wide  range  in  the  amount  of  detailed  information  about  the  simulated  system 
to  be  printed.  The  value  of  the  PRINT  CONTROL  parameter  sets  the  quality 
of  data  printed  at  each  print  report  interval  according  to  Table  4. 
Options  1  through  4  give  "snap-shots"  of  all  states,  rates,  variables,  and 
parameters  of  the  system  model  at  a  particular  point  in  time.  Option  5 
provides  tabular  lists  of  up  to  40  specified  quantities.  Options  6  ana  7 
are  used  with  the  steady  state  analysis  options.  Options  6  and  7  are  used 
with  the  steady  state  analysis  options.  Option  8  uses  the  user  provided 
print  statements  from  the  model  description.  The  default  value  for  PRINT 
CONTROL  is  0. 


TABLE  4 

Print  Control  Values 

PRINT  CONTROL  Resultant  Lineprinter  Output 

0  None 

1  All  states,  rates,  and  time 

2  All  states,  rates,  variables,  and  time 

3  All  states,  rates,  variables,  and  parameters  at 

time  =  0 

4  All  states,  rates,  variables,  and  parameters 

5  Time  and  the  quantities  spoecifiea  via  PRINT  VARI¬ 
ABLES  cotmand 

6  All  states,  rates,  variables,  and  parameters  at 

each  STEADY  STATE  iteration 

7  All  states,  rates,  variables,  parameters,  and  sys¬ 

tem  Jacobian  matrix  at  each  STEADY  STATE  iteration 

8  User  furnished  PRINT  STATEMENTS  ^See  Model  Genera¬ 
tion  Section  II .2. b) 


The  PRATE  parameter  determines  the  sampling  rate  at  which  the  simulation 
data  specified  by  the  PRINT  CONTROL  parameter  is  presented  on  the  line- 
printer.  Thus,  if  PRATE  is  set  equal  to  five,  data  will  be  printed  on  the 


line  printer  every  fifth  time  it  is  added  to  the  output  plots.  The  default 
value  of  PRATE  is  1.  PRATE  should  only  be  set  to  positive  integer  values. 

The  number  of  data  samples  printed  for  a  simulation  analysis  is  thus  given 
by: 


No.  of  Plotted  Samples  =  TINC*OUTRATE*  PRATE  +  1 
An  example  of  the  use  of  these  commands  is  shown  below: 

PRINT  CONTROL  *  3,  TINC  =  .01,  TMAX  =10., 

INT  MODE  =  3,  OUTRATE  =  10,  PRATE  =  10,  SIMULATE 

In  the  example,  the  fixed  step  Huen  integration  method  would  be  used  with  a 
step  size  of  .01  second.  The  simulation  would  run  for  10  seconds.  Plotted 
output  would  occur  every  .1  seconds,  (10*.01),  and  printed  output  would 
occur  every  1.0  seconds  (10* 10*. 01). 

TINC2 

0UTRATE2 

PRATE2 

PRINT2 

PRINT2  FROM,  tp  TO,  t2 

For  some  applications,  a  single  set  of  output  controls  is  not  satisfactory. 
For  example,  it  might  be  desirable  to  have  a  hign  sampling  rate  during  an 
initial  transient  followed  by  a  slower  sampling  rate,  or  to  have  a  high 
sampling  rate  around  a  critical  event.  To  satisfy  this  requirement,  a 
second  set  of  control  values  can  be  assigned  to  the  program  values  TINC, 
OUTRATE,  PRATE,  and  PRINT  CONTROL.  These  are  specified  as: 

TINC2,  OUTRATE 2,  PRATE2,  PRINT2 
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These  values  can  be  requested  during  a  time  interval  via  the  command: 


PRINT2  FROM,  t^  TO,  t2 

Here  t,  is  the  time  to  start  the  secona  output  option  and  t^  is  the  time  to 
revert  to  the  original  output  option  as  given  by:  TINC,  OUTRATE,  PRATE, 
and  PRINT  CONTROL.  An  example  of  the  analysis  commands  for  this  type  of 
operation  is: 

PRINT  CONTROL  =  4,  TINC  =  .01,  TMAX  =  10 

OUTRATE  =  10,  PRATE  =  10,  0UTRATE2  =  1, 

PRINT2  =  8,  PRINT2  FROM,  8.,  TO,  9.,  SIMULATE 

In  the  example,  the  simulation  would  run  for  10  seconds  with  a  step  size  of 
.01  seconds.  The  initial  plotted  output  would  be  every  0.1,  (10*. 01), 
seconds  and  printed  output  would  occur  every  1.,  (10*10*. 01)  second. 

Between  8  ana  9  seconds,  the  plotted  and  printed  output  rates  would  be 
increased  to  every  .01,  (1*.01),  and  0.1,  (10*1*. 01;  seconds  and  would 
consist  of  model  furnished  PRINT  STATEMENTS  (print  option  8). 

The  second  output  options  can  also  be  activated  by  events  occurring  within 
the  modei.  This  can  be  done  oy  setting  a  print  flag  variable,  PFLAG, 
witnin  the  model  EQMO  subroutine  to  a  non-zero  value.  As  long  as  PFLAb  has 
a  non-zero  value,  the  second  output  options  will  be  in  effect.  When  PFLAG 
is  set  to  zero,  the  original  output  options  are  restored.  PFLAG  can  be  set 
by  an  IF  test  contained  in  a  FORTRAN  STATEMENT  in  the  model.  An  example  ot 
this  type  operation  is: 

FORTRAN  STATEMENT 
PFLAG  =  0 

IF  (RANGE  .LT.  100.)  PFLAG  =  1 
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In  this  example,  if  the  variable  range  becomes  less  than  100,  the  secona 
print  option  will  occur. 


PRINT  VARIABLES 

This  program  command  allows  up  to  40  variables  to  be  specified  for  printing 
using  option  5  of  the  PRINT  CONTROL.  This  command  is  followed  by  from  one 
to  40  state,  rate,  variable  scalar,  or  subscripted  names  separated  by 
delimiters.  This  comnand  deletes  all  previously  stored  PRINT  VARIABLES 
names.  A  column  format  will  be  used  if  the  number  of  quantities  being 
printed  is  less  than  or  equal  to  10.  If  more  than  10  quantities  are 
specified,  the  name  and  value  of  each  scalar  or  subscripted  vector  quantity 
will  be  printed  in  a  format  similar  to  that  of  print  options  1,  2,  or  3.  An 
example  of  this  use  is: 

PRINT  VARIABLES  =  SI  DEI,  SI  DE2,  Wi  UE2,  S2  LA(3; 

5.  PLOT  DESIGNATION  COMMANDS 

PI  SPLAY 1 
DISPLAY2 
DISPLAY3 
DISPLAY4 
DISPLAY5 
DISPLAY6 


These  program  commands  are  used  to  define  the  quantities  to  be  displayed  by 
off-line  plots  or  written  on  external  tapes  for  simulation  or  steady  state 
calculations.  These  commands  must  be  issued  before  the  simulation  or 
steady  state  analysis  is  requested.  From  one  to  five  plots  may  be  speci¬ 
fied  per  display.  Each  plot  is  specified  by  stating  the  dependent  variable 
and  the  independent  variable  separated  by  the  letters  VS.  If  desired,  the 
dependent  and  independent  axis  scale  ranges  can  also  be  specified.  These 
scales  will  be  used  if  the  MANUAL  SCALES  cormands  are  given.  The  indepen¬ 
dent  scale  range  is  specified  by  the  word  XRANGE  followea  by  the  minimum 


and  maximum  values  for  this  scale.  The  dependent  scale  similarly  is 
spceified  by  the  word  YRANGE.  If  scale  ranges  are  not  specified,  values 
will  be  used  that  span  the  given  data.  For  more  than  one  plot  on  a  page,  a 
common  independent  variable  must  be  used. 

The  following  example  shows  two  ways  to  specify  plots: 

DISPLAY1 

ANGLE,  VS,  TIME,  YRANGE  =  -2,4 
STROKE,  VS,  TIME,  YRANGE  =  -.5,. 5 
PI  0E1,  VS,  TIME,  YRANGE  =  0,60 
DISPLAY2 

PI,  CE,  VS,  TIME,  YRANGE  =  -20,20 
PI,  DE2,  VS,  TIME,  YRANGE  =  -15,15 
PRESSURE,  VS,  TIME,  YRANGE  =  -100,100 
THECE,  VS,  TIME,  YRANGE  =  -5,5 
DISPLAY3 

STROKE,  VS,  PRESSURE,  YRANGE  =  -1.5,  XRANGE  =  300,500 

SI  MANUAL  SCALES 
SS  MANUAL  SCALES 
SI  AUTO  SCALES 
SS  AUTO  SCALES 

The  SI  MANUAL  SCALES  and  SS  MANUAL  SCALES  commands  allow  the  plotted  output 
requested  by  the  DISPLAY  commands  to  be  plotted  on  manual  scales  specified 
by  the  YRANGE  and  XRANGE  commands.  If  manual  scales  are  requested,  manual 
scales  must  be  given  and  will  be  used  for  al_[  plots.  The  SI  prefix  is  for 
simulation  data  and  the  SS  is  for  steady  state  analysis.  The  SI  AUTO 
SCALES  and  SS  AUTO  SCALES  commands  can  be  used  to  return  plotting  to  the 
automatic  scaling  mode.  Auto  Scales  are  selected  so  that  they  span  each 
plotted  quantity.  The  auto  scale  option  is  the  default  used  until  manual 
scales  are  requested. 

PLOT  ON 
PLOT  OFF 
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These  program  commands  allow  the  plotted  output  to  be  turned  on  or  off. 
The  default  condition  is  PLOT  OFF.  It  is,  therefore,  necessary  to  include 
the  PLOT  ON  cotmiand  bef ore  requesting  any  analysis  from  which  plots  are 
desired.  The  PLOT  OFF  and  PLOT  ON  commands  can  be  issued  between  analysis 
requests  if  it  is  desired  to  omit  the  plotting  of  certain  analysis 
results. 

OMIT  PLOT  POINTS 

Boxes  are  normally  drawn  around  each  plotted  data  point.  This  command 
supresses  these  boxes.  A  second  occurrence  of  this  command  restores  the 
boxes  around  plotted  data  points. 

CALCOMP 
PRINTER  PLOTS 
SC4020 
MTS  PLOTS 

Plots  are  routed  to  a  particular  physical  device  Dy  specifying  the  above 
commands  prior  to  the  analysis  which  generates  plotted  data.  Printer 
plots,  MTS  plots,  and  either  CALCOMP  or  SC4020  plots  may  be  generated  in 
the  same  run. 

PLOT 

ID 

TITLE 

The  PLOT  ID  program  command  allows  an  identification  label  to  be  placed  as 
the  first  page  of  plotted  output.  Up  to  48  characters  may  follow  the 
delimiter  that  follows  the  PLOT  ID  command.  This  identification  must  be 
used  to  place  mailing  information  on  the  plotted  output. 

The  TITLE  command  allows  a  common  title  to  be  placed  on  all  plotted  output. 
Up  to  74  characters  may  follow  the  delimiter  that  follows  the  TITLE  com¬ 
mand.  The  TITLE  command  may  be  changed  before  each  analysis.  Once 


defined,  the  title  remains  in  effect  until  a  new  title  is  entered.  Exam¬ 
ples  of  these  conmands  are  shown  below: 


PLOT  ID  =  EX  USER  **M/S  70-16** 

TITLE  =  FLEX  MODE  CASE 

6.  STEADY  STATE  COMMANDS 

STEADY  STATE 

This  program  initiates  the  calculation  of  the  system  steady  state.  Associ¬ 
ated  with  this  corrmand  are  the  program  name  and  values: 


1. 

SS 

PARAMETER 

=  steady  state  parameter. 

2. 

SS 

START 

=  initial  value  of  steady  state  parameter. 

3. 

SS 

STOP 

=  final  value  of  steady  state  parameter. 

4. 

SS 

POINTS 

=  number  of  values  the  steady  state  parameter 

takes  going  from  SS  START  to  SS  STOP. 

5. 

SS 

ITERATIONS 

=  maximum  number  of  iterations  allowed  per  steady 

state  calculation. 

6. 

PRINT  CONTROL 

=  print  control  variable. 

SS  PARAMETER  specifies  the  parameter  to  scan  from  the  value  SS  START  to  SS 
STOP  in  SS  POINTS  steps.  SS  ITERATIONS  specifies  an  upper  limit  on  the 
number  of  iterations  to  be  used  to  calculate  a  steady  state.  The  default 
value  of  SS  ITERATIONS  is  30.  If  the  SS  PARAMETER  is  blank,  a  single 
steady  state  calculation  will  occur.  The  steady  state  parameter  can  be  any 
valid  parameter  name. 

The  PRINT  CONTROL  parameter  provides  all  the  print  control  functions  des¬ 
cribed  in  Section  III. 4  for  simulation  operation  plus  two  extra  forms,  6 
and  7,  which  may  be  used  to  track  the  steady  state  iteration  process. 

The  following  example  will  scan  the  parameter  RPM  over  the  range  from  19000 
to  16000  in  five  steps.  At  the  end  of  the  steady  state  calculation,  the 
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system  stability  will  be  checked  to  assure  that  a  stable  steady  state 
exists. 

SS  PARAMETER  =  RPM,  SS  START  =  19000,  SS  STOP  =  16000 
SS  POINTS  =  5,  STEADY  STATE. 

If  plots  of  the  steady  state  scan  are  desired,  these  plots  should  be 
defined  using  the  DISPLAY  commands  prior  to  initiating  the  steady  state 
calculations.  Only  those  plots  which  have  an  independent  variable  dif¬ 
ferent  from  time  will  be  plotted. 

In  the  following  example,  the  steady  state  parameter  is  set  to  a  blank 
phrase.  This  is  accomplished  by  placing  the  SS  PARAMETER  command  phrase  at 
the  end  of  a  command  line.  If  it  is  desired  to  follow  the  SS  PARAMETER 
program  name  with  other  instructions,  then  the  form:  SS  PARAMETER  =  NONE 
may  be  used.  In  either  case,  this  causes  a  single  steady  state  calculation 
to  occur  at  the  current  operating  point.  The  results  of  this  calculation 
are  then  loaded  into  the  initial  condition  vector,  XIC.  The  initial 
default  value  of  SS  PARAMETER  is  a  blank  phrase  so  that  single  steady  state 
calculations  will  be  performed,  unless  this  parameter  is  set  to  a  non  blank 
name. 

SS  PARAMETER  = 

STEADY  STATE 
XIC-X 

7.  LINEAR  ANALYSIS  COMMANDS 
LINEAR  ANALYSIS 

This  program  command  causes  the  calculation  of  a  linearized  version  of  the 
given  nonlinear  model  at  the  operating  point  specified  by  XIC  and  then 
calculates  the  eigenvalues  of  this  linear  approximation.  A  printout  of  the 
following  quantities  are  generated  by  this  command: 


1.  The  state  operating  point  (INITIAL  CONDITIONS) 

2.  The  state  perturbation  size  (ERROR  CONTROL) 

3.  The  integrator  status  (INT  CONTROL) 

4.  The  rates  at  the  operating  point 

For  continuous  systems: 

5.  The  system  stability  matrix 

6.  A  measure  of  the  linearity  of  each  element  of  the  stability 
matrix  if  a  nonlinear  condition  is  detected. 

7.  The  system  eigenvalues,  real  and  imaginery  parts,  natural  fre¬ 
quencies,  and  damping  ratios. 

For  discrete  systems: 

8.  Continuous  states  stability  matrix  (displays  inputs  to  contin¬ 
uous  states) 

9.  Transition  matrix  for  each  sample  period  (displays  inputs  to 
discrete  states  at  each  sample  period) 

10.  Total  system  transition  matrix 

11.  System  eigenvalues,  real  and  imaginary  parts  in  both  Z  and  S 
planes  and  natural  frequencies  and  damping  ratios  in  the  S 
plane. 

EIGENVECTOR 


The  EIGENVECTOR  command  is  similar  to  the  LINEAR  ANALYSIS  command.  How¬ 
ever,  in  response  to  this  command,  the  modal  matrix  comprised  of  the  system 
eigenvectors  is  also  calculated  and  printed.  This  command  can  only  be  used 
with  models  that  contain  an  optimal  controller,  due  to  core  requirements. 
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8.  STABILITY  MARGIN  COMMANOS 


STABILITY  MARGINS 

This  program  command  initiates  the  calculation  of  the  stability  margins 
for  those  parameters  specified  by  the  SM  PARAMETERS  command.  The  maximum 
and  minimum  values  that  each  specified  parameter  can  take  for  stable  system 
operation  and  the  oscillation  frequencies  that  result  if  either  boundary 
is  violated  are  determined. 

SM  PARAMETERS 

This  program  command  allows  up  to  ten  parameters  to  be  specified  for 
stabi lity  margin  calculations.  The  command  is  followed  by  from  one  to  ten 
parameter  names  separated  by  delimiters.  This  command  destroys  all  pre¬ 
viously  stored  stability  margin  parameters. 

An  example  use  of  these  commands  is  given  oelow: 

SM  PARAMETERS  =  GK1TC,  GK2TC 
STABILITY  MARGINS 

These  commands  cause  the  stability  margins  to  be  calculated  for  the  two 
parameters,  GK1TC  and  GK2TC. 

A  summary  of  stability  margins  and  frequencies  is  printed  along  with  the 
nominal  system  eigenvalues,  and  the  system  eigenvalues  with  each  stability 
margin  parameter  set  equal  to  zero.  If  no  upper  or  lower  stability  margin 
is  located  for  a  particular  stability  margin  parameter,  the  summary  array 
will  contain  the  number  1212 .  in  those  locations  for  which  no  margin  limit 
was  determined. 

The  stability  margin  search  is  limited  to  parameter  values  of  the  same 
algebraic  sign  as  the  nominal  value.  Thus,  for  example,  zero  is  the  lowest 
magnitude  that  will  be  considered  for  the  lower  stability  boundary  of  a 
parameter  with  a  positive  nominal  value. 


9.  FREQUENCY  RESPONSE  COMMANDS 


TRANSFER  FUNCTION 
TF  INPUT 
TF  OUTPUT 

These  program  commands  are  used  to  initiate  the  calculation  of  a  frequency 
response  function,  between  any  two  specified  points  in  the  model.  The 
following  command  phrases  are  used  to  set  up  the  desired  transfer  function: 

TF  INPUT  =  transfer  function  input  variable 
TF  OUTPUT  =  transfer  function  output  variable 

They  are  used  to  specify  the  input  and  output  points  in  the  system  model. 
These  quantities  must  be  set  to  the  desired  names  before  requesting  the 
frequency  response  calculation.  They  may  be  set  to  any  valid  state,  rate, 
variable,  or  parameter  name.  The  command  TRANSFER  FUNCTION  causes  the 
frequency  response  function  to  be  executed  at  that  point. 

The  transfer  function  poles  and  zeros  are  printed  output.  For  discrete 
systems,  these  roots  are  given  in  both  the  Z  plane  and  S  plane. 

BODE 

NYQUIST 

NICHOLS 


These  program  commands  specify  the  format  to  be  used  for  the  frequency 
response  plots.  The  format  must  be  specified  pefore  requesting  the  TRANS¬ 
FER  FUNCTION  analysis.  If  not  specified,  the  default  will  be  a  Bode  plot 
format. 

TF  AUTO  SCALES 
TF  MANUAL  SCALES 
FREQ  MIN 
FREQ  MAX 
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These  program  commands  are  used  to  set  the  frequency  range  of  the  frequency 
response  plots.  It  can  be  either  automatically  determined  by  the  range  of 
eigenvalues  or  be  specified  by  the  following  command  phrases: 

1.  FREQ  MIN  =  minimum  frequency,  r.p.s. 

2.  FREQ  MAX  =  maximum  frequency,  r.p.s. 

The  default  condition  is  for  automatic  scales. 

In  the  automatic  mode,  the  minimum  and  maximum  frequencies  will  be  one 
decade  below  and  one  decade  above  the  lowest  non  zero  and  highest  natural 
frequency.  For  discrete  systems,  the  upper  frequency  is  oounded  by  the 
Nyquist  frequency  of  the  system.  Frequency  points  are  concentrated  around 
lightly  damped  natural  frequencies  to  better  define  these  critical  areas. 

The  following  example  will  generate  a  transfer  function  from  C4  MC  to  S2  LA 
with  automatic  frequency  values  for  the  plotted  results  in  a  Nichol's  chart 
format. 

TF  INPUT  =  C4  MC,  TF  OUTPUT  *  S2  LA 
NICHOLS,  TRANSFER  FUNCTION 

10.  ROOT  LOCUS  COMMANDS 

ROOT  LOCUS 
RL  PARAMETER 
RL  START 
RL  STOP 
RL  POINTS 

These  program  commands  initiate  the  calculation  of  a  root  locus.  The 
following  conmands  are  used  to  select  the  parameter  and  the  ranges  for  the 


1.  RL  PARAMETER  *  root  locus  parameter  name 

2.  RL  START  =  initial  value  of  root  locus  parameter 

3.  RL  STOP  *  final  value  of  root  locus  parameter 

4.  RL  POINTS  =  number  of  rootings  to  be  made  going  from  RL  START 

to  RL  STOP 

They  specify  the  parameter  to  scan  from  the  value  RL  START  to  RL  STuP  in  RL 
POINTS  steps.  The  default  values  of  RL  PARAMETER,  RL  START,  RL  STOP,  and 
RL  POINTS  are;  blank,  0.,  1.,  and  6.  respectively. 

The  root  locus  parameter,  like  the  steady  state  parameter,  can  be  either  a 
valid  parameter  name  or  a  state  variable  name  followed  by  the  phrase  IC. 
This  latter  usage  is  meaningful  only  if  the  specified  state  variable  has 
been  frozen  using  the  INT  CONTROL  command.  In  this  way,  a  root  locus  can 
be  performed  as  a  function  of  the  operating  point  value  of  a  frozen  state 
variable. 

RL  PARAMETER  =  ZO  TF,  RL  START  =0,  RL  STOP  =5,  RL  POINTS  =  6, 
ROOT  LOCUS 

In  this  example,  the  root  locus  parameter  ZO  TF  is  scanned  from  0  to  5  in 
six  equally  spaced  steps. 

RL  MANUAL  SCALES,  REAL  MAX=5,  IMAG  MAX=5,  INT  CONTROL,  SPEED=0 
RL  PARAMETER  =  SPEED,  IC,  RL  START  =35,  RL  STOP  =  45 
ROUT  LOCUS 

In  this  example,  manual  scales  are  specified  for  the  root  locus  plots.  The 
SPEED  state  variable  is  then  frozen  and  a  root  locus  is  performeo  on  the 
SPEED  operating  point. 

RL  AUTO  SCALES 
RL  MANUAL  SCALES 


IMAG  MIN 
IMAG  MAX 


These  program  commands  allow  the  scales  of  the  root  locus  plots  to  be 
either  automatically  determinea  by  the  range  of  eigenvalues  or  to  be  speci¬ 
fied  by  control  conmands.  The  following  command  definitions  are  used  to 
set  plot  scales: 


1.  REAL  MIN 

2.  REAL  MAX 

3.  IMAG  MIN 

4.  IMAG  MAX 

The  default  condi t 


*  minimum  real  axis 
=  maximum  real  axis 
=  minimum  imaginary 

*  maximum  imaginary 

on  is  for  automatic 


range,  r.p.s. 
range,  r.p.s. 
axis  range,  r.p.s. 
axis  range,  r.p.s. 

scales. 


li.  EIGENVALUE  SENSITIVITY  COMMANDS 


EIGEN  PARAMETER 
EIGEN  SENSITIVITY 


These  program  commands  cause  a  linear  approximation  of  the  given  nonlinear 
model  to  be  generated  and  then  evaluates  the  sensitivity  of  the  system 
eigenvalues  to  a  parameter  specified  by  the  command  phrase  EIGEN 
PARAMETER. 

In  the  following  example,  the  sensitivity  of  system  eigenvalues  to  the 
parameter  GPITF  will  be  calculated. 


EIGEN  PARAMETER  =  GPITF,  EIGEN  SENSITIVITY 


12.  FUNCTION  SCAN  COMMANDS 


SCAN1 

SCAN  2 

DEPEN 

INDEP1 

INDEP2 

START1 

STOP1 

START2 

DELTA2 

CURVES2 


These  program  commands  initiate  and  control  the  calculation  of  general 
algebraic  functions  of  one  or  two  independent  variables.  The  following 
definitions  are  used  to  specify  the  control  parameters  and  bounds  for  the 


calculation. 

1. 

DEPEN 

= 

dependent  variable 

2. 

INDEP1 

= 

1st  independent  variable 

3. 

INDEP2 

= 

2nd  independent  variable 

4. 

START1 

= 

starting  point  of  1st  independent 

variable 

5. 

ST0P1 

= 

stopping  point  of  1st  independent 

variable 

6. 

START2 

= 

starting  point  of  2nd  independent 

variable 

7. 

DELTA2 

= 

increment  of  2nd  independent  variable 

8. 

CURVES2 

= 

number  of  values  of  2nd  independent  variable 

These  conmands  specify  the  dependent  and  independent  variables  and  scan 
ranges  of  these  quantities.  These  quantities  must  be  set  to  their  desirea 
values,  before  requesting  the  general  algebraic  function  evaluation.  If  a 
single  function  is  requested,  i.e.,  SCAN1,  only  items  1,2,4,  and  5  need  be 
specified. 

DEPEN  =  W2  TU,  IN0EP1  =  EH  SH,  INDEP2  =  Si  DE2,  START1  =  -30 
ST0P1  =  100,  START2  =  10,  DELTA2  *  20,  CURVCCZ  =  6 
SCAN  2 
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In  the  above  example,  the  quantity  W2  TU  will  be  calculated  as  a  function 
of  quantities  EN  SH  and  SI  DE2.  Six  curves  will  be  generated  with  W2  TU 
ranging  from  -30  to  100  and  SI  DE2  being  stepped  from  10  to  20  in  6  steps  of 
2  each. 

13.  OPTIMAL  CONTROLLER  DESIGN  COMMANDS 

In  order  to  design  an  optimal  controller  using  the  EASY  program,  it  is 
necessary  to  specify  the  inputs  and  outputs  of  the  optimal  controller  as 
part  of  the  system  model  description.  This  is  accomplished  as  described  in 
Section  II. 2. b.  Once  a  model  has  been  generated  that  contains  an  optimal 
controller  and  the  specified  input-output  connections  to  the  other  model 
components,  many  different  controllers  can  be  designed.  These  variations 
are  made  by  varying  the  operating  point  or  the  optimal  controller  design 
criteria.  The  following  paragraphs  describe  how  the  optimal  controller 
operating  point  and  criteria  are  specified. 

Once  an  optimal  controller  has  been  designed,  it  may  be  desired  to  save 
that  design  for  further  analysis  on  subsequent  analysis  runs.  Program 
corrmands  are  provided  to  save  the  data  arrays  which  specify  a  particular 
optimal  controller  and  to  read  such  data  on  subsequent  analysis  runs. 

O.C.  DATA 


Tne  O.C.  DATA  command  specifies  that  the  following  command  phases  contain 
data  for  one  or  more  of  the  ten  different  data  arrays  related  to  optimal 
controllers.  The  name  of  each  of  these  arrays  and  a  brief  aescription  of 
its  use  is  given  below.  For  a  more  complete  description  of  each  array  and 
its  use,  see  Section  4.5  of  reference  1. 

Optimal  Controller  -  Operating  Point  Specification 

YOP  -  Optimal  controller  input  operating  point  (set-point  array.  YOP 
is  an  n$  dimensional  array,  where  n$  is  the  number  of  inputs  to 
the  optimal  controller.  Default  values  of  zero  are  provided 
for  this  array. 
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UQP  -  Optimal  controller  output  operating  point  (set-point)  array. 
UOP  is  an  nu  dimensional  array,  where  ny  is  the  number  of 
outputs  from  the  optimal  controller.  Default  values  of  zero 
are  provided  for  this  array. 

Optimal  Controller  Criteria  Specification 

Q  -  Optimal  controller  criteria  weights  array.  Q  is  an  nc  dimen¬ 
sional  array,  where  nc  is  the  number  of  optimal  controller 

criteria  variables.  Q  contains  the  diagonal  elements  of  the 
positive  semi-definite  weighting  matrix  which  gives  the  impor¬ 
tance  of  the  various  criteria  variables  relative  to  each  other 
and  the  controller  outputs.  Off  diagonal  elements  are  assumed 
equal  to  zero.  If  the  criteria  variables  are  not  specified, 
they  are  assumed  to  be  the  optimal  controller  inputs.  Default 
values  of  1  are  provided  for  this  array. 

RU  -  Optimal  controller  control  weights  array.  RU  is  an  nu  dimen¬ 
sional  array,  where  ny  is  the  number  of  optimal  controller 

outputs.  RU  contains  the  diagonal  elements*  of  the  positive 
definite  matrix  which  gives  the  importance  of  the  various  con¬ 
troller  outputs  relative  to  each  other  and  the  criteria  vari¬ 
ables.  Off  diagonal  elements  are  assumed  equal  to  zero. 
Default  values  of  1  are  provided  for  this  array. 

CD  -  System  model  disturbance  covariance  array.  DC  is  an  nx  dimen¬ 
sional  array,  where  nx  is  the  order  of  the  system  model.  DC 
contains  the  diagonal  elements*  of  the  model  disturbance  covar¬ 
iance  matrix  which  gives  the  uncertainty  of  various  model 
states  relative  to  each  other  and  the  sensed  quantities.  Off 
diagonal  elements  are  assumed  equal  to  zero.  Larger  values  in 
CD  imply  greater  uncertainty  (less  confidence)  in  the  system 
model  accuracy.  Default  values  based  on  the  ERROR  vector  and 
the  model  stabil ity  matrix  are  provided  for  this  array. 
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CS  -  Optimal  controller  inputs  disturbance  covariance  array.  CS  is 
an  ns  dimensional  array,  where  n$  is  the  number  of  inputs  to  the 
optimal  controller.  CS  contains  the  diagonal  elements*  of  the 
sensed  quantity  disturbance  covariance  matrix  which  gives  the 
uncertainty  of  various  sensed  quantities  relative  to  each  other 
and  the  model  states.  Off  diagonal  examples  are  assumed  equal 
to  zero.  Larger  values  in  CS  imply  greater  uncertainty  (less 
confidence)  in  the  sensea  quantity  accuracy.  Default  values 
based  on  the  ERROR  vector  and  the  model  sensor  matrix  are  pro¬ 
vided  for  this  array. 

Optimal  Controller  Specification 

These  inputs  are  required  only  for  reloading  a  previously  designed  optimal 
controller.  Default  values  of  zero  are  provided  for  these  arrays  until 
nonzero  values  are  calculated  via  the  DESIGN  O.C.  command. 

G  -  Optimal  controller  gain  array.  G  is  an  nu  by  nrc  dimensional 
array,  where  nu  is  the  number  of  outputs  from  the  nrc  is  the 
order  of  the  optimal  controller. 

S  -  Optimal  controller  sensor  array.  S  is  an  nrc  by  ns  dimensional 
array,  where  nrc  is  the  order  of  the  optimal  controller  and  n$ 
is  the  number  of  inputs  to  the  optimal  controller. 

AK  -  Optimal  controller  stability  matrix  array.  AK  is  an  nrc  by  nrc 
dimensional  array  where  nrc  is  the  order  of  the  optimal 
controller. 

FK  -  Optimal  controller  d.c.  gain  matrix  array.  FK  is  an  nu  by  ns 
dimensional  array  where  n^  is  the  number  of  outputs  from  and  n$ 
is  the  number  of  inputs  to  the  optimal  controller. 


Optimal  controller  array  data  may  be  entered  in  a  free  field  format  with 
each  data  item  separated  by  a  comma  or  another  one  of  the  standard  delimi¬ 
ters.  Data  may  be  entered  along  either  a  row,  column  or  diagonal  line  of 
the  array.  The  row  and  column  location  is  given  for  only  the  first  element 
specified.  The  following  input  values  are  loaded  in  the  subsequent  row, 
column,  diagonal  elements  of  the  array.  The  letters,  C,  R,  and  D  signal 
the  start  of  a  new  Column,  Row,  or  Diagonal  input.  They  must  be  followed 
by  the  row  and  column  number  at  which  data  loading  is  to  start.  A  column 
number  of  1  must  be  given  for  the  one  dimensional  arrays:  YOP,  UOP,  Q,  RU, 

CD,  and  CS.  The  letter  Z  causes  all  elements  of  the  array  to  be  set  to 

zero.  This  corrmand  may  be  used  to  advantage  when  loading  a  sparse  array. 


If  the  number  of  data  values  exceeds  either  the  row  or  column  dimension  of 
the  array,  the  excess  values  are  ignored  by  the  program. 


The  following  example  demonstrate  the  loading  of  data  into  the  optimal 
controller  arrays. 

PROGRAM  COMMANDS 

O.C.  DATA 

YOP  =  C  (1,1)  553.2,  546,  -2.56,  7 

RESULTS  -  Assuming  YOP  is  a  4x1  array. 

553.2 

546. 

Y0P  *  -2.56 
7.00 
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DESIGN  O.C. 


The  DESIGN  O.C.  command  initiates  the  optimal  controller  design  process. 
Before  issuing  this  command,  the  following  items  should  be  accomplished: 

1.  Specify  the  optimal  controller  operating  point  by  loading  the 
arrays  YOP  and  UOP. 

2.  Place  the  system  model  at  the  desirea  operating  point. 

3.  Specify  those  optimal  controller  criteria  arrays  Q,  RU,  CD,  and 
CS  which  you  wish  to  differ  from  the  default  values. 

The  DESIGN  O.C.  command  causes  a  linear  model  of  the  system  to  be  generated 
and  an  optimal  controller  to  be  designed.  The  design  results  are  printed 
and  loaded  into  the  optimal  controller  arrays  G,  S,  AK,  and  FK.  Manual 
modifications  to  the  optimal  controller  can  be  made  via  the  O.C.  DATA 
command. 

SAVE  O.C. 


The  SAVE  O.C.  command  causes  the  optimal  controller  arrays  G,  S,  AK,  and  FK 
to  be  placed  on  local  file  TAPE3  in  a  format  compatible  with  the  O.C.  DATA 
command.  This  file  may  be  saved  as  a  permanent  file  or  punched  as  data 
cards  by  the  appropriate  control  cards.  By  including  these  cards  or 
records  in  the  input  data  for  subsequent  analysis  runs,  it  is  possible  to 
perform  further  analyses  on  a  previously  calculated  optimal  controller. 
Such  optimal  controller  data  could  be  used  in  conjunction  with  the  O.C. 
ANALYSIS  conmand  to  the  Model  Generation  Program.  As  described  in  Section 
II. 2. b,  the  O.C.  ANALYSIS  command  allows  analyses  to  be  performed  on  a 
previously  designed  optimal  controller  with  less  computer  central  memory 
than  is  required  to  perform  the  optimal  controller  design. 


14.  WARNING  MESSAGES 


One  or  more  of  the  following  warning  messages  will  occur  if  the 
program  encounters  difficulty  in  interpreting  analysis  instructions  or 
performing  an  analysis.  These  messages  will  be  preceded  by: 

***  WARNING  ***. 

The  symbols  xxx,  zzz,  or  nnn  are  used  to  indicate  phrases  from  the  analysis 
description  that  are  included  as  part  of  the  warning  message.  The  follow¬ 
ing  messages  are  listed  in  alphabetical  order: 

1.  A  VALID  PARAMETER  NAME  MUST  PRECEDE  THE  NUMERIC  VALUE  nnn 

This  message  indicates  that  a  valid  parameter  name  was  not  identified 
preceding  the  numeric  value  nnn.  Check  for  missing  delimiters  or  mis¬ 
spelled  parameter  name. 

2.  ALGEBRAIC  LOOP  WITH  GAIN  OF  nnn  EXISTS  BETWEEN  INPUT  AND  OUTPUT  THIS 
TRANSFER  FUNCTION  CAN  NOT  BE  DETERMINED. 

See  Appendix  M  for  a  description  of  this  limitation  to  the  transfer 
function  analysis  method. 

3.  ALL  ROOTS  CANCELED.  THIS  CASE  WILL  BE  SKIPPED 

This  indicates  TF  output  is  not  conected  to  TFD  input.  Check  model,  TF 
input,  and  TF  output  specifications. 

4.  nn  IS  NOT  A  VALID  SUBSCRIPT  |l 


Subscripts  must  be  numeric. 


5.  xxx  IS  NOT  A  VALID  TABLE  NAME 


Check  spelling  of  table  name. 

6.  xxx  IS  NOT  A  VALID  TABLE  NAME  FOR  THIS  MODEL.  DATA  WILL  BE  IGNORED 
Check  spelling  of  table  name. 

7.  CAN'T  FIND  GREATEST  COMMON  DIVISOR  FOR  THE  FOLLOWING  SAMPLE  RATES 
Check  sample  period  values. 

8.  CAN'T  FIND  LEAST  COMMON  MULTIPLE  FOR  THE  FOLLOWING  SAMPLE  RATES 
Check  sample  period  values. 

9.  CAN'T  IDENTIFY  xxx  AS  A  VALID  EIGENVALUE  SENSITIVITY  PARAMETER 

Check  spelling  of  eigenvalue  sensitivity  parameter  or  for  missing 
delimiters. 

10.  CAN'T  IDENTIFY  xxx  AS  A  VALID  PRINT  VARIABLE 
Check  spelling  of  xxx  or  for  missing  delimiters. 

11.  CAN'T  IDENTIFY  xxx  AS  A  VALID  ROOT  LOCUS 
Check  spelling  of  xxx  or  for  missing  delimiters. 

12.  CAN'T  IDENTIFY  xxx  AS  A  VALID  SCAN  PARAMETER 


Check  spelling  of  xxx  or  for  missing  delimiters. 


13.  CAN'T  IDENTIFY  xxx  AS  A  VALIO  STABILITY  MARGIN  PARAMETER 
Check  spelling  of  xxx  or  for  missing  delimiters. 

14.  CAN'T  IDENTIFY  xxx  AS  A  VALID  STEADY  STATE  PARAMETER 
Check  spelling  of  xxx  or  for  missing  delimiters. 

15.  CAN'T  IDENTIFY  xxx  AS  A  VALID  TRANSFER  FUNCTION  INPUT  (OUTPUT) 
PARAMETER 

Check  spelling  of  xxx  or  for  missing  delimiters. 

16.  xxx  CAN'T  BE  SET  EQUAL  TO  zzz.  VALUE  MUST  BE  NUMERIC 
Check  for  missing  numeric  value  or  delimiters. 

17.  CAN'T  IDENTIFY  xxx  VALUE  WILL  BE  IGNORED 

This  will  result  in  not  setting  the  quantity  intended  by  xxx  to  its  new 
value.  Check  for  spelling  of  xxx  or  for  missing  delimiters. 

18.  CAN'T  INTEPRET  xxx 

The  phrase  xxx  cannot  be  recognized  as  a  valid  program  command,  program 
name,  or  program  value.  Check  spelling  of  xxx  or  for  missing  delimiters. 

19.  CAN'T  LOAD  CRITERIA  ARRAYS  WHEN  IN  ANALYSIS  ONLY  MODE 

The  O.C.  ANALYSIS  conmand  was  issued  to  the  Model  Generation  program  when 
it  created  the  system  model.  Therefore,  an  optimal  control  design,  which 
used  this  criteria  arrays,  cannot  be  performed. 
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20.  INVALID  SUBSCRIPT  DETECTED 

Subscript  outside  valid  range  for  this  array. 

21.  SUBSCRIPT  VALUES  nn  OR  nn  ARE  TOO  LARGE  FOR  xxx 
Subscripts  outside  allowable  range. 

22.  WORK  SPACE  WAS  NOT  PROVIDED  IN  MODEL  FOR  OPTIMAL  CONTROLLER  DESIGN  OR 
EIGENVECTOR  CALC. 


An  optimal  controller  must  be  specified  in  model  description  in  order  to 
have  work  storage  for  optimal  control  design  of  eigenvector  calculation. 

23.  nnn  EXCEEDS  THE  ALLOWABLE  INDEX  RANGE  FOR  xxx  THIS  QUANTITY  WILL  NOT 
BE  DEFINED 


The  number  nnn  was  outside  the  allowable  range  of  states,  rates,  variables, 
or  parameters.  Therefore,  the  name  xxx  cannot  be  assigned  as  a  name  for 
the  nnnth  state,  rate,  variable  or  parameter. 


24.  nn  IS  OUTSIDE  ALLOWABLE  INDEX  RANGE,  zzz  WILL  NOT  BE  DEFINED 

Index  number  nn  must  be  between  1  and  number  of  states,  variables,  or 
parameters,  (whichever  is  applicable). 

25.  FAILED  TO  CONVERGE  TO  ZERO  PHASE 


The  search  procedure  described  in  Appendix  M  failed  to  converge  to  zero 
phase.  The  stability  margin  for  the  indicated  parameter  cannot  be  deter¬ 
mined  by  this  method. 


26.  MORE  THAN  10  UNIQUE  SAMPLE  RATES  LOCATED 


Only  10  different  sample  rates  allowed. 

27.  NO  SAMPLING  PERIODS  ARE  GIVEN 

Sampling  period  parameters  TAU  xxx  could  not  be  located.  These  names  can 
not  be  redefined. 

28.  NOMINAL  SYSTEM  UNSTABLE 

The  nominal  system  is  unstable.  The  stability  margins  of  the  specified 
parameters  will  be  calculated,  but  these  bounds  will  be  "non-critical" 
bounds  since  the  nominal  system  is  unstable.  See  Section  4.4.4  of  refer¬ 
ence  1  for  a  discussion  of  critical  and  noncritical  stability  boundaries. 

29.  NON-ALPHA  NAME  ON  THIS  CARD  —  xxx.  WILL  IGNORE  THIS  CARD 

The  table  inputs  routine  expected  an  alphanumeric  table  name  but  encoun¬ 
tered  a  numeric  value  on  the  data  card  printed.  Check  the  sequence  and 
number  of  tabular  data  cards  to  assure  that  they  match  those  required  by 
the  model's  tables  and  table  input  formats.  See  Section  Ill.l.b  for 
correct  formats. 

30.  NON-NUMERIC  DATA  ON  THIS  CARD  —  xx.  WILL  READ  NEXT  TABLE 

The  table  input  routine  expected  a  numeric  value  but  encountered  an  alpha¬ 
numeric  name  on  the  data  card  printed.  Check  that  the  sequence  and  number 
of  tabular  data  cards  matches  the  model's  tables  and  table  input  formats. 
See  Section  Ill.l.b  for  correct  formats. 
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31.  nnn  PRIMARY  AND  xxx  SECONDARY  INDEPENDENT  VARIABLE  POINTS  EXCEEDS  THE 
zzz  WORD  STORAGE  LIMIT  FOR  THE  FOLLOWING  TABLE.  SOME  DATA  WILL  BE 
LOST 


See  Section  II. 2  for  a  discussion  on  how  to  set  the  maximum  number  of  data 
points  allowed  for  each  table. 


32.  SIMULATION  WILL  NOT  BE  RUN  DUE  TO  FAILURE  TO  REACH  VALIU  STEADY  STATE 

A  failure  of  the  steady  state  analysis  followed  by  a  request  to  transfer  X 
into  XIC  causes  an  interlock  to  be  set  which  will  prevent  a  simulation  run 
from  beginning  from  an  erroneous  initial  condition. 

33.  WORK  SPACE  WAS  NOT  PROVIDED  IN  MODEL  FOR  OPTIMAL  CONTROLLER  DESIGN 

Either  no  optimal  controller  was  specified  to  the  Model  Generation  Program 
or  the  O.C.  ANALYSIS  mode  was  indicated.  In  either  case,  only  analyses  and 
not  DESIGN  O.C.  can  be  performed  with  this  model. 


34.  ***  WARNING  ***  MATRIX  IS  SINGULAR  ***  INITIAL  SYSTEM  IS  NOT 
DIAGONALIZABLE 

This  message  is  generated  in  the  system  reduction  program  and  is  the  result 
of  multiple  eigenvalues  with  a  single  eigenvector.  This  means  that  the 
system  is  not  able  to  be  diagonalized  and  that  a  Jordan  type  reduction  is 
required.  Processing  is  stopped  and  reduction  is  not  completed.  This 
message  can  arrise  either  in  the  reduction  of  the  initial  model  equations 
or  in  the  reduction  of  the  controller. 
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35.  ***  WARNING  ***  QR  FAILED  TO  CONVERGE  IN  XX  STEPS 


This  message  generated  in  the  system  reduction  program  is  the  result  of  the 
extremely  rare  event  of  the  eigenvalue  calculation  failure. 

36.  **  DUE  TO  xxx  UNSTABLE  EIGENVALUES.  SYSTEM  REDUCTION  TO  xxx  IS 
IMPOSSIBLE 

This  message  generated  in  the  system  reduction  program  is  the  result  of  the 
number  of  unstable  eigenvalues  in  the  system  to  be  reduced  being  greater 
than  the  requested  order  for  the  reduced  system.  This  message  can  arise 
either  in  the  reduction  of  the  initial  system  or  in  the  reduction  of  the 
controller. 

37.  **  CONTROL  WEIGHTING  NOT  POSITIVE  DEFINITE 

This  message  generated  in  the  calculation  of  the  optimal  feedback  matrix  in 
the  result  of  loss  of  significance  in  the  calculation  of  the  control 
weighting  matrix.  Since  the  default  check  is  made,  this  is  a  rare  event. 

38.  **...  QR  ALGORITHM  FAILED  TO  CONVERGE 
**...  SYSTEM  MAY  BE  UNSTABILIZABLE 

This  message  generated  in  the  calculation  of  the  optimal  feedback  matrix  is 
the  result  of  the  QR  algorithm  failure  and  is  a  rare  event. 

39.  **...  SPECTRAL  FACTORIZATION  OF  EIGENVALUES  NOT  OBTAINED 
**...  SYSTEM  MAY  BE  UNSTABILIZABLE 

This  message  generated  in  the  calculation  of  the  optimal  feedback  matrix  is 
the  result  of  an  eigenvalue  with  a  zero  real  part  preventing  spectral 
factorization.  It  is  the  result  normally  of  an  uncontrol lable  mode  with  an 
eigenvalue  with  a  zero  or  very  small  real  part. 
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40.  **...  MATRIX  IS  SINGULAR 

**...  SYSTEM  PLUS  ADJOINT  EQUATIONS  NOT  DIAGONAL  I  ZABLE  OR 
SYSTEM  IS  UNSTAB ILIZABLE 

This  message  generated  in  the  calculation  of  the  optimal  feedback  matrix  is 
the  result  of  the  set  of  pseudo  eigenvectors  calculated  for  the  partitioned 
eigenvalues  being  singular  in  the  top  block.  This  condition  normally  means 
that  an  unstable,  uncontrollable  mode  existed  in  the  original  system. 
Another,  Dut  rare  possibility  is  that  due  to  multiple  eigenvalues,  the 
system  plus  adjoint  equations  was  not  diagonalizable. 

41.  **...  OR  FAILED  TO  CONVERGE 
**...  SYSTEM  MAY  BE  UNOBSERVABLE 

This  message  is  generated  during  the  calculation  of  the  Kalman  filter  and 
is  the  result  of  the  QR  algorithm  failure  and  is  a  rare  event. 

42.  **...  SPECTRAL  FACTORIZATION  OF  EIGENVALUES  NOT  OBTAINED 
**...  SYSTEM  MAY  BE  UNOBSERVABLE 

This  message  is  generated  during  the  calculation  of  the  Kalman  filter  and 
is  the  result  of  an  eigenvalue  with  zero  real  part  preventing  spectral 
factorization.  It  is  normally  the  result  of  an  unobservable  mode  with  an 
eigenvalue  with  zero  or  very  small  real  part. 

43.  **..  MATRIX  IS  SINGULAR 

**..  SYSTEM  MAY  BE  UNOBSERVABLE 

This  message  is  generated  during  the  calculation  of  the  Kalman  filter  and 
is  normally  the  result  of  an  unstable  unobservable  mode.  Like  the  case  in 
the  gain  matrix  calculation  (Section  4.6.30  of  reference  1),  it  can  rarely 
be  the  result  of  the  system  and  adjoint  equations  being  undiagonalizable. 
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44.  QR  ALGORITHM  FAILRED  TO  CONVERGE 


This  message  occurs  when  during  a  simple  eigenvalue  calculation,  conver¬ 
gence  was  not  obtained.  This  is  a  rare  event. 

45.  SYSTEM  HAS  SINGULAR  ALGEBRAIC  LOOP 

This  message  generated  during  the  adjustment  of  the  controller  is  the 
result  of  cancellation  in  algebraic  feedforward  and  feedback  loops.  It  can 
normally  be  corrected  by  the  use  of  an  alternative  adjustment  method. 

15.  RENAMING  MOOEL  INPUTS  AND  OUTPUTS 

For  some  applications,  it  may  be  desirable  to  rename  the  parameters, 
states,  rates,  and  variables  created  by  EASY5  standard  components.  This 
can  be  done  by  the  following  analysis  program  commands: 

DEFINE  PARAMETERS 
DEFINE  STATES 
DEFINE  RATES 
DEFINE  VARIABLES 


Each  command  is  followed  by  pairs  of  names.  The  first  name  is  the  EASY5 
standard  component  name.  The  second  name  is  the  desired  new  name.  For 
example,  the  outputs  of  the  lag  component  LA  may  be  changed  to  AILERON,  and 
the  lag  gain  and  time  constant  may  be  changed  to  KSERVO  and  TSERVO. 

DEFINE  STATES  =  S2  LA  =  AILERON 

DEFINE  PARAMETERS  =  GAILA  =  KSERVO,  TC  LA  =  TSERVO 

Once  a  quantity  has  been  redefined,  all  references  to  that  quantity  in 
analysis  program  cormiands  must  utilize  the  new  name.  The  subroutine  EQMO, 
which  is  prepared  by  the  EASY5  Model  Generation  Program,  will  still  refer 
to  all  quantities  by  their  original  EASY 5  generated  names. 
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16.  COMPUTING  TYPE  ZERO  TRANSFER  FUNCTIONS  WITH  EASY 


A  continuous  dynamical  system  (with  prescribed  input  and  output  quanti¬ 
ties)  has  a  Type  Zero  transfer  function  if  either: 

1.  A  change  quantity  in  the  input  has  an  immediate  change  in  the 
output  quantity 

or  equivalently: 

2.  The  order  of  the  numerator  of  the  transfer  function  is  the  same 
as  the  order  of  the  denominator 

The  method  currently  used  by  the  EASY  Dynamic  Analysis  Program  is  unable  to 
compute  transfer  functions  of  systems  of  Type  Zero.  This  will  be  remedied 
in  the  future,  but  the  following  provides  an  interim  method: 

A.  In  the  model  description  file: 

1.  Add  a  new  LA  standard  component.  We  will  name  this  component 
LATF  but  you  may  use  any  unused  component  identifier. 

2.  Connect  the  output  of  the  new  LA  component  to  the  original  system 
input  quantity. 

B.  In  the  system  analysis  file: 

1.  Set  the  parameters  for  the  new  LA  component  as 
ZOLATF  =  1  Z I LATF  =  0  POLATF  =  -1.0E28 

2.  Change  the  TF  INPUT  quantity  from  the  original  quantity  to  SI 
LATF 

C.  Submit  job  using  new  model  description  and  analysis  files. 

D.  The  results  of  the  TRANSFER  FUNCTION  analysis  will  provide: 

28 

1.  The  zeros  and  poles  of  the  original  system  plus  a  pole  at  10 
radians  per  second.  This  extra  pole  should  be  ignored. 
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2.  The  frequency  response  will  be  the  correct  frequency  response 

20 

for  the  original  system  up  to  frequencies  above  10  radians  per 
second. 

These  high  frequency  values  can  be  suppressed  from  the  lineprinter 
output  and  the  graphs  by  using  the  TF  MANUAL  SCALES  option. 
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SECTION  IV 


STANDARD  COMPONENTS  AND  EASIEST  SUBROUTINES 

This  section  describes  the  EASIEST  standard  components  available  for 
system  modeling  that  were  designed  from  the  SAFEST  computer  program.  Other 
components  that  may  be  used  by  the  analyst  in  conjunction  with  the  EASIEST 
routines  are  described  in  Appendix  K. 

1.  Standard  Components 

The  following  is  a  list  of  the  EASIEST  standard  components: 

NAME  DESCRIPTION 

AB  Attached  body  (survival  kit) 

AE  Airplane 

AG  Atmospheric  properties 

AM  Aeromedical 

AP  Aerodynamic  plate 

AS  Seat  aerodynamics 

CE  Crewperson 

CS  Airplane  control  surfaces 

CT  Catapult 

DR  DART 

GP  Simple  parachute  mortar  and  restraints 

LI  Parachute  lines 

MP  Parachute  mortar  ana  restraints 

PC  parachute 

RL  Rails 

RS  Restraints 

SE  Seat  equations  of  motion 

SL  Sled 

SP  STAPAC 

SR  Sustainer  rocket 

WB  Weight  and  balance 


"1 


This  .section  gives  an  explanation  of  each  of  the  aforementioned  ejection 
seat  components.  These  descriptions  are  intended  to  assist  the  user  in 
utilizing  them  to  model  escape  systems.  Input/output  tables  and  descrip¬ 
tive  figures  for  each  of  these  components  are  presented  in  alphabetical 
order  in  Appendix  D,  and  should  be  thoroughly  examined  before  modeling  an 
ejection  system. 

A  source  listing  of  the  EASIEST  components  and  associated  subroutines  are 
presented  in  Appendices  G  and  H.  These  listings  have  been  thoroughly 
commented  to  provide  additional  information  on  how  the  algorithms  were 
coded  and  to  assist  in  solving  special  case  errors. 

STANDARD  COMPONENT  AB 

This  component  is  simply  the  equations  of  motion  for  a  point  mass.  It  was 
designed  to  model  a  survival  kit  attached  to  the  crew  member,  but  can  be 
used  to  simulate  any  object  that  might  be  attached  to  the  escape  system. 
Component  restraints  (RS)  is  used  to  restrain  AB  to  its  parent  object.  The 
input/output  list  for  this  component  is  given  in  Appdendix  D.  Inputs 
include  the  forces  and  torques  that  act  on  the  point  mass,  as  well  as  it's 
inertial  properties. 

STANDARD  COMPONENT  AE 

This  component  models  the  EASIEST  airplane.  The  airplane  is  internally 
tririmed  by  the  STEADY  STATE  command  to  the  airspeed  and  altitude  specified 
by  the  user.  Control  surface  and  thrust  commands  that  maneuver  the  air¬ 
plane  after  trim  are  interpreted  as  being  an  addition  to  the  settings 
required  for  trim.  Additional  inputs  include  the  forces  and  torques  from 
the  DART,  rails,  and  catapult  components.  An  example  of  a  model  that  uses 
component  AE  is  given  in  Appendix  N.  Additional  airplane  information  is 
presented  in  Section  IV. 3. 


Component  AE  was  written  to  use  existing  SAFEST  aerodynamic  coefficient 
tables  and  table  look-up  routines  with  the  exception  that  coefficient 


input  data  has  been  reorganized  so  they  contain  the  coefficients  in  the 
following  order: 


NR 

COEFFICIENT 

LOCATION 

NAME 

DESCRIPTION 

1 

CZO 

Z  axis  bias  coefficient 

2 

CZAO 

Variation 

of 

CZO  with  alpha  dot 

3 

CZQ 

Vari ation 

of 

CZO  with  pitch  rate 

4 

CZOE 

Variation 

of 

CZO  with  elevator  position 

5 

CZDA 

Vari ation 

of 

CZO  with  aileron  position 

6 

CXO 

X  axis  bias  coefficient 

7 

CXDA 

Vari ation 

of 

CXO  with  aileron  position 

8 

CMO 

Pitching  moment  bias  coefficient 

9 

CMAD 

Vari ation 

of 

CMO  with  alpha  dot 

10 

CZQ 

Vari ation 

of 

CMO  with  pitch  rate 

11 

CMDE 

Vari ation 

of 

CMO  with  elevator  position 

12 

CMDA 

Variation 

of 

CMO  with  aileron  position 

13 

CYB 

Vari ation 

of 

CY  with  beta 

14 

CYP 

Variation 

of 

CY  with  roll  rate 

15 

CYR 

Variation 

of 

CY  with  yaw  rate 

16 

CYDR 

Vari ation 

of 

CY  with  rudder  position 

17 

CYDA 

Vari ation 

of 

CY  with  aileron  position 

18 

CLB 

Vari ation 

of 

Cl  with  beta 

19 

CLP 

Vari ation 

of 

Cl  with  roll  rate 

20 

CLR 

Vari ation 

of 

Cl  with  yaw  rate 

21 

CLOR 

Vari ation 

of 

Cl  with  rudder  position 

22 

CLDA 

Vari ation 

of 

Cl  with  aileron  position 

23 

CNB 

Variation 

of 

Cn  with  beta 

24 

CNP 

Vari ation 

of 

Cn  with  roll  rate 

25 

CNR 

Variation 

of 

Cn  with  yaw  rate 

26 

CNOR 

Vari ation 

of 

Cn  with  rudder  position 

27 

CNOA 

Variation 

of 

Cn  with  aileron  position 

A  listing  of  the  F4E  airplane  maneuvering  coefficients  modified  to  be  used 
with  EASIEST  is  shown  in  Appendix  J. 


Component  CS  (airplane  control  surfaces)  can  be  used  to  maneuver  the 
airplane.  The  method  employed  to  do  this  is  described  in  this  section 
under  the  heading  STANDARD  COMPONENT  CS.  This  component  is  also  included 
in  the  example  presented  in  Appendix  N. 

STANDARD  COMPONENT  AG 

Component  AG  calculates  the  atmospheric  density  and  the  speed  of  sound, 
while  supplying  the  wind  velocity  to  the  model.  It  should  be  the  first 
component  specified  in  the  Model  generation  Program  input  file,  and  must  be 
included  in  all  EASIEST  models. 

Note  that  variables  H,  BP,  and  TE  must  be  initialized  if  a  non-standard 
atmosphere  is  to  be  used  with  the  model.  Setting  variable  BP  to  zero, 
which  is  it's  default,  establishes  a  standard  atmosphere.  The  wind  vel¬ 
ocity  input  vector  provides  the  capability  to  model  an  ejection  system 
where  adverse  winds  (i.e.,  storm  cells,  turbulence,  down  drafts,  etc.) 
could  be  a  factor  in  an  ejection  seat  design.  This  feature  may  be  valuable 
when  using  the  EASIEST  program  to  investigate  an  aircraft  accident. 

During  initialization  (CALC  XIC  command),  component  AG  establishes  the 
atmospheric  properties  from  the  input  parameters.  Subsequent  passes 
through  the  model  updates  the  wind  vector.  If  a  standard  component  needs 
atmospheric  data,  it  is  acquired  by  a  call  to  subroutine  ATMOS,  which 
refers  to  the  ENTRY  ATMOS  statement  in  component  AG. 

STANDARD  COMPONENT  AM 

This  component  acts  essentially  as  the  interface  between  program  Aeromed, 
the  aeromedical  post  processer,  and  either  component  SE  (seat  equations  of 
motion)  or  CE  (crewperson) .  The  routine  writes  onto  TAPE  7  the  aeromedical 
parameters  and  variables  required  by  Aeromed.  This  process  is  initiated  by 


a  flag  that  is  an  input  into  the  component.  No  more  than  4000  variable 
sets  can  be  written  to  this  tape  at  a  time  interval  no  less  than  0.001 
seconds,  or  the  integrator  report  interval,  TINC,  whichever  is  the 
largest.  {See  Section  III. 4  for  an  explanation  of  TINC.) 

Components  CE  and  SE  both  calculate  the  aeromedical  variables,  and  either 
one  can  be  used  to  drive  the  aeromedical  inputs  in  this  component.  Note 
that  most  of  the  required  parameter  inputs  have  specific  defaults,  which 
can  be  adjusted  by  the  user  if  necessary. 

STANDARD  COMPONENT  AP 

This  EASY  module  calculates  the  seat  body  axis  force  and  torque  components 
acting  on  the  ejection  seat  from  an  attached  object,  such  as  an  airfoil 
device  or  inflatable  afterbody  designed  to  augment  the  stability  of  the 
ejection  seat.  Appendix  0  presents  its  input/output  lists.  Inputs  include 
the  tables  that  define  the  x-axis  and  the  z-axis  force  coefficients,  the 
plate  centroid  in  the  seat  coordinate  system,  and  the  airplane  z-axis 
position  at  the  point  where  the  plate  centroid  enters  the  windstream.  The 
plate  centroid  acts  as  the  origin  of  the  plate  coordinate  system,  and  the 
plate  can  be  rotated  about  this  point  with  respect  to  the  seat.  Figure  22 
provides  an  input/output  overview  for  this  component. 

STANDARD  COMPONENT  AS 

Component  AS  determines  the  aerodynamic  forces  and  torques  that  are 
exerted  on  the  seat.  It  employs  the  same  coefficient  input  data  and  table 
look-up  routines  as  the  SAFEST  program.  The  input/output  information  is 
contained  in  Appdendix  D.  Inputs  include  emergence  coefficients,  the  yaw, 
pitch,  and  roll  damping  derivatives,  and  a  table  that  defines  the  exposed 
area  of  the  seat  as  a  function  of  the  exposed  length  during  emergence. 
Figure  23  presents  a  diagram  that  helps  to  explain  the  function  of  compon¬ 
ent  AS. 


Both  the  rocket  on  and  rocket  off  aerodynamic  coefficient  tables  are  avail¬ 
able  at  any  given  time  to  accommodate  the  situation  where  two  ejection 
seats  are  being  modeled,  one  of  which  has  its  rocket  on,  the  other  off. 
Each  of  these  coefficient  tables  are  hard  coded  into  this  component,  and 
contain  the  six  basic  aerodynamic  coefficients:  the  three  body  axis  force 
coefficients  (CX,  CY,  CZ),  and  the  three  body  axis  torque  coefficients  (Cl, 
Cm,  Cn). 

STANDARD  COMPONENT  CE 

This  EASIEST  standard  component  computes  the  aerodynamic  forces  and 
torques  acting  on  the  percentile  crewperson  that  is  specified  in  the  CE 
input  data.  These  forces  and  torques  are  then  summed  with  the  other  forces 
and  torques  acting  on  him  (parachute  lines,  seat  restraints,  etc.)  to 
determine  the  linear  and  angular  rates  to  be  used  by  the  integrator.  The 
input/output  listings  are  presented  in  Appendix  D. 

Note  that  the  moments  and  products  of  inertia  for  the  crewmember  are 
required  inputs.  The  values  for  these  parameters  should  reflect  the  iner¬ 
tial  properties  of  a  seated  crewmember  whose  percentile  is  approximately 
the  same  as  that  specified  in  the  input  data.  At  seat/crewnember  separa¬ 
tion,  new  moment  and  product  of  inertia  vectors  are  calculated  via  a  table 
look-up  on  data  hard  coded  into  the  component,  with  the  independent  vari¬ 
able  being  the  crew  member  percentile.  The  aerodynamic  reference  area  and 
length  are  also  determined  by  this  table  look-up,  as  is  the  crewmember 
weight.  The  weight  of  the  crewmember's  clothing  and  equipment  is  a  sepa¬ 
rate  parameter  input. 

STANDARD  COMPONENT  CS 

This  component  can  be  employed  to  move  the  rudder,  elevator,  and  ailerons 
of  the  airplane  component  (At).  All  three  control  surfaces  may  be  moved 
simultaneously  or  individually  according  to  the  input  parameters  specified 
by  the  user.  These  parameters  include  the  simulation  time  after  which  the 
control  surface  rates  are  calculated,  the  commanded  position,  and  a  time 


constant  that  is  employed  by  a  first  order  lag  function  to  determine  the 
rates.  The  input/output  data  is  given  in  Appendix  0. 

COMPONENT  CT 

Component  CT  determines  the  forces  and  moments  acting  on  the  seat  and 
airplane  from  a  closed  tube  catapult.  The  states  in  this  module  include 
the  internal  friction  energy,  heat  loss,  catapult  work,  and  the  propellant 
web  consumed.  These  states  are  used  to  calculate  the  internal  temperature 
of  the  catapult,  from  which  the  pressure  is  calculated  by  using  the  equa¬ 
tion  of  state  with  the  chamber  volume  and  the  mass  of  the  burned  propel¬ 
lant.  The  force  can  then  be  calculated  from  the  geometry  of  the  catapult 
pressure  chamber. 

The  input/output  parameters  are  shown  in  Addendix  D,  and  include  the  flag 
for  catapult  ignition,  the  unloaded  catapult  length,  and  the  catapult 
propellant  consumption  table.  Figure  24  presents  an  overview  of  some  of 
the  required  inputs,  and  should  be  helpful  in  visualizing  the  geometry  and 
operation  of  the  catapult.  Note  that  input  TDE  is  available  as  the  time 
interval  over  which  the  catapult  force  decays  to  zero  after  stripoff.  This 
decay  period  should  prevent  the  variable  step  integrators  from  the 
difficulties  associated  with  sudden  rate  changes. 

STANDARD  COMPONENT  DR 

This  standard  component  simulates  the  "DART"  stabilizing  device  that  can 
be  used  by  an  ejection  seat  to  correct  for  adverse  pitch  and  roll  induced 
by  aerodynamic  torques  and  the  offset  caused  by  improper  allignment  of  the 
seat  center  of  gravity  with  the  sustainer  rocket  thrust  vector.  It  is  not 
effective  in  providing  corrective  torques  about  the  yaw  axis. 

The  DART  is  a  simple  device  which  consists  of  a  line  that  is  connected  at 
one  end  to  the  airplane,  and  at  the  other  end  to  a  bridle  attached  to  the 
bottom  of  the  seat.  This  line  passes  through  a  braking  device,  whose  force 
is  calculated  from  a  table  that  is  an  input  into  the  component.  This 


table,  as  well  as  the  other  input/outputs,  are  explained  in  Appendix  D.  In 
addition.  Figure  25  provides  a  descriptive  diagram  for  this  component. 


STANDARD  COMPONENT  GP 

This  standard  component  is  a  simplified  version  of  component  MP  (parachute 
mortar),  in  that  a  table  look-up  is  used  to  find  the  mortar  force  as  a 
function  of  time,  instead  of  the  equation  of  state  method  employed  by  MP. 
The  input/output  list  is  given  in  Appendix  D.  Due  to  a  configuration  where 
the  mortar  force  vector  may  not  pass  through  the  parachute  center  of 
gravity,  inputs  for  both  the  position  of  the  parachute  attachment  point  and 
the  seat  deployment  impulse  arm  are  requ'ed.  In  this  situation,  the  force 
imparted  from  the  gun  to  the  pack  is  assumed  to  act  parallel  to  that  of  the 
gun  impulse  vector. 

Component  GP  also  has  the  task  of  restraining  the  parachute  to  the  seat 
prior  to  mortar  initiation.  When  the  mortar  is  fired,  and  the  chute  is 
propelled  away  from  the  seat,  the  restraint  logic  prevents  the  parachute 
from  moving  perpendicular  to  the  mortar  impulse  vector  until  the  mortar 
reaches  stripoff.  Mortar  stripoff  is  defined  as  the  time  the  mortar  force 
reaches  zero,  which  is  set  in  the  mortar  force  input  table.  When  the 
mortar  reaches  stripoff,  the  forces  and  torques  acting  on  the  seat  and 
parachute  calculated  by  the  restraint  logic  are  set  to  zero.  However, 
these  forces  and  torques  may  be  gradually  reduced  to  zero  over  a  time 
period,  defined  by  input  DCE,  if  desired  by  the  user.  This  capability  was 
included  in  the  component  to  prevent  the  variable  step  integrators  from 
having  difficulty  with  a  sudden  rate  change. 

STANDARD  COMPONENT  LI 

This  component  calculates  the  forces  and  torques  that  are  imparted  from  a 
loaded  parachute  line  onto  an  object  that  is  being  decelerated  by  a  para¬ 
chute.  The  input/output  list  is  shown  in  Appendix  D.  The  inputs  include 
the  states  from  both  the  decelerated  object  and  parachute.  Additional 


87 


inputs  define  the  bridle  configuration  and  the  parachute  line  characteris¬ 
tics. 

The  subroutines  that  are  used  by  component  LI  include  LILOAD,  which  calcu¬ 
lates  the  line  load;  tIBRIDL,  a  routine  that  determines  the  force  applica¬ 
tion  point;  and  LILINE,  an  algorithm  that  calculates  various  line  param¬ 
eters.  LILOAD  is  the  line  model  described  in  reference  2.  Subroutine 
LIBRIDL  can  accommodate  bridles  that  have  one  through  four  attachment 
points.  If  there  is  only  one  attachment  point,  the  force  application  point 
is  set  equal  to  the  position  of  attachment  point  one,  and  the  input  defin¬ 
ing  the  bridle  apex,  namely  APX,  should  be  set  to  zero.  Variables  calcu¬ 
lated  in  LILINE  include  the  parachute  line  length,  defined  as  the  distance 
from  the  stretched  canopy  center  of  gravity  to  the  force  application  point. 

STANDARD  COMPONENT  MP 

This  module  is  the  EASIEST  parachute  mortar  model,  and  closely  resembles 
components  CT  (catapult)  and  RS  (restraints) ,  in  that  logic  similar  to  that 
in  CT  is  employed  to  calculate  the  force  generated  by  a  closed  tube  tele¬ 
scoping  catapult,  while  the  RS  logic  is  used  to  maintain  the  parachute's 
position  on  the  seat  until  the  mortar  is  initiated.  From  mortar  initiation 
until  stripoff,  the  restraint  logic  maintains  the  parachute  on  a  path  that 
is  defined  by  its  seat  attachment  point  and  the  mortar  force  vector. 

Appendix  D  gives  the  inputs  and  outputs  for  this  component.  Inputs  include 
parameters  that  define  the  characteristics  of  the  mortar's  performance  and 
the  spring  and  damping  constants  for  the  restraints.  Input  TDE  is  the  time 
interval  over  which  the  mortar  and  restraint  forces  decay  to  zero.  This 
input  was  included  to  prevent  the  variable  step  integrators  from  having 
difficulties  with  sudden  rate  changes. 

STANDARD  COMPONENT  PC 

This  module  is  the  EASIEST  parachute  model.  It  is  capable  of  modeling 
either  a  drag  chute  or  a  recovery  chute  by  setting  the  input  data  to 
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correspond  to  the  type  of  parachute  desired.  The  inputs  include  variables 
from  components  LI  and  the  parachute  mortar  (GP  or  MP),  as  indicated  in  the 
input/output  descriptions  in  Appendix  0.  Additional  information  concern¬ 
ing  the  input  data  is  presented  in  Figure  26. 

This  component  calculates  rates  for  both  the  parachute  pack,  defined  as  the 
parachute  container  and  the  canopy/lines  contained  within  it,  and  the 
canopy.  Prior  to  linestretch,  the  mass  of  the  canopy  is  set  at  one  pound 
and  driven  to  the  calculated  stretched  canopy  center  of  gravity  by  a 
spring,  whose  characteristics  are  defined  by  input  parameters  CSP  and  DPG. 
After  linestretch,  the  parachute  container  separates  from  the  canopy,  with 
only  the  force  of  gravity  acting  on  it.  However,  since  the  container  has  a 
coordinate  sytem  attached  to  it,  its  rotation  must  be  stopped  to  prevent 
the  Euler  angle  singularity,  an  occurrence  which  reduces  execution  effi¬ 
ciency  when  using  the  variable  step  integrators.  This  is  accomplished  with 
input  DPG,  a  user  defined  vector  which  induces  a  braking  torque  about  all 
three  axes  of  the  pack's  coordinate  system.  Another  input,  TEM,  is  the 
time  duration  over  which  the  aerodynamic  forces  are  factored  during  para¬ 
chute  emergence  into  the  windstream.  It  also  performs  a  similar  function 
when  the  lines  are  severed,  ensuring  variable  step  integrator  efficiency. 

This  algorithm  is  separated  into  three  distinct  phases.  Phase  one  is 
concerned  with  the  parachute  dynamics  prior  to  parachute  launch.  Forces 
acting  on  the  parachute  include  the  mortar  and  the  restraints.  Forces 
acting  on  the  canopy,  which  is  treated  as  a  separated  object,  are  the 
spring  forces  that  maintain  its  position  in  the  pack.  Phase  two  models  the 
parachute  from  launch  to  linestretch.  Forces  that  act  on  the  pack  include 
the  parachute  stripout  force  and  the  aerodynamic  forces.  Forces  that  are 
exerted  on  the  canopy  are  the  spring  forces  that  drive  the  canopy  to  its 
center  of  gravity  position  along  the  parachute  lines.  The  center  of 
gravity  position  is  passed  to  this  component  from  component  LI  (parachute 
lines).  Phase  three  takes  into  account  the  forces  that  act  on  the  canopy 
after  linestretch,  which  include  the  aerodynamic  and  line  forces,  as  well 
as  the  mass  acquisition  force  as  the  parachute  inflates. 


STANOARO  COMPONENT  RL 


This  standard  component  determines  the  forces  and  moments  that  act  on  the 
vehicle  and  the  seat  while  the  slider  blocks  are  in  contact  with  the  rails. 
The  resulting  forces  and  moments  acting  on  the  seat  and  the  vehicle  are  due 
to  rail  elasticity  and  rail  to  slider  block  friction  forces.  The  input/ 
output  table  is  given  in  Appendix  D.  Note  that  states  from  components  SE 
and  the  vehicle  (AE  or  SL)  are  required  inputs,  and  must  be  accounted  for 
by  the  component  hookups  in  the  Model  Generation  Program  input  data.  Other 
inputs  include  the  slider  block  friction  coefficient,  and  the  ejection 
direction  flag.  Figure  27  provides  an  additional  explanation  for  some  of 
the  inputs,  and  helps  to  explain  the  rail/slider  block  geometry. 

STANDARD  COMPONENT  RS 

This  EASIEST  component  is  the  module  which  restrains  one  object  to  another, 
such  as  the  crewmember  to  the  seat.  The  input  and  output  data  is  given  in 
Appendix  D.  The  nomenclature  for  this  component  defines  the  parent  body  as 
that  object  in  whose  coordinate  system  the  attachment  point  is  defined. 
The  second  object  is  referred  to  as  the  attached  body.  The  inputs  to  this 
component  include  the  attachment  point  where  the  attached  body  is  con¬ 
strained.  The  two  bodies  are  held  in  the  relative  position  defined  by  the 
input  data  by  a  set  of  springs  which  exert  both  torques  and  forces  on  the 
constrained  bodies.  The  bodies  are  held  together  until  a  switch  is  set  by 
the  sequencer,  which  is  described  in  Section  IV. 3. 

STANDARD  COMPONENT  SE 

This  component  sums  the  forces  and  torques  that  act  on  the  seat,  and  then 
determines  the  seat  body  axis  angular  and  linear  rates.  The  composite  seat 
inertial  properties  are  fed  to  this  component  from  component  WB  (weight  and 
balance)  if  an  object  is  pinned  to  the  seat,  as  in  the  case  of  the 
sustainer  rocket  (SR).  Otherwise,  the  inertial  properties  are  inputed 
directly  into  the  component.  Note  that  the  equations  cf  motion  were 


90 


written  so  that  the  linear  states  apply  to  the  seat  reference  point  rather 
than  the  seat  center  of  gravity. 

The  input/output  variables  and  parameters  are  given  in  Appendix  D.  All 
pyrotechnic  devices,  such  as  the  catapult,  should  have  their  forces  and 
torques  feed  into  SE  via  the  ports  labeled  FI  and  Tl.  The  forces  and 
torques  sent  to  this  component  from  non-pyrotechnic  sources,  such  as  the 
aerodynamics,  should  use  ports  F2  and  T2.  This  constraint  is  to  help  the 
user  to  organize  the  inputs  into  component  SE. 

STANDARD  COMPONENT  SL 

Component  SL  is  the  EASIEST  sled  model.  The  linear  velocity  and  position 
vectors  should  be  initialized  in  the  Analysis  Program  input  data  by  the 
INITIAL  CONDITIONS  command.  The  angular  velocity  vector  must  be  initial¬ 
ized  to  zero,  as  explained  in  Section  IV. 3.  Note  that  the  names  of  the  SL 
states  have  the  same  names  as  those  of  the  airplane,  simplifying  the 
process  of  interchanging  the  two  vehicles  in  a  model  file.  Appendix  D 
gives  a  list  of  the  input/output  information.  Note  that  the  velocity 
vectors  are  defined  with  respect  to  the  sled  body  axis. 

STANDARD  COMPONENT  SP 

This  component  simulates  the  STAPAC  ejection  seat  stability  device.  It 
consists  of  a  vernier  rocket  motor  connected  to  a  single-degree-of-freedom 
gyroscope.  It  can  be  mounted  on  the  ejection  seat  to  provide  a  correcting 
torque  for  either  an  adverse  yaw,  pitch,  or  roll. 

Appendix  D  supplies  the  input/output  names  assigned  to  this  component, 
while  Figure  28  explains  the  coordinate  systems  attached  to  the  rocket  and 
the  gyroscope.  The  Euler  angles  that  define  the  orientation  of  the  rocket 
and  the  gyroscope  coordinate  systems  in  the  seat  reference  frame  are 
states.  Consequently,  they  must  be  initialized  in  the  analysis  file. 
Proper  initialization  can  model  either  a  yaw,  pitch,  or  roll  STAPAC.  Once 
the  gyroscope  wheel  is  spun  up  and  the  gimbal  uncaged,  the  seat  body  axis 
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angular  velocities  are  projected  onto  the  gimbal  axis.  If  an  angular 
velocity  component  exists  on  the  input  axis  of  the  gyroscope,  as  shown  in 
Figure  29,  the  gyro  processes,  rotating  the  vernier  rock  to  provide  a 
correcting  torque.  The  forces  and  torques  generated  by  this  rocket  are 
then  passed  to  component  SE  (seat  equations  of  motion). 

Figure  29  provides  additional  information  on  the  inputs  to  this  component. 
It  explains  the  biasing  effect  of  the  gimbal  spring,  and  what  is  meant  by 
the  thrustline  offset.  In  addition,  input  TSU  specifies  a  time  duration 
over  which  the  gyroscope  wheel  accelerates  to  its  uncaged  angular  veloc¬ 
ity.  This  prevents  the  variable  step  integrators  from  encountering  an 
extreme  rate  change. 

STANDARD  COMPONENT  SR 

The  purpose  of  this  module  is  to  calculate  the  forces  and  torques  that  act 
on  the  ejection  seat  from  the  sustainer  rocket.  In  addition,  the  inertial 
properties  of  the  rocket  propellant  grain  are  calculated  as  the  rocket 
burns,  and  made  available  to  component  WB  (weight  and  balance)  for  the 
composite  seat  weight  and  balance  calculation. 

Appendix  D  contains  a  list  of  SR  input/output  descriptions.  Figure  30 
presents  a  pictorial  explanation  of  some  of  these  inputs  and  variables.  As 
shown  in  the  figure,  the  rocket  has  a  coordinate  system  attached  to  the 
propellant  grain  center  of  gravity.  In  addition,  the  rocket  nozzle  has  its 
own  corrdinate  system,  with  the  thrust  vector  acting  along  the  negative 
direction  of  its  z-axis.  The  location  of  the  origin  of  the  propellant 
grain  is  with  respect  to  the  seat  coordinate  system,  as  are  its  Euler 
angles.  The  location  of  the  rocket  nozzle's  origin  and  Euler  angles  are 
defined  with  respect  to  the  propellant  grain  coordinate  system.  Because 
the  propellant  weight  is  a  state,  it  must  be  initialized  in  the  analysis 
file. 

During  initialization,  the  specific  impulse  of  the  rocket  and  the  initial 
propellant  moments  of  inertia  are  calculated.  Once  the  rocket  is  switched 
on  by  the  sequencer,  the  force  generated  by  the  rocket  is  determined  by  a 
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table  look-up,  the  propellant  consumption  rate  is  calculated,  and  the 
moments  and  products  of  inertia  of  the  propellant  are  updated  and  rotated 
into  the  seat  coordinate  system. 

An  additional  capability  of  this  module  includes  utilizing  it  to  model  an 
ejection  seat  with  a  "thrust  vector  control"  sustainer  rocket.  This  is 
demonstrated  in  the  model  that  is  presented  in  Appendix  N. 

STANDARD  COMPONENT  WB 

This  EASIEST  component  determines  the  composite  center  of  gravity  and 
inertial  properties  of  the  ejection  seat.  The  sustainer  rocket  propellant 
is  included  in  this  calculation,  but  ejection  seat  components  which  uti¬ 
lize  springs  to  couple  themselves  to  the  seat  are  excluded.  This  component 
can  accommodate  up  to  three  attached  bodies. 

The  input/output  information  for  WB  is  given  in  Appendix  D.  The  inputs 
include  the  number  of  attached  bodies,  the  seat  body  axis  position  vector 
of  the  basic  seat  center  of  gravity,  the  basic  seat  moments  and  products  of 
inertia  about  the  seat  center  of  gravity,  and  the  basic  seat  weight.  In 
addition,  the  seat  system  location  of  each  attached  body  center  of  gravity 
is  a  required  input,  along  with  its  weight,  and  the  moments  and  products  of 
inertia  rotated  into  the  seat  system.  The  outputs  include  the  following 
composite  seat  properties: 

a.  Weight 

b.  Center  of  gravity  in  the  seat  body  axis  system 

c.  Moments  of  inertia  about  the  seat  center  of  gravity 

d.  Products  of  inertia  about  the  seat  center  of  gravity 

These  outputs  are  passed  to  component  SE  to  be  utilized  by  the  seat  equa¬ 
tions  of  motion. 
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2.  SUBROUTINES 


The  EASIEST  subroutines  (not  standard  components)  listed  in  Appendix 
H  that  are  utilized  by  the  EASIEST  standard  components  are  available  to  the 
analyst  for  system  modeling,  and  can  be  used  with  the  FORTRAN  STATEMENTS 
command.  Additional  subroutines,  whose  listings  are  available  in  Volume 
II,  Section  III,  of  this  document,  can  also  be  used  in  system  modeling. 

3.  MODELING  WITH  THE  EASIEST  COMPONENTS 

This  section  covers  modeling  requirements  and  methods  which  must  be 
satisfied  when  an  analyst  models  an  escape  system  with  the  EASIEST  compo¬ 
nents.  It  also  will  help  to  explain  how  to  resolve  certain  problems  that 
may  be  encountered. 

Any  of  the  EASIEST  components  may  be  employed  as  often  as  required  in 
system  modeling.  However,  component  AG  (atmospheric  properties)  must  be 
included  in  all  EASIEST  models,  since  it  controls  a  common  statement  vari¬ 
able  used  by  some  EASIEST  components,  and  supplies  atmospheric  information 
to  PC  (parachute),  AS  (seat  aerodynamics),  CE  (crewperson) ,  and  AE  (air¬ 
plane). 

A  specific  sequence  of  analysis  commands  should  be  followed  to  properly 
define  input  parameters  and  to  initialize  the  model.  The  analysis  file  for 
the  examples  in  Section  VI  and  Appendix  N  demonstrate  this  procedure,  and 
it  is  listed  as  follows: 

(1)  TABLE  -  allows  for  the  input  of  a  required  table. 

(2)  PARAMETER  VALUES  -  precedes  the  defining  of  parameter  values. 

(3)  INITIAL  CONDITIONS  -  permits  the  initialization  of  state  vari¬ 
ables  (seat  velocity,  for  example). 

(4)  CALC  XIC  -  allows  for  the  calculation  of  variables  derived  from 
input  parameters  (the  sustainer  rocket's  specific  impulse,  for 


example).  Parameters  not  defined  after  the  PARAMETER  VALUES 
command  are  set  equal  to  their  default  values. 


(5)  INT  CONTROLS  -  freeze  the  required  states  prior  to  the  issuance 
of  the  STEADY  STATE  command. 

(6)  STEADY  STATE  -  drives  all  objects  attached  to  the  seat  by  the 
restraint  components  to  their  attachment  position,  and  deter¬ 
mines  their  velocities. 

(7)  XIC-X  -  transfers  the  states  calculated  by  the  steady  state  sol¬ 
ver  into  the  initial  conditions  vector. 

(8)  ALL  STATES  or  INT  CONTROLS  -  specifies  which  states  will  be  used 
by  the  subsequent  analysis  commands. 

(9)  Desired  analysis  commands  (SIMULATE,  LINEAR  ANALYSIS,  etc.). 

A  trim  scheme  has  been  devised  to  initialize  the  states  of  the  physical 
objects  attached  to  the  ejection  seat  by  the  restraint  components,  such  as 
the  crewperson  and  the  parachutes.  If  the  sled  or  airplane  is  used  in  the 
component,  the  only  states  that  need  to  be  initialized  are  the  vehicle's 
linear  velocity,  angular  position,  and  the  linear  position  vectors. 
(Note:  The  angular  velocity  vector  of  the  vehicle  must  be  set  to  zero, 
since  the  steady  state  scheme  cannot  accommodate  non-zero  angular  veloci¬ 
ties.)  After  the  CALC  XIC  command  is  given,  all  of  the  vehicle's  states  are 
then  frozen  by  the  INT  CONTROLS  command.  Model  states  that  are  not 
directly  associated  with  the  dynamics  of  physical  objects  must  also  be 
frozen.  These  include  the  states  associated  with  the  catapult  (CT),  mortar 
(MP),  parachute  lines  (LI),  sustainer  rocket  (SR),  and  STAPAC  (SP).  If  any 
of  these  states  are  not  frozen,  the  EASY  steady  state  solver  will  not  be 
able  to  solve  for  a  steady  state,  and  the  command  will  terminate. 
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The  user  must  be  aware  that  the  STEADY  STATE  command  can  calculate  an 
undesired  steady  state,  with  the  seat  driven  to  an  attitude  where  the  plane 
formed  by  the  slider  blocks  is  perpendicular  to  the  rails.  An  inverted 
steady  state  is  also  possible.  This  situation  can  easily  be  avoided  by 
initializing  the  states  of  the  seat  as  near  to  their  steady  state  operating 
point  as  possible. 

Another  method  to  assist  the  steady  state  solver  is  to  set  the  value  of 
parameter  SW  in  component  AG  to  0.0  before  issuing  the  STEADY  STATE 
command.  This  prevents  the  parent  objects  in  the  model  from  "seeing"  the 
forces  and  torques  applied  to  them  by  the  restraint  components.  For 
example,  the  seat  component  (SE)  will  receive  rail  and  catapult  forces  and 
torques,  but  will  not  receive  the  forces  and  torques  from  the  components 
which  restrain  the  crewperson  and  the  parachutes  to  it.  Likewise,  the 
crewperson  will  receive  forces  and  torques  from  the  restraints  which  hold 
him  in  the  seat,  but  will  not  see  any  forces  or  torques  from  anything 
attached  to  him.  Once  a  steady  state  has  been  calculated  with  SW  AG  set  to 
zero,  SW  AG  must  be  redefined  to  a  value  of  1.0,  an  XIC-X  command  given, 
and  then  the  STEADY  STATE  command  repeated.  This  scheme  has  been  included 
in  the  model  only  as  an  additional  capability,  and  as  a  rule  it  does  not 
have  to  be  implemented. 

If  an  analyst  desires  to  determine  the  steady  state  of  a  seat  in  a  model 
where  there  is  no  vehicle  (i.e.,  the  seat  is  unsupported),  then  the  user 
must  perform  the  following  tasks  within  the  previously  described  command 
sequence: 

(1)  Freeze  all  of  the  states  in  component  SE. 

(2)  Define  SW  AG  to  be  equal  to  zero.  (Not  required  if  there  are  no 
objects  attached  to  the  seat.) 

(3)  Set  TM  SE  equal  to  the  desired  earth  frame  linear  trim  velocity. 

(4)  Issue  the  STEADY  STATE  command. 
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(5)  Redefine  SW  AG  to  be  equal  to  one.  (Not  required  if  there  are  no 
objects  attached  to  the  seat.) 

The  parameter  SW  AG,  when  set  to  0.0,  has  the  additional  capability  of 
setting  the  acceleration  of  gravity  to  zero  throughout  the  model.  If  the 
acceleration  of  gravity  is  not  set  to  zero  before  issuing  the  STEADY  STATE 
command  when  the  seat  is  unsupported,  the  restraint  springs  would  have  to 
load  up  to  resist  the  acceleration  of  gravity.  After  unfreezing  the  seat 
states,  the  model  would  no  longer  be  at  a  steady  state  operating  point. 

The  implementation  of  the  airplane  component  requires  a  si ightly  different 
procedure.  The  basic  sequence  of  simulation  commands  outlined  earlier  in 
this  section  should  be  adhered  to;  however,  prior  to  the  STEADY  STATE 
command,  the  only  airplane  states  that  need  to  be  frozen  are  EAPAE(l), 
XAPAE(l),  and  XAPAE(2).  In  addition,  the  states  associated  with  the  con¬ 
trol  surface  component  (CS)  must  be  frozen  if  it  is  employed  in  the  model. 
The  earth  system  trim  velocity  and  altitude  are  required  inputs  into  com¬ 
ponent  AE,  and  should  be  set  to  the  desired  values.  Appendix  N  contains  an 
example  of  an  EASY  model  that  employs  the  AE  component.  The  aforementioned 
method  of  assisting  the  EASY  steady  state  solver  with  SW  AG  is  also  demon¬ 
strated  in  this  example. 

When  component  AE  is  included  in  a  model,  the  airplane  aerodynamic  coeffi¬ 
cients  must  be  made  available  to  it.  The  procedure  used  to  submit  an 
EASIEST  run  that  includes  component  AE  is  explained  in  Section  V.  An 
example  of  a  set  of  coefficients  formatted  for  component  AE  is  given  in 
Appendix  J. 

When  employing  any  of  the  restraint  components  (namely,  RL,  RS,  GP,  or  MP) 
in  a  model,  the  spring  and  damping  constants  associated  with  them  must  be 
defined  in  such  a  manner  as  to  set  the  system's  natural  frequencies  below 
approximately  1000,  and  the  damping  ratios  between  0.6  and  0.9.  The 
recommended  approach  to  do  this  is  to  first  set  the  angular  and  linear 
spring  terms  according  to  the  magnitude  of  the  attached  object’s  inertial 
properties  when  compared  to  those  of  its  parent  object.  In  other  words,  a 
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crewperson  attached  to  the  seat  must  have  larger  spring  constants  than, 
let's  say,  a  parachute  that  is  also  mounted  on  the  seat,  since  the  crew- 
person  has  the  larger  inertial  properties  of  the  two  objects.  The  user 
should  ensure  that  the  spring  terms  are  large  enough  so  that  very  little 
deflection  is  required  to  impart  the  force  required  to  drive  the  attached 
object  along  with  the  escape  system. 

The  example  given  in  Section  VI  can  be  used  as  a  basis  for  establishing  the 
appropriate  spring  and  damping  constants.  The  next  step  is  to  execute  the 
analysis  program  through  a  STEADY  STATE  task,  and  then  investigate  the 
natural  frequencies  and  damping  ratios  to  ensure  they  are  within  toler¬ 
ances.  If  they  are  not,  the  integrator  could  have  difficulties  with  the 
system  during  a  simulation.  Therefore,  the  damping  constants  and  spring 
terms  should  be  manipulated  until  reasonable  results  are  obtained.  Due  to 
the  nature  of  a  complex  model,  such  as  the  one  shown  in  Section  VI,  there 
could  be  some  low  damping  ratios  that  are  very  difficult  to  eliminate. 
Note  that  both  components  CE  and  SE  contain  the  human  spine  model,  whose 
0.2240  damping  ratio  cannot  be  manipulated  by  the  user. 

After  a  simulation  is  made  with  a  variable  step  integrator,  a  time  step 
limitation  count  is  printed  for  each  model  state.  A  time  step  limitation 
occurs  when  the  integrator  encounters  an  extreme  rate  change.  If  this 
should  happen,  the  integrator  reduces  its  timestep  and  performs  a  recovery 
process  to  ensure  simulation  accuracy.  However,  this  can  significantly 
increase  the  central  processor  time  required  for  the  simulation.  Conse¬ 
quently,  many  of  the  EASIEST  components  have  schemes  to  prevent  large 
changes  in  rates.  For  example,  the  catapult  force  can  be  decayed  over  a 
time  period  specified  by  the  user,  instead  of  abruptly  being  set  to  zero  at 
stripoff.  Specific  information  on  components  which  have  this  capability 
is  presented  in  Section  IV. 1. 

The  approach  the  analyst  takes  to  construct  a  complex  system  model  can 
influence  the  amount  of  time  it  requires.  Perhaps  the  most  efficient 
method  is  to  assemble  the  model  a  few  components  at  a  time,  modifying  the 


98 


A 


MiMi 


model  and  analysis  input  files  during  each  design  interation  to  accommo¬ 
date  the  components  being  added.  As  an  example,  the  user  could  construct  a 
model  using  only  the  sled,  rails,  and  seat  components.  Once  this  small 
model  is  verified  by  the  various  analysis  capabilities  available  in  the 
EASY  program,  a  crewperson  component  could  then  be  added,  and  the  checkout 
process  repeated.  This  approach  lends  itself  to  correcting  problems  as 
they  occur,  as  well  as  building  better  designed  models. 

4.  SEQUENCING  AN  EASIEST  MODEL 

During  the  operation  of  an  ejection  seat,  a  variety  of  discrete  events 
occur  that  mark  transition  points  in  the  ejection  sequence.  Examples 
include  the  ignition  of  a  rocket,  the  burnout  of  a  rocket,  and  the  separa¬ 
tion  of  one  object  from  another.  Each  such  event  occurs  when  either  some 
timing  device  within  the  ejection  seat  triggers  it,  an  event  that  occurred 
in  some  other  part  of  the  seat  caused  a  physical  switch  to  be  thrown  wich 
triggers  it,  or  the  event  is  defined  by  the  physical  status  of  all  or  part 
of  the  ejection  seat  and  that  status  has  been  attained.  For  example,  the 
seat  leaving  the  guide  rails  can  trigger  the  sustainer  rocket  ignition,  or 
the  deployment  of  a  parachute  can  trigger  the  sustainer  rocket  ignition,  or 
the  deployment  of  a  parachute  may  be  triggered  by  time  in  one  type  of  seat 
design,  or  by  seat  speed  and/or  altitude  in  another. 

In  order  to  allow  the  EASIEST  program  to  be  used  in  modeling  many  types  of 
ejection  seats,  a  flexible  system  has  been  developed  for  simulating  this 
event  triggering.  The  fundamental  elements  of  this  system  are: 

a.  If  an  event  occurs  in  one  component  and  knowledge  of  this  occur¬ 
rence  is  required  by  other  components,  the  component  in  which 
the  event  occurs  is  provided  with  an  output  which  is: 

(1)  Set  equal  to  zero  if  the  event  has  not  yet  occurred  (or  in 
some  cases,  has  occurred  but  is  no  longer  occurring) 
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(2)  Set  equal  to  one  if  the  event  has  occurred  (or  in  some  cases 
is  now  occurring) 

This  type  of  flag  is  called  an  "event  triggered  flag." 

If  an  event  inside  a  component  is  triggered  by  something  outside 
the  component  (including  time),  then  that  component  has  been 
provided  with  an  input  which  must  be: 


(1)  Set  equal  to  zero  if  the  event  is  not  to  begin  (or,  if 
occurring,  should  stop) 


SECTION  V 


PROCEDURES  FOR  INSTALLING  AND  SUBMITTING 
AN  EASIEST  RUN 


The  purpose  of  this  section  is  to  explain  the  EASY5  installation  procedure 
on  the  ASD  computer,  and  how  to  submit  an  EASIEST  run. 

1.  INSTALLING  THE  EASY5  PROGRAM 

The  source  code  for  the  EASY5  computer  program  and  the  EASIEST 
standard  components  was  delivered  to  AFWAL/FIER  on  tape  L02377.  This  tape 
contains  17  files  in  the  following  order  {the  volume  and  section  where  the 
corresponding  file  listing  resides  is  given  in  parenthesis  where 


appropr 

iate) : 

1. 

EZSTPRC 

-  EASIEST  procedure  file  (Volume  1,  Appendix  F) 

2. 

BACOMPS 

-  Source  for  the  EASY5  standard  components  (not 
EASIEST),  associated  subroutines  and  functions 
(Volume  2,  Section  III. 5) 

3. 

COMPASS 

-  Assembly  Language  Utility  Program  (Volume  2, 
Section  II. 5) 

4. 

EZSTFTN 

-  Source  for  the  EASIEST  standard  components,  asso¬ 
ciated  subroutines  and  functions  (Volume  I,  Appen- 
dicies  G  and  H) 

5. 

FILOADS 

-  Source  for  FILOAD.  (Volume  II,  Section  II. 4) 

6. 

FILDAT 

Input  data  for  FILOAD  (Volume  I,  Appendix  I) 
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7.  EASYS  -  Source  for  the  Model  Generation  program  (Volume  2, 

Section  II. 1) 

8.  EASY5  -  Relocatables  for  the  Model  Generation  Program 

9.  NONSIMS  -  Source  for  the  Analysis  Program  (Volume  2, 

Section  11.2) 

10.  N0NSIM5  -  Relocatables  for  the  Analysis  Program 

11.  NSMPPTS  -  Source  for  the  Printer  Plot  Program  (Volume  2, 

Section  III. 3) 

12.  AEROMED  -  Source  for  the  EASIEST  Aeromedical  post  processor 

(Volume  1,  Appendix  E) 

13.  F4EMAN  -  EASIEST  F-4E  aerodynamic  maneuvering  coefficients 

(Volume  1 ,  Appendix  J) 

14.  MCQRR  -  Model  description  for  the  example  in  Volume  1, 

Section  VI 

15.  ACORR  -  Analysis  file  for  the  example  in  Volume  1, 

Section  VI 

16.  MODAPP  -  Model  description  for  the  example  in  Volume  1, 

Appendix  N 

17.  ANALAPP  -  Analysis  file  for  the  example  in  Volume  1, 

Appendix  N. 

To  execute  the  procedure  to  install  the  entire  EASY5/EASIEST  package  from 
the  delivery  tape,  route  the  following  deck  to  the  ASD  computer  input  queue 
after  instructing  the  tape  library  to  mount  tape  number  L02377: 
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EZ5 ,T300, 101000, CM100000 ,NT1 . D790183 ,EAS1 EST  TAPE  RUN 
REQUEST, TAPE, NT, PE, VSN=L02377 . 

COPYBF, TAPE, TEMP. 

BEGIN, EZSTGEN, TEMP, TPW  =  password  for  proprietary  EASY  source  files. 

This  procedure  will  unload  the  delivery  tape,  compile  the  source  programs, 
and  catalog  all  necessary  files.  In  addition,  a  sample  EASIEST  run  will  be 
submitted,  using  the  same  model  description  and  analysis  files  as  the 
example  in  Volume  I,  Section  VI. 

2.  PROCEDURE  FOR  SUBMITTING  AN  EASIEST  RUN 

The  following  method  provides  a  simple  procedure  for  submitting  an 
EASIEST  run  into  the  batch  input  queue  of  the  ASD  computer: 

1.  Prepare  the  EASIEST  model  description  file  and  the  EASIEST 
analysis  file  as  described  in  the  previous  section.  These  files 
should  be  stored  on  your  account  as  permanent  files. 

2.  From  an  ASD  Intercom  terminal,  which  is  in  the  command  mode, 
attach  the  EASIEST  Procedure  file  using  the  following  command: 

ATTACH, EZSTPRC. 

To  perform  correctly,  this  file  must  be  attached  with  local  file 
name  EZSTPRC. 

3.  To  initiate  the  procedure,  type: 

BEGIN,  SUBRUN, EZSTPRC.mf name, afname,TIME=t, I NOUT = i ,C0RE=c, 
COEF=j ,N0LIST, AEROMED. . 
where: 

a.  "mfile"  is  the  name  of  the  permanent  file  containing  your 
model  description  (this  entry  is  required). 


"afname"  is  the  name  of  the  permanent  file  containing  your 
analysis  data  (this  entry  is  required), 

"t"  is  the  cpu  time  in  seconds  to  be  allocated  for  this  run 
(this  entry  is  required  only  if  you  wish  the  allocation  to 
differ  from  the  default  of  t=100), 

"i"  is  the  input-output  time  in  seconds  to  be  allocated  for 
this  run  (this  entry  can  occur  anywhere  in  the  BEGIN  state¬ 
ment  after  afname  and  is  required  only  if  you  wish  the 
allocation  to  differ  from  the  default  of  i=100), 

"c"  is  the  cpu  core  space  in  octal  to  be  allocated  for  this 
run  (this  entry  can  occur  anywhere  after  afname  and  is  only 
required  is  you  wish  the  allocation  to  differ  from  the 
default  of  c=115000), 

"j"  is  the  name  of  the  permanent  file  which  contains  the 
aerodynamic  coefficients  for  the  EASIEST  airplane.  If  the 
airplane  is  not  included  in  the  model,  "C0EF=j"  should  not 
be  entered. 

If  entered,  "NOLIST”  deletes  the  FTN  listing  from  the 
SUBRUN  procedure.  Do  not  include  this  entry  if  you  wish  the 
FTN  listing  to  be  written  to  output. 

If  specified,  "AEROMED"  executes  the  aeromedical  post¬ 
processor.  To  suppress  execution,  do  not  include  this 
entry. 


SECTION  VI 

EJECTION  SEAT  ANALYSIS  EXAMPLE 


This  section  presents  an  example  of  an  ejection  seat  simulation  for  a  model 
that  was  assembled  using  the  EASIEST  components.  All  of  the  EASIEST 
components  were  employed  in  this  model,  with  the  exception  of  AE 
(Airplane),  CS  (Airplane  Control  Surfaces),  OR  (DART),  and  AP  (Aerodynamic 
Plate).  The  implementation  of  these  four  components  into  a  model  is 
demonstrated  in  Appendix  N,  which  also  includes  a  thrust  vector  control 
system  that  was  added  by  using  the  FORTRAN  STATEMENTS  command. 

Figure  5  presents  the  model  description  file  used  to  define  the  escape 
system  model.  The  instructions  on  how  this  file  was  assembled  are  given  in 
Section  II.  Figure  6  shows  the  flow  chart  that  was  constructed  by  the 
Model  Generation  Program  from  the  instructions  contained  in  the  model 
file.  Figure  7  contains  the  analysis  file  that  was  used  to  define  the 
input  tables  and  parameters.  It  also  initializes  the  states,  and  contains 
the  commands  that  dictate  how  the  model  is  to  be  analyzed.  An  explanation 
of  the  commands  used  by  this  file  is  presented  in  Section  III.  Figures  8 
and  9  show  the  respective  outputs  of  the  steady  state  analysis  and  the 
simulation  analysis.  Printer  plots  are  shown  in  Figure  10. 
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Figure  5.  Model  Generation  Program  Input  File 


Figure  5.  (Continued) 
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Figure  6.  EASY  Schematic 
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Figure  6.  ( Continued ) 
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Figure  6.  ( Continued ) 


EASIEST  EJECTION  SEAT  ANALYSIS  FILE 


Figure  7.  Analysis  Program  Input  File 
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Figure  7.  ( Continued ) 
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Figure  7.  (Continued) 


Figure  7.  (Continued) 
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Figure  8.  Steady  State  Output 
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Figure  8.  ( Continued ) 


Figure  8.  (Continued) 


Figure  8.  (Continued) 
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Figure  9.  (Continued) 


ST  SC  111  *  11.114  EITSE  111  *  riOllE-OI  IUDAM  >  .10107  DREAM 

If  CT  t  1471. 1  UC1CE  III  >  101.14  UCfCE  111  <  14301E-01  ucpce  111 

LCPCE  III  >  til. ||  XCPCE  111  i  .IlllOE-OI  XCPCE  111  =  -1.7041  ECPCE  III 

CPCE  111  •  II. Ill  ECPCE  111  •  .101741-01  XPCPCRC 1 1 1  *  111.14  1PCPCRCI1I 

IPCPCRC 1 1 1  <  -l.tlll  XPCPCDC 1 1 1  >  110.11  IPCPCDCI1I  •  -.11114  XPCI'CDCIll 


! 

i 


UU 

K  O 

Uiiu  iwauMMUO 

p-a,w)p-uift.&.uu 

ncov>cuu^4. 

antwosuKK 


uu 

KO 

HI  144  UlSlMUIUU 

mimd-uxciulo. 

3Nfew09UKM 


IUM1 


uu 


IlMIUUO 
fiw»n<UUfck 
Kt,IAHWQ.a,UU 
MCOUKUUL& 
SMKimOSiukk 


U  U 

SO 

us  ui  tuIttltitUU  uiu* 

M«HW<UUL>i  MM 

HklAUUIL&UU  HO. 

MKOMCUU&&  (AC 

SMftlllOauiKK  DM 


UU 

luaiuuiuu 

“•AKUOU.K 

1P-OQ.4.UO 

)V)<UUft.L 

IPCDKMW 


ui  us  a  us  ui  u  o 

P-MH«<UU  O.O. 
Minp-oa-a.  oo 
OKQIA<UUB.S. 


UU 

SO 

US  Ui  Si  Ui  UI  o  o 
KM4-M<CJUUO. 
MO.M4-Caft.OU 
ocoM<ouaa 
DMkkCDKKK 


«••««  NM-N 

u  u 

UI  UI  a  Ui  Ui  O  Cl 
i-MuiiKUOat 
MuMp-oauuu 
occiifluuoaa 
3<ASSK3M<S<K 


U 


u 


«*NM»N  —IMM  -NPI-n  "MM  "M 


U 


U 


MiUiMiUSKMIWU  Ui 

KnnnMuuui  u m 

MUfcUl-  ft-UU  MU 

OMCMMlkUUft.  OV) 

99MSWUKUSK  03 


I 


127 
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Figure  9.  (Continued) 
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SECTION  VII 

CREATING  AND  MODIFYING  STANDARD  COMPONENTS 

EASIEST  is  a  collection  of  components  designed  to  be  used  with  the  EASY 
Dynamic  Analysis  System  (EASY),  and  any  additions  or  modifications  to  the 
EASIEST  components  should  take  this  into  account.  Before  we  describe  the 
steps  required  to  modify  EASIEST,  we  give  a  brief  introduction  to  the 
structure  of  EASY  emphasizing  the  constraints  that  the  structure  puts  on 
components  used  with  it. 

EASY  consists  of  the  EASY  Model  Generation  Program  and  the  EASY  Analysis 
Program,  plus  various  routines,  files,  and  procedures  to  maintain  and 
execute  these  two  programs.  EASY  uses  the  EASY  Model  Generation  Program 
to  convert  the  user's  model  description  file  into  a  FORTRAN  subroutine 
called  EQMO.  Each  time  a  standard  component  is  specified  in  the  user’s 
model  a  call  is  generated  in  EQMO  to  the  subroutine  with  the  same  two 
character  name  as  the  standard  component  name.  The  EASY  Model  Generation 
Program  generates  these  calls  using  data  contained  in  a  random  access 
file  called  EZSTDBF.  This  file  contains  the  names  and  specif icatons  of 
all  inputs,  outputs,  and  tables  for  each  component.  EQMO  is  used  by  the 
EASY  Analysis  Program  under  direction  of  the  user’s  analysis  file  in  the 
following  way:  given  the  value  of  time  and  the  values  of  all  the  state 
variables  in  the  model,  compute  the  rates  at  which  the  state  variables 
would  be  changing  at  that  time.  Note  that  the  values  of  the  state 
variables  are  not  computed  by  EQMO  or  its  subroutine  (including  standard 
component  subroutines).  The  states  are  computed  by  the  EASY  Analysis 
Program  using  the  rate  data  provided  by  EQMO.  The  rate  data  is  used  in 
different  ways  during  different  analyses  (simulation,  steady  state, 
linear  analysis,  etc.).  Therefore  we  have: 

Constraint  #1.  The  user  should  make  no  changes  to  a  standard 
component  subroutine  or  any  subroutine  called  by  a  standard 
component  subroutine  which  results  in  a  value  to  be  assigned  to 
a  state  variable. 
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Exception:  during  the  CALC  XIC  analysis  the  EASY  Analysis  Program 
expects  EQMO  to  compute  state  variables.  Examples  of  how  to  set  this 
up  can  be  seen  by  examining  the  FORTRAN  code  of  some  of  the  existing 
standard  components. 

Each  standard  component  consists  of  a  FORTRAN  subroutine  in  the  EASIEST 
library  with  the  same  name  as  the  two  character  standard  component  name  and 
three  records  on  a  random  access  permanent  file  EZSTDBF.  If  QZ  was  an  EASIEST 
standard  component,  then  EZSTDBF  would  contain  records  called  QZINPT,  QZOUTP, 
and  QZTABS.  QBTABS  contains  one  word  for  each  table  used  by  the  component 
plus  one  word  containing  the  number  of  tables.  QZOUTP  contains  one  word  for 
each  of  the  component's  output  quantities  plus  one  word  containing  the  nunber 
of  output  quantities.  QZINPT  contains  one  word  for  each  input  quantity 
(excluding  tables)  and  one  word  containing  the  number  of  input  quantities. 
These  records  are  used  by  the  EASY  Model  Generation  Program  to  construct  the 
calls  in  EQMO  to  the  standard  component  subroutines.  The  calling  sequences 
are  constructed  in  the  following  order:  one  entry  for  each  table,  followed  by 
one  entry  for  each  output  quantity,  followed  by  one  entry  for  each  input 
quantity.  The  exception  is  that  an  output  quantity  of  a  component  which  is 
declared  to  be  a  state  variable  will  have  only  one  entry  in  EZSTDBF,  but  will 
have  three  entries  in  the  calling  sequence  of  the  component's  FORTRAN 
SUBROUTINE,  one  for  the  value  of  the  state  variable  itself  (typed  real),  one 
for  the  value  of  the  rate  of  the  state  variable  (real),  and  one  for  a 
integration  control  flag  (integer),  in  that  order.  The  order  of  the  calling 
sequence  generated  must  correspond  to  the  order  of  quantities  in  the 
SUBROUTINE  card  in  the  standard  component  subroutine.  Therefore  we  have: 

Constraint  #2:  Every  change  effecting  the  SUBROUTINE  card  of  the 
standard  component  subroutine  must  be  accompanied  by  a  corresponding 
change  in  the  component's  records  in  EZSTDBF,  and  visa  versa. 

The  steps  required  to  modify  EASIEST  depend  upon  the  type  of  modification 
being  made.  Each  type  is  discussed  below. 


1.  MODIFYING  THE  FORTRAN  SUBROUTINE  OF  AN  EXISTING  STANDARD  COMPONENT 


The  FORTRAN  source  code  for  the  EASIEST  standard  components  is  stored  on 
permanent  file  EZSTFTN  (SN=AFFDL,no  passwords).  This  file  also  contains 
source  code  of  routines  used  by  the  standard  component  routines.  The  contents 
of  this  file  can  be  cataloged  by  editing  the  file  with  INTERCOM  EDITOR  and 
typing: 

L,A, /SUBROUT/ 

The  listing  produced  on  the  terminal  will  be  called  the  "catalog  listing". 

Note  that  function  subroutines  do  not  appear  in  the  catalog.  They  are  located 
at  the  end  of  EZSTFIN,  and  should  not  affect  the  modifying  procedures.  Each 
subroutine  in  the  listing  resides  on  a  separate  record  of  EZSTFTN  and  you 
should  note  the  record  number  of  the  subroutine  you  wish  to  change.  Also,  the 
line  numbers  on  the  catalog  listing  can  be  used  in  conjunction  with  the  line 
numbers  on  the  current  FTN  output  listing  to  locate  the  line(s)  of  EZSTFTN  to 
be  changed. 

Once  the  changes  have  been  made,  the  edit  file  should  be  saved  and  cataloged 
as  a  new  cycle  of  EZSTFTN,  and  the  previous  cycle  should  be  purged  from  the 
disk.  The  EASIEST  library  EZSTLIB  must  now  be  updated  to  reflect  the  changes 
made  to  the  source  code.  To  do  this  attach  file  EZSTPRC  (SN=AFFDL,  PW=PSWD) 
and  type: 

BEGIN, COMPILE, EXSTPRC,n,CODE=cc 

where: 

1.  n  is  the  record  number  of  the  record  on  EZSTFTN  you  changed  (this 
number  can  be  obtained  by  counting  down  on  the  catalog  listing 
described  above), 

2. cc  is  a  two  character  code  used  in  the  output  listing  filename, 

3.  tid  is  identifier  of  the  terminal  into  whose  print  queue  you  wish 
the  FTN  output  listing  placed  (this  entry  is  required  only  if  you 
wish  the  output  listing  directed  to  a  terminal  other  than  the  default 
terminal  AB). 

A  successful  execution  of  this  procedure  means  that  EZSTFTN  has  now  been 
updated  to  reflect  your  change.  If  the  FTN  compiler  does  not  accept  the 
changes  you  made  to  EZSTFTN,  the  COMPILE  procedure  will  leave  the  EASIEST 
library  unchanged  and  make  the  FTN  output  listing  containing  the  error 
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description  available  as  local  file  FTNLIST.  This  file  can  be  examined  from 
the  terminal  using  the  INTERCOM  EDITOR  or  PAGE  utilities.  When  the  trouble  is 
located,  correct  EZSTFTN  and  rerun  the  compile  procedure  as  described  above. 


2.  MODIFYING  THE  RANDOM  ACCESS  FILE  EZSTDBF. 

If  changes  are  made  to  a  standard  component  subroutine  involving  either 
the  number  or  characteristics  of  the  components  inputs,  outputs,  or  tables, 
then  in  addition  to  the  steps  given  in  section  VII. 1  for  altering  the 
component's  FORTRAN  subroutine,  the  component's  EZSTBDF  records  must  be 
altered  so  that  the  EASY  Model  Generation  Program  will  alter  the  generated 
calling  sequences  for  the  component.  EZSTDBF  is  altered  using  a  program  called 
FILOAD  which  in  turn  is  executed  from  an  INTERCOM  terminal  using  a  procedure 
called  DBFMOD  contained  on  the  procedure  file  EZSTPRC.  DBFMOD  requires  the 
user  to  supply  a  permanent  file  containing  all  the  data  to  build  the  record  or 
records  being  modified.  This  file  can  have  any  otherwise  unused  name;  for 
illustrative  purposes  we  will  assume  it  is  called  DBFDATA.  For  each  record  of 
EZSTDBF  being  modified  the  file  DBFDATA  must  contain  the  following  data: 

i.  A  line  describing  the  number  on  entries  in  the  record  in  the  form: 

"xxINPUTS=n",  or  "xxOUTPS=n",  or  "xxTABS=n" 
where  xx  is  the  component  name  and  n  is  the  number  of  inputs,  outputs,  or 
tables. 

ii.  One  or  more  lines  containing  the  names  and  specifications  of  the 
inputs,  outputs,  or  tables  for  the  component.  Each  of  these  lines  (except 
possibly  the  last)  must  contain  entries  for  eight  quantities.  Each  entry 
consists  of  exactly  ten  characters  including  spaces  and  must  begin  in 
columns  1,11,21,31,41,51,61,71,  or  81  of  the  line.  These  entries  must  be 
placed  eight  to  a  line  until  the  specified  number  of  quantities  has  been 
given.  Each  of  the  entries  has  the  following  format: 

Character  Contents 

1-3  the  quantity  name  (inputs,  outputs,  or  tables) 

5-6  the  quantity  row  dimension,  if  any  ( inputs , outputs  ) 

7-8  the  quantity  column  dimension  if  any  ( inputs, outputs) 

9  the  quantity  port  number  if  any  ( inputs, outputs ) 

10  =S  if  a  state  (outputs  only) 

r-?  total  storage  allocation  (tables  only) 

?-?  number  of  independent  variables  (tables  only) 


The  dimensions  can  be  one  or  two  digit  numbers  or  can  be  the  symbols  N  or 
M  which  allows  the  dimensions  of  the  quantity  to  be  set  in  the  model 
description  file.  If  any  input  or  output  quantity  of  a  component  is  to 
have  variable  dimensions,  the  DBFDATA  file  should  also  have  a  seperate 
line  of  the  form: 

MODES  =  xx 

where  xx  is  the  component  name. 

If  more  than  one  record  of  EZSTDBF  is  to  be  modified,  the  input  data  for  each 
re  ord  can  be  placed  on  successive  lines  of  DBFDATA. 

An  easy  way  to  generate  the  file  DBFDATA  is  to  have  the  procedure  DBFMOD 
generate  a  local  file  TMPDATA  which  contains  all  the  input  data  to  build 
EZSTDBF  as  it  is  now.  To  do  this: 

1.  Create  a  permanent  file  DUMPFIL  (no  password)  containing  "DUMP 
FILE"  on  a  single  line  of  text. 

2.  Attach  the  procedure  file  EZSTPRC; 

3.  While  in  INTERCOM  command  mode  type: 

BEGIN, DBFMOD,  EZSTPRC, DUMPFIL .EZSTDBF .TMPDATA 

Upon  successful  completion  of  DBFMOD  you  will  have  a  local  file  TMPDATA 
containing  all  the  input  data  required  to  generate  the  current  version  of 
EZSTDBF.  The  file  DUMPFIL  can  now  be  purged.  Using  the  INTERCOM  EDITOR 
utility,  delete  all  lines  of  TMPDATA  pertaining  to  records  of  EZSTDBF  not 
being  modified,  make  the  desired  changes  to  the  remaining  lines,  and  save  the 
edit  file  as  DBFDATA. 

Once  you  have  the  revised  DBFMOD  input  data  prepared  on  file  DBFDATA  and  have 
cataloged  DBFDATA  on  your  account  (with  no  password),  attach  the  file  EZSTPRC 
as  before  if  you  have  returned  it,  and  type: 

BEGIN, DBFMOD, EZSTPRC, DBFDATA, EZSTDBF 

Upon  successful  completion  of  this  procedure,  EZSTDBF  will  have  been  updated. 
You  may  now  purge  the  file  DBFDATA.  It  is  recommended  that  the  model 
description  file  of  the  next  EASIEST  run  you  submit  contain  the  first  line 

LIST  STANDARD  COMPONENTS 

This  will  cause  the  lineprinter  output  from  that  run  to  contain  a  listing  of 
all  the  input,  output,  and  table  data  for  all  the  standard  components.  From 
this  listing  you  can  verify  that  the  desired  changes  have  been  made  to  EZSTDBF. 
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3.  CREATING  A  NEW  EASIEST  STANDARD  COMPONENT 

Creating  a  new  component  for  EASIEST  consists  of  constructing  the  source 
FORTRAN  code,  merging  that  code  into  the  EASIEST  library  and  constructing  the 
input,  output,  and  table  descriptions  for  the  random  access  file  EZSTDBF. 

The  FORTRAN  source  code  for  the  new  component  subroutine  and  any  new 
subroutines  needed  by  your  component  subroutine  should  be  prepared  on  a 
separate  file  following  the  constraints  above.  This  code  can  then  be  merged 
into  the  EASIEST  source  as  follows: 

1.  Attach  the  file  EZSTFTN  and,  using  INTERCOM  EDITOR  utility,  obtain  a 
"catalog  listing'  of  EZSTFTN  as  described  in  section  VII. 1.  Determine  the 
proper  position  for  your  new  subroutine  so  that  the  "Catalog  listing" 
will  remain  alphabetical. 

2.  Request  a  permanent  file  PF  by  typing: 

REQUEST, PF,*PF 

3.  Copy  the  subroutines  that  are  to  preceed  the  new  subroutine  on  EZSTFTN 
onto  the  file  PF  by  typing: 

COPYCR, EZSTFTN, PF,n 

where  n  is  the  number  of  subroutine  to  preceed  the  new  one.  n  can  be 
obtained  by  counting  down  on  the  "catalog  listing"  of  EZSTFTN. 

4.  Copy  the  source  code  of  the  new  subroutine  onto  PF  using 

C0PY,f ,PF 

where  f  is  the  name  of  the  file  containing  the  new  source  code.  Note  that 
file  f  must  be  attached  before  you  do  the  copy. 

5.  Copy  all  the  remaining  subroutines  from  EZSTFTN  onto  PF  using 

COPYCR, EZSTFTN, pf, 999 

The  terminal  will  respond  with  the  number  of  records  copied.  This  number 
should  be  checked  against  the  "catalog  listing"  to  make  sure  that  all  the 
subroutines  have  been  copied.  As  added  insurance,  use  the  INTERCOM  EDITOR 
utility  to  make  a  "catalog  listing"  of  file  PF  and  check  that  PF  has  the 
expected  structure. 

6.  Catalog  PF  as  new  cycle  of  EZSTFTN  using 

CATALOG, PF, EZSTFTN, RP=999 


150 


7. 


Purge  the  previous  high  cycle  of  EZSTFTN 
PURGE, EZSTFTN 
RETURN, EZSTFTN, PF 

8.  The  new  routine  can  now  be  compiled  and  merged  into  EZSTLIB  using  the 
procedure  COMPILE  as  described  in  section  VII. 1.  If  more  than  one  subroutine  is 
to  be  added,  repeat  the  above  steps. 

To  include  the  input,  output,  and  table  data  for  the  new  component  into  EZSTDBF, 
create  a  permanent  file  DBFDATA  as  described  in  section  VII. 2.  Usually  you  will 
have  to  supply  data  for  three  EZSTDBF  records,  xxINPT,  xxOUTP,  and  xxTABS,  where 
xx  is  the  new  component  name.  However,  if  the  new  component  has  no  quantities  of  a 
certain  type  (inputs,  outputs,  or  tables),  then  no  input  data  of  that  type  need 
be  given.  When  the  file  DBFDATA  is  prepared  and  cataloged  (no  password),  you  can 
execute  the  procedure  DBFMOD  by  typing: 

ATTACH, EZSTPRC. 

BEGIN, DBFMOD, EZSTPRC, DBFDATA.EZSTDBF 
The  terminal  will  type  (among  other  things): 

xx  WILL  BE  ADDED  AS  A  NEW  STANDARD  COMPONENT 
You  should  include  LIST  STANDARD  COMPONENTS  command  in  the  model  descrip¬ 
tion  file  of  your  next  EASIEST  run  to  verify  that  the  inputs,  outputs,  and  tables 
have  been  specified  correctly. 

4.  LIBRARY  EZSTLIB  SIZE  REDUCTION 

Every  time  the  procedure  COMPILE  is  execute,  the  EASIEST  library  file 
EZSTLIB  will  grow  in  size.  When  this  size  becomes  unreasonable  EZSTLIB  should  be 
rebuilt  anew  from  the  source  file  EZSTFTN  by  typing  the  following  sequence  from 
an  INTERCOM  terminal  in  command  mode: 

ATTACH, EZSTPRC. 

BEGIN, COMPALL,  EZSTPRC, EZSTFIN, EZSTLIB 

The  successful  completion  of  this  procedure  will  mean  that  a  new  (smaller)  cycle 
of  EZSTLIB  has  been  cataloged.  The  previous  high  cycle  can  then  be  deleted.  The 
FORTRAN  output  listing  from  the  FTN  compilation  phase  is  left  available  for 
routing  to  a  lineprinter  as  local  file  ALLLIST. 
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SECTION  VIII 

DESCRIPTION  ANO  GUIDE  TO  USE  OF  NUMERICAL  INTEGRATION 


The  purpose  of  this  section  is:  (1)  to  document  changes  (as  they  relate  to 
the  user)  in  integration  methods  used  In  the  EASY  program;  (2)  to  describe 
local  error  control  procedures  in  the  three  automatic  integrators  -  NRKVS, 
STIFF  GEAR,  and  ADAMS;  and  (3)  to  discuss  the  appropriate  use  of  each 
method. 

1.  CHANGES  IN  INTEGRATORS 

Several  inadequacies  in  the  integrators  used  in  early  versions  of 
EASY  were  identified  and  subsequently  remedied  in  the  EASY5  program.  In 
particular,  the  error  control  technique  in  the  NRKVS  integrator  was 
reworked  and  the  Hindmarsh  version  of  C.  W.  Gear's  integrator  was 
implemented.  The  Hindmarsh  version,  called  GEAR,  also  includes  minor 
changes,  such  as  dynamic  dimensioning  and  the  capability  to  input  EASY5 
error  controls. 

The  resulting  set  of  improved  integrators  are  accessed  by  the  EASY5  user 
through  the  integration  method  parameter,  INT  MODE.  INT  MODE  can  be  set  to 
any  integer  from  1  to  6  with  the  default  being  6.  The  six  integrators 
which  are  available  are  listed  below. 

a.  DIFSUB:  The  original  version  of  Gear's  method. 

b.  NRKVS:  The  improved  Runge-Kutta  variable  step  integrator. 

c.  HEUNS:  Second  order  fixed  step  explicit  method. 

d.  Euler:  First  order  fixed  step  explicit  method. 

e.  ADAMS:  Automatic  step-size/order  selection  methods  using  Adams- 
Bashforth  predictor/Adams-Moul ton  corrector  pairs  of  (2nd  through 
12th)  order.  (Non-stiff  option  of  GEAR.) 

f.  STIFF  GEAR:  The  stiffly  stable  GEAR  formulas. 
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The  choice  of  the  best  Integration  method  depends  on  a  number  of  considera¬ 
tions.  User  requirements,  problem  characteristics,  and  the  stability  and 
accuracy  of  the  method  all  must  be  considered.  A  more  complete  discussion 
of  these  considerations  can  be  found  in  standard  texts.  It  is  the  purpose 
of  this  section  to  present  summary  information  to  help  the  user  with  his 
integrator  selection.  The  second  and  third  sections  discuss  accuracy, 
error  control,  and  stability  in  more  detail  and  can  be  consulted  if  inte¬ 
gration  problems  develop  or  simply  to  gain  a  better  understanding  of  the 
processes  involved. 

2.  GENERAL  SELECTION  GUIDELINES 

Many  times  the  best  and  only  way  to  choose  a  method  is  by  trial  and 
error.  Below  are  some  general  observations: 

a.  If  no  special  knowledge  is  available  about  the  system,  try  Method  5: 
ADAMS. 

b.  If  a  large  amount  of  output  is  desired  at  small  time  increments. 
Methods  5  or  6  will  use  interpolation  rather  than  generate  smaller 
time  steps  if  output  points  are  smaller  than  current  step  sizes. 
However  frequent  restarting  will  cause  the  cost  of  an  entire  tran¬ 
sient  simulation  to  increase. 

c.  If  function  evaluation  can  only  be  calculated  at  fixed  time  steps  due 
to  sampling  data  or  tabular  information,  use  Methods  3  or  4.  Method  3 
is  more  efficient  if  the  time  step  is  obviously  small  enough  to 
generate  necessary  accuracy.  Given  a  fixed  time  step,  Method  4  will 
be  more  accurate  than  method  3  provided  hQ  is  within  the  stability 
region  (Figure  II)  for  the  methods. 

d.  If  the  system  has  frequent  derivative  discontinuities  (shocks,  phase 
changes,  hard  step-like  forces,  etc)  Method  2:  NRKVS  is  recormiended. 
Unlike  Methods  5  and  6,  Method  2  is  negatively  impacted  by  a  large 
number  of  output  points  at  small  time  increments  (i.e.,  if  the  output 
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time  increments  are  smaller  than  the  natural  step  size,  then  the 
method  will  be  found  to  use  more  integration  steps  and  thus  be  more 
costly). 


e.  Method  1  is  not  recoimiended.  If  the  system  is  Initially  unstable  or 
discontinuous  and  eventually  is  stiff,  we  recommend  using  Method  2, 
then  switching  to  Method  6  rather  than  using  Method  1. 

f.  If  the  problem  is  stiff  (i.e.,  large  spread  in  eigenvalues).  Method  6: 
STIFF  GEAR  is  reconmended.  This  is  also  the  default  option  if  no 
method  is  specified. 

It  should  be  noted,  however,  that  problems  with  large  eigenvalues  (with 
negative  real  parts)  do  not  automatically  indicate  that  one  should  use 
STIFF  GEAR.  For  example,  consider  the  system: 

(1)  xx  =  -x1 

for  time  0£t£b 

x2  *  -iooox2 

This  is  an  uncoupled  system  (and  mi ghtseemartif  icial ),  but  coupled  systems  often 
display  the  behavior  of  rapidly  damping  components  such  as  X2>  If  one  was 
integrating  (1)  as  a  system  and  the  important  var  i  able  was  and  b  was  large,  then 
a  large  step  size  could  be  used  provided  the  ntmerical  integration  of  X2  was 
damping  to  zero  (i.e.,  stable).  In  such  a  case,  a  STIFF  method  would  be 
appropriate.  On  the  other  hand,  if  b  was  small  (e.g.,  b  *  0.0001)  and  X2  was  the 
component  of  interest  (where relative  accuracy  is  important),  then  an  efficient 
integrator  of  Adams  type  or  perhaps  a  Runge-Kutta  method  would  be  appropriate. 
Thus,  the  decision  to  use  STIFF  GEAR  or  not  depends  on  both  the  user 
requirements  for  accuracy  and  the  eigenvalues  of  the  system. 
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3.  ACCURACY  AND  ERROR  CONTROL 


It  is  useful  to  establish  notation  and  review  some  basic  concepts. 
Consider  the  ordinary  differential  equation  (ODE) 

(2)  X(t)  -  f(t,X(t))  with  a  £  t<b 

with  the  initial  condition  X(a)  =  XQ.  Equation  (2)  is  an  initial  value 
problem.  The  EASY5  program  sets  up  and  solves  first  order  systems  of  such 
equations  (i.e.,  equations  of  the  form  of  equation  (2)  with  X  a  vector  and 
f  a  vector  valued  function).  Initial  value  methods  for  integrating  ODE's 
produce  a  sequence  X-  of  approximations  to  the  solution  X  such  that  X. 

J  J 

X(tj)  where  tQ  3  a  and  tj  -  tj_^  +  hj  for  j  =  1,N.  The  sequence  hj  are 
called  steps  or  step  sizes.  For  Methods  3  and  4  (Heun's  and  Euler's 
methods),  the  step  sizes  are  fixed  throughout  the  integration  and  are  set 
by  the  user  through  the  parameter  TINC.  For  the  other  methods,  the  step 
sizes  are  selected  by  the  integration  algorithm  as  the  integration  pro¬ 
ceeds.  These  "adaptive"  methods  estimate  the  local  truncation  error  at 
each  step  of  the  integration,  accept  cr  reject  the  approximation,  and 
predict  the  next  step  size  to  be  tried.  Local  truncation  error  can  be 
loosely  thought  of  as  the  error  incurred  during  one-step  of  the  integration 
process  given  that  all  previous  approximates  are  exact.  The  order  of  a 
method  is  a  crude  measure  of  accuracy.  A  method  is  said  to  be  of  order  p  if 
it  is  exact  for  pth  order  polynomials.  The  adaptive  EASY5  integrators 
(Methods  1,  2,  5,  and  6)  strive  to  keep  the  step  size  small  enough  to 
insure  reasonable  local  error  which  in  turn  should  produce  a  small  global 
error.  Whether  or  not  the  global  error  is  indeed  small  will  depend  on  both 
the  problem  and  the  stability  of  the  method.  (Stability  is  discussed  in 
the  next  section.) 

The  adaptive  integrators  measure  the  local  truncation  error  by  comparing 
two  estimates  of  the  solution  that  theoretically  differ  in  only  high  order 
terms  from  the  Taylor's  expansion  of  the  solution  over  the  current  step. 
The  details  of  how  this  is  done  in  each  method  is  not  important  here  except 
as  to  how  it  relates  to  the  EASY5  integration  controls.  The  user  is  asked 


to  input  an  array  of  controls  associated  with  each  state  of  the  system  via 
the  ERROR  CONTROL  command.  The  array,  which  we  shall  call  ERROR(I),  is  a 
measure  of  significance  of  the  corresponding  Ith  state  of  the  system.  To 
be  precise  ERROR(I)  is  a  value  below  which  the  Ith  state  is  in  some  sense 
considered  negligible  by  integrators  1,  2,  5,  and  6.  There  are  two  methods 
of  error  control  employed  by  the  four  methods.  Method  2,  NRKVS,  is 
described  first.  Error  control  in  Methods  1,  5,  and  6  are  basically  the 
same  and  will  be  discussed  second. 

In  NRKVS,  the  initial  step  size  HQ  is  chosen  as  a  function  of  TINC.  To  be 
precise  HQ  =  .01  *  TINC. 

Subsequent  step  sizes  are  selected  on  the  basis  of  local  error  control 
estimates.  There  are  a  number  of  refinements  in  NRKVS  that  will  not  be 
discussed;  however,  the  basic  error  control  is  governed  by  the  following 
quantity,  Q, 

(3)  Q  =  max 

(I) 

where  LTE(I)  is  the  local  truncation  error  estimate  for  the  Ith  state  of 
the  solution  as  calculated  by  comparing  a  4th  order  solution  to  a  5th  order 
solution,  X( I)  is  a  recent  history  size  measure  of  the  Ith  state  (initially 
set  to  the  initial  value),  and  ERROR(I)  is  the  user  input  error  control. 
The  integrator  strives  to  make  Q  *  1.  If  Q<1,  the  step  size  on  the  next 
integration  step  is  increased.  If  Q  >  10,  the  current  step  is  rejected  and 
a  new  smaller  step  size  is  calculated  for  another  attempt.  In  order  to 
interpret  the  effect  of  the  input  controls,  ERROR(I),  one  need  only  set  Q  = 
1  (the  desired  value  for  Q)  and  examine  the  relation  (2)  for  the  maximal 
choice  of  I.  That  is,  for  some  I,  if  Q  *  1,  then 

(4)  Q  *  1  = _ LTE(I) _ 

ERROR(I)  +  Jl(I)|  *  ERROR ( I ) 
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Thus  by  rewriting  (4)  we  have  that 

LTE(I)  =  ERROR(I)  +7(1)  *  ERROR(I). 


i.e.,  the  LTE  is  close  to  the  ERROR  +  X*ERR0R.  If  X(I)  has  been  small, 
ERROR  (I)  dominates  the  right  hand  side  of  (4),  and  the  error  control  is 
essentially  absolute  error.  On  the  other  hand,  if  X(I)  is  very  large, 
X( I)*ERR0R( I)  will  dominate;  and  thus  relative  error  is  controlled.  As  a 
rule  of  thumb,  the  user  should  input  the  level  at  which  he  considers  the 
solution  negligible  (i.e.,  tolerably  small  enough  to  ignore).  If  the 
solution  gets  large,  then  log^g(ERROR)  will  roughly  give  the  number  of 
significant  digits  of  accuracy  (locally). 


The  use  of  input  controls  ERROR(I)  differs  for  Methods  1,  5  and  6.  A  local 
truncation  error  LTE  is  computed  by  the  integrator.  The  Euclidean  error  is 
controlled,  i.e., 


2 

is  required  to  be  less  than  (EPS)  where  NEQ  is  the  number  of  equations, 
XMAX(I)  is  the  maximum  of  the  Ith  component  of  X  over  the  course  of  the 
integration.  The  user  impacts  this  control  by  effecting  the  initializa¬ 
tion  of  XMAX(I)  and  the  choice  of  EPS.  EPS  is  chosen  as  follows: 


EPS  =  MIN  ( ERROR ( I ) ) 

(1) 


with  the  constraint  that  EPS  i  .01.  If  ERROR(I)  <  l.E-12  for  all  I,  then 
EPS  is  set  to  l.E-4.  The  initialization  of  XMAX(I)  is  given  by 


XMAX(I)  *  ERROR ( I )  /EPS 
IF  (XMAX(I).EQ.O)  XMAX(I)  *  1. 
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The  net  effect  of  these  initializations  for  EPS  and  the  XMAX  array  result 
in  the  ERROR  array  being  used  in  a  similar  manner  to  its  use  in  NRKVS .  For 
example,  if  EPS  *  .001  and  ERROR  »  .001,  then  XMAX  -  1.0  and  error  control 
is  essentially  absolute  error  until  the  solution  X(I)  exceeds  1.  If  X(I) 
grows  the  error  processing  will  gradually  become  relative  since  XMAX  is  set 
equal  to  X  whenever  X  exceeds  It.  If  the  solution  grows  to  a  maximum 
value,  and  then  decays,  the  error  control  will  be  relative  to  that 
maximum. 

The  user  must  remember  that  EPS  Is  set  by  the  smallest  ERROR ( I ) .  Thus,  in 
a  two  component  system,  if  ERROR(l)  *  .001,  and  ERR0R( 2 )  *  1.0,  the  result¬ 
ing  controls  will  be  as  follows: 

EPS  -  .001;  XMAX(l)  «  1;  XMAX(2)  *  100. 

Thus,  if  X(l)  »  X(2)  *  0  initially  the  Integrator  considers  values  less 
than  0.001  negligible  for  X(l)  and  values  less  than  1.0  negligible  for 
X(2).  This  is  quite  similar  to  what  NRKVS  would  do  with  these  same  inputs 
for  ERROR(l)  and  ERR0R(2) . 

4.  STABILITY 

The  theoretical  basis  for  error  control  and  convergence  of  numerical 
Integration  methods  is  rooted  in  the  underlying  assumption  that  the  step 
size  is  small  (in  fact,  approaching  zero).  In  practice,  of  course,  the 
step  size  is  not  necessarily  small  and  certainly  not  zero.  In  fact,  the 
larger  the  step  size,  the  fewer  the  steps  required,  and  hence,  the  greater 
the  economy  of  integration.  The  behavior  of  integration  methods  when  the 
step  size  gets  large  will  generally  depend  on  both  the  problem  and  the 
"stability"  of  the  method.  All  the  EASY5  integrators  are  at  least  "condi¬ 
tionally  stable".  That  is,  there  exists  a  threshold  size,  hQ,  such  that 
for  steps  of  h<hQ  the  integration  procedure  will  produce  damping  approxi¬ 
mations  to  damping  components.  To  be  precise,  consider  the  equation 

(5)  X(t)  *  XX 
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where  A  is  any  complex  number.  If  X  has  negative  real  part,  the  equation 
is  said  to  be  mathematically  stable,  and  its  solution  may  be  oscillatory 
but  definitely  will  damp  with  time.  Given  a  method,  one  can  calculate  a 
stability  region  in  the  complex  plane  which  depicts  the  region  in  the  h 
plane  for  which  the  integration  scheme  will  produce  a  damping  solution  to 
equation  (5).  That  is,  given  a  A,  the  product  hA  must  be  within  the 
absolute  stability  region  for  the  method  to  produce  a  damping  solution. 
Generally,  if  one  uses  a  step  size  h  outside  this  region  for  more  than  a 
few  successive  steps,  numerical  instability  will  occur  producing  a  diver¬ 
gent  "solution"  even  for  a  stable  system.  This,  in  fact,  often  happens 
with  fixed  step  methods.  Adaptive  integrators  will  automatically  reject 
these  numbers  and  cut  the  step  size,  thereby  increasing  work  (not  because 
of  accuracy)  but  because  of  stability.  For  systems  of  nonlinear  differen¬ 
tial  equations,  in  equation  (5)  corresponds  to  the  eigenvalues  of  the 
system.  In  Figure  11,  the  stability  regions  for  Runge-Kutta  methods  of 
orders  1-5  are  shown.  The  method  will  be  stable  provided  hA  is  within 
these  closed  regions. 

The  region  marked  p=l  is  valid  for  Euler's  method  (No.  4  in  EASY5).  Thus 
If,  for  example,  A  *  -1000,  hA  is  required  to  be  >  -2  in  order  to  produce 
meaningful  results.  This,  in  fact,  implies  that  h  <  .002.  The  region  p=2 
corresponds  to  Heun's  method  which  is  Method  3  in  EASY5.  For  A  =  -1000, 
h  must  also  be  less  than  .002  for  stability.  In  this  case,  since  Method  4 
uses  only  one  function  evaluation  per  step  and  Method  3  uses  two,  the  Euler 
method  would  be  more  efficient  on  X(t)  *  -1000X  if  minimal  accuracy  were 
needed.  On  the  other  hand,  if  extremely  accurate  results  were  required, 
and  the  user  intended  to  use  small  step  sizes  well  within  the  stable 
regions,  then  the  higher  order  accuracy  of  Heun's  method  would  more  than 
justify  its  extra  function  evaluation. 

For  a  certain  class  of  equations  (stiff  equations)  the  eigenvalues  may  vary 
considerably  between  components.  For  example,  consider 

Xj  *  -1000  xl 

x2  *  -x2 
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The  user  often  demands  greater  accuracy  in  than  in  X^.  Assume  for  the 
moment  these  equations  are  coupled.  Then  X^  drives  the  step  size  used  for 
the  system.  It  is  in  this  situation  that  large  stability  regions  are 
desirable,  for  then  a  large  step  size  can  be  used. 

The  p  *  4  and  p  3  5  regions  in  Figure  11  are  then  stability  regions  that 
apply  to  the  Runge-Kutta  method  NRKVS.  The  underlying  method  is  4th  order 
in  NRKVS;  however,  the  error  control  mechanism  performs  an  extrapolation 
to  achieve  a  fifth  order  approximation  to  the  computed  4th  order  estimate. 
The  difference  between  the  two  is  then  used  to  estimate  the  error.  The 
reported  solution  is  the  fifth  order  estimate;  hence  p  -  5  is  the  true 
region  of  interest. 

The  Adams-Moulton  formulas.  Method  5,  have  stability  regions  given  in 
Figure  12  for  orders  3-6.  (The  Adams-Moulton  methods  are  the  corrector  of 
the  predictor-corrector  pairs  used  in  Method  5.)  A  corrector  formula  is 
implicit  and  if  interated  to  convergence,  will  have  the  stability  shown  in 
Figure  12.  However,  the  implementation  of  the  Adams  formulas  in  this  code 
(and  most  Adams'  codes)  uses  prediction  with  only  one  correction.  The 
resulting  stability  regions  are  reduced.  A  sample  of  these  regions  for 
orders  1,  2,  3,  4,  5,  6,  9,  and  10  are  given  in  Figure  13a  through  h.  The 
solid  lines  are  for  the  Adams-Bashforth  predictors;  the  dotted  lines  are 
for  the  Adams-Bashforth  predict  with  the  Adams-Moulton  corrector  of  the 
same  order  (one  correction);  and  the  dashed  lines  are  order  k  predict/order 
k+1  correct.  The  dotted  lines  represent  the  actual  implementation  in 
EASY5. 

Thus  far,  the  stability  regions  discussed  have  all  been  finite  (bounded) 
regions  of  the  plane.  Consequently,  to  remain  in  the  stability  region  of 
the  plane  for  any  A  with  very  large  absolute  value,  one  must  use  a  very 
small  step  size.  The  advantage  of  the  STIFF  GEAR  formulas  (Method  6  in 
EASY5)  is  that  their  stabil ity  regions  have  infinite  extent.  This  is  shown 
graphically  in  Figures  14  and  15  .  For  orders  K=l,2,  these  methods  are  A- 
stable  which  means  that  for  any  A  with  negative  real  part  Ah  will  fall 
within  the  stable  region  for  any  h  >  0.  The  higher  order  formulas 
(Figure  15  )  impose  restrictions  on  the  size  of  the  imaginary  part  of  that 
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allow  for  large  values  of  h.  For  example,  the  sixth  order  formula  requires 
small  h  if  X  is  -1000  +  lOOOi,  but  for  X  *  -1000  the  sixth  order  formula 
is  stable  for  all  values  of  h  >  0.  In  the  EASY5  program,  implementation 
of  STIFF  GEAR  the  order  may  vary  from  one  to  five.  Since  Methods  1,  5,  6 
are  variable  order  codes,  they  will  range  over  various  orders  during  the 
integration.  If  the  eigenvalues  are  close  to  the  imaginary  axis,  Method  6 
will  probably  use  only  orders  1,  2,  and  possibly  3  if  it  is  constrained  by 
stability.  These  highly  stable  methods  generally  require  more  function 
evaluations  than  the  other  methods  mentioned  (due  to  internal  approxima¬ 
tions  to  the  Jacobian  of  the  system  required  to  solve  implicit  equations). 


SECTION  IX 

DISCRETE  SYSTEM  ANALYSIS  TECHNIQUES 


1.  INTRODUCTION 

The  discrete  system  analyses  of  the  EASY  program  are  based  on  the 
state  space  approach  described  by  Kalman  and  Bertram  in  Reference  I  .  The 
EASY  analyses  utilize  the  single  and  multirate  sampling  capabilities  of 
the  original  analysis.  Other  capabilities  such  as  the  analysis  of  nonsyn- 
chronous,  non instantaneous,  multiple  order,  and  random  sampling  are  not 
currently  implemented  in  the  EASY  program.  The  EASY  program  analyses 
parallel  those  of  the  M-DELTA  program.  However,  whereas  the  M-DELTA  pro¬ 
gram  requires  the  user  to  input  the  A  and  B  matrices  that  described  the 
system,  the  EASY  program  calculates  these  matrices  from  a  nonlinear  system 
model  described  in  terms  of  standard  modeling  components. 

Only  the  linear  analyses  of  the  EASY  program  utilize  the  techniques  of 
Kalman  and  Bertram.  Since  only  the  eigenvalues  of  the  system  are  used  in 
these  analyses,  the  system  equations  will  be  simplified  in  the  following 
derivations  by  treating  the  system  as  autonomous. 

2.  SYSTEM  EQUATIONS 

A  discrete  system  may  be  described  by  the  following  three  types  of 
states: 

a.  Continuous  States 

b.  Delay  States 

c.  Sample  and  Hold  States 

The  continuous  states  may  vary  continuously  as  a  function  of  time  and  are 
each  defined  by  a  first  order  ordinary  differential  equation.  Delay  states 
are  defined  at  only  discrete  points  in  time  by  first  order  difference 
equations.  Sample  and  hold  states  maintain  constant  values  except  at 
discrete  points  In  time  where  they  may  jump  to  new  values.  Figure  16  shows 
an  example  of  each  state  type. 
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Let  the  continuous  delay  and  sample  state  be  grouped  together  as  three 
state  vectors: 

lc  V  VECTOR  OF  CONTINUOUS  STATES 
It  8  VECTOR  OF  DELAY  STATES 
Xj  0  VECTOR  OF  SAMPLE  STATES 

The  total  system  state  vector  of  dimension  y  +  8*o  Is  formed  into  the 
single  partitioned  vector: 


X  - 


(1) 


a.  Continuous  System  Stability  Matrix 

Between  sample  Instants,  the  autonomous  system  behavior  is 
described  by: 


X  -  AX 


(2) 


The  system  stability  matrix  A  between  sampling  instants  may  be  expressed  as 
the  partitioned  matrix: 


^cc  9.  Acs 
0  0  0 
0  0  0 


(3) 


The  form  of  the  system  stability  matrix  demnstrates  that  only  the  contin¬ 
uous  states  have  non-zero  rates,  i.e.,  can  change  between  sampling 


instants,  and  that  the  continuous  state  rates  are  functions  of  only  the 
continuous  states  and  sample  states. 

b.  Discrete  System  Transition  Matrix 

At  sampling  instants,  the  system  behavior  is  described  by: 

X(t+)  -  BX(t-)  (4) 

For  a  single  rate  sampling  system,  the  discrete  transition  matrix  8  will  be 
of  the  form: 


B 


i  ;  o  •  o 
fide  i  fidd  !  2 
_fisc  1  fisd  i 


(5) 


The  form  of  the  transition  matrix  at  sampling  instants  demonstrates  that 
the  continuous  states  remain  unchanged,  i.e.,  the  upper  Y  rows  contain 
only  an  identity  matrix.  The  discrete  states  are  functions  of  only  the 
continuous  and  delay  states  at  the  previous  sample  instant. 

c.  Continuous  System  Transition  Matrix 

Equation  (4)  describes  the  instantaneous  changes  that  occur  in 
the  system  at  sample  instants  while  equation  (2)  describes  the  system 
between  sampling  instants.  In  order  to  combine  these  two  types  of  behav¬ 
ior,  we  will  convert  the  continuous  description  of  (2)  into  a  transition 
matrix  that  describes  the  transition  between  two  sample  instants. 
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Expanding  (2): 


ic  "  6cc  ic  +  ^cs  Is 
id- o 
is- a 


Take  Laplace  transform 

sXc(s)  -  Xc(O)  -  AccXc(s)  ♦  AcjXjCs) 
sX^s)  -  3Ld(°)  •  fi 
sXsfsJ  -  Xj(0)  -  0 


Rearrange  terms  to  solve  for  Xc(s),  Xd(s),  and  X$(s): 


Xc(s) 


Xd(s) 

Xs(s) 


[u -aJ'scW)  * 

xd(0} 

s 

xs(o) 


Take  inverse  Laplace  transform: 


XC(T)  »  e— ccT  X c(0)  +ACC-1  Pcct-i]acsXs(0) 
Id(r)  -  3^(0) 

X,(r)  »  X$(0) 
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Equation  (9)  Is  in  the  form  of  a  transition  equation  from  an  initial  time 
to  a  final  time  t  .  It  is  also  of  the  same  form  as  equation  (4)  and  may  be 
written  as: 


X(t)  -  ♦(t)  X(0) 


(10) 


Where: 


♦(t) 


U 

u 

<1 

1 _ 

r:  a :  icc 1  [ 

J  _ _ 

!•*“’  - 1]  i«' 

n 

0 

.  vr . 

•  I ; 

o 

o 

S  o! 

i 

(11) 


When  written  in  this  form,  we  see  that  the  transition  matrix  of  the  system 
between  sampling  instants  is  composed  of  the  exponential  decay  term  e£ccT 
due  to  the  continuous  states  plus  the  effect  of  the  step  input  from  the 
sample  states.  The  discrete  states  are  constant  between  sampling  instants 
as  evidenced  by  the  identity  terms. 

d.  Calculation  of  Continuous  System  Transition  Matrix 

If  the  continuous  system  matrix  has  Y  independent  eigenvec¬ 
tors,  the  exponential  function  At  may  be  expressed  as: 


e*ccT  -  w e-T  W'1 


(12) 


where:  W  modal  matrix  of  Acc  eigenvectors 

A  diagonal  matrix  of  Acc  eigenvalues 

The  second  term  in  the  $  (  t)  matrix  may  be  expressed  as: 
-ec"l[*“ccT  -  i]  its  •  Si'1  [«4T  ' 
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This  spectural  factorization  approach  is  used  by  the  EASY  program  to  cal¬ 
culate  the  transition  matrix  'J'  . 

If  the  continuous  system  stabil ity  matrix  A^c  does  not  have  Y  independent 
eigenvectors,  this  is  detected  by  the  program  and  a  Pade  approximation 
method  is  used  to  calculate  At  .  This  occurs  in  a  continuous  system  in 

c  cc 

which  components  with  exactly  the  same  eigenvalues  appear  in  a  series 
connection.  The  sixth  order  Pade  approximation  is: 


.-cc  -  [i  -  J  Acc  +  jq  Acc2  -  j|g  Acc3]  [i  ♦  |  Acc  ^Acc2  ♦  J55  Acc3 


(14) 


3.  Combined  System  Transition  Matrix 

It  is  proved  by  Kalman  and  Bertram  in  reference  1  that  the  stability 
of  a  periodic  system  is  determined  by  the  eigenvalues  of  the  combined 
system  transition  matrix,  that  is,  the  transition  matrix  that  describes 
one  complete  system  of  the  system  operation. 

a.  Single  Sample  Rate 

For  a  single  sample  rate  system,  the  transition  matrix  would  be 
obtained  by  the  product  of  one  matrix,  as  given  in  (4)  with  one  $ 
matrix  as  given  in  (10).  Such  a  system  is  shown  in  Figure  17.  The 
continuous  system  stability  matrix  for  this  system  would  be: 


-10  0  10 

0  0  0 

0  0  0 


(15) 
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ONE  COMPLETE  CYCLE 

- *(.01*) - 


♦(.01) 


♦  (•01) 


♦  (.01) 


.01  .02 

TIME 


.03 


Figure  18.  Pictorial  Representation  of  Single  Sampling  Rate  Transition  Matrices 
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The  discrete  system  transition  matrix  would  be: 


1.0 

0 

o' 

B  - 

-.009901 

.9900 

0 

-.004975 

1.0 

0 

(16) 


The  continuous  system  transition  matrix  for  this  system  is: 


♦  (.01)  -  e'®1- 


".904837  0  .0951625 

0  1  0 

0  0  1 


(17) 


A  complete  cycle  of  this  system  occurs  after  one  sample  period  as  shown  in 
Figure  18.  The  system  transition  is  given  by: 

X(.01+)  *  ♦(.Ol)BX(O)  -  *(.01+}X(0) 

(18) 

The  total  system  transition  matrix: 


♦  (.«♦) 


’  .90436  .09516  0 

-.009901  .9900  0 
-.004975  1.  0 


(19) 


*(.01+) 


.90436  .09516 

-.009901  .9901 


Note  that  the  final  system  transition  matrix  product  is  shown  as  a  2  x  2 
rather  than  a  3  x  3  matrix.  The  sample  state,  X^,  has  a  zero  colunn  in  the 
final  transition  matrix,  and  therefore,  contributes  nothing  to  the  state 
of  the  system  at  the  next  sample  period.  The  row  and  colunn  corresponding 
to  this  state  may,  therefore,  be  dropped  from  the  total  system  stability 
matrix  at  this  point  in  the  analysis.  This  will  occur  in  general  for  all 
sample  states  in  a  model.  However,  in  order  to  express  the  total  system 
transition  matrix  as  a  simple  product  of  matrices,  it  is  necessary  to  carry 
the  sample  states  along  in  the  matrix  calculation  until  the  final  transi¬ 
tion  matrix  is  formed. 


b.  Integer  Multiple  Sampling  Rate 

For  a  multiple  sampling  rate  system,  we  will  first  consider  the 
special  case  where  the  larger  sample  periods  are  all  integer  multiples  of 
all  smaller  sample  periods.  An  example  of  such  a  system  is  shown  in  Figure 
19.  Here  the  sampling  periods  are:  *  .01  and  =  .04.  Our  objective 

is  to  build  the  total  system  transition  matrix,  ¥  (.04+),  that  spans  one 
complete  cycle  of  the  multirate  system  as  shown  in  Figure  20,  one  complete 
cycle  occurs  for  this  system  after  four  samples  of  the  fastest  sampling 
rate.  The  total  system  transition  matrix,  ¥  (.04+),  can  be  expressed  as: 

*(.04+)  "  [$(-01)  I  01]\04  (22) 

by  means  of  the  transition  property  of  transition  matrices.  For  the 
multirate  case,  there  is  a  ^matrix  for  each  sampling  rate.  The 
multirate  B  matrices  shown  in  (22)  differ  only  slightly  from  the  single 
rate  form  of  C5).  They  are  of  the  form: 


B 


10  0 

— dc  -dd  2. 
—sc  — sd  !$s 


(23) 


The  rows  of  B  T  corresponding  to  discrete  states  which  db  not  change  at 
period  r  are  equal  to  the  corresponding  row  from  an  identity  matrix.  The 


Zb 


m 
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rows  of  8  T  corresponding  to  sampler  states  of  the  period  r  have  zero 
elements  in  B^.  Thus  the  only  difference  between  B_  T  and  the  B  matrix 
shown  in  (5)  is  the  possible  addition  of  ones  on  the  diagonal  of  B„,  for 
those  sample  states  corresponding  to  periods  other  than  r  . 

This  may  be  seen  by  examining  the  matrices  for  the  example  system  of 
Figure  19. 


Continuous  system  stability  matrix: 


0 

0 

0 

0 

0 

LO 


0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 


Discrete  transition  matrix  for  sample  period  .01: 


*.01 


1 

0 

0 

0 

0 

Lo 


o 

l 


o 

0 


-2.994  .8176  0 


0 

18.42 

0 


0 

1 

0 


0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

u 


Discrete  transition  matrix  for  sample  period  .04: 


&.04 


1 

0 

0 


0 

1 

0 


0 

0 

1 


2.560  47.15  2.560 


-8.595  -158.3  -8.595 


0 

0 

0 

.6629 

0 

1 


(24) 


(25) 


(26) 


One  point  should  be  made  regarding  the  model  of  Figure  19.  The  sample 
state  Xg  is  redundant  since  it  Is  in  a  path  that  only  leads  to  other 
discrete  states.  Sample  states  are  normally  used  only  in  paths  that  lead 
from  delay  states  to  continuous  states.  In  order  to  simplify  the  assembly 
of  discrete  system  models,  the  EASY  program  models  of  all  digital  filters 
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contain  a  sample  state  on  their  output.  However,  during  the  calculation  of 
the  B  matrices  by  the  EASY  Analysis  program,  these  samplers  are  treated  as 
being  closed,  for  all  sample  periods  which  are  modulo  their  sample  rate. 
This  causes  the  sampler  Xg  to  pass  information  from  continuous  state  Xg  and 
delay  state  X3  on  to  discrete  states  X4  and  Xg.  Thus,  the  B  ^  matrix  has 
the  correct  no-zero  elements  (4,2),  (4,3),  (6,2),  and  (6,3)  that  would 
occur  if  the  sample  state  Xg  had  been  omitted  from  the  model. 

The  functional  form  of  equation  (22)  can  be  extended  to  any  number  of 
sampling  rates  as  long  as  each  larger  sample  period  is  an  integer  multiple 
of  the  next  lower  sample  period.  Thus  if: 

N2  -  T2/Tl 
N3  -  r3/T2 

(27) 


The  EASY  program  is  currently  dimensioned  for  n  *  10,  i.e.,  up  to  ten 
different  sampling  rates  may  occur  in  one  model. 

c.  Noninteger  Multiple  Sampling  Rates 

For  noninteger  multiple  sampling  rates,  the  simple  expression  of 
(28)  cannot  be  used.  However,  the  same  technique  of  building  up  the  total 
system  transition  matrix  from  a  continuous  system  transition  matrix  and  a 
series  of  discrete  system  transition  matrices  still  applies.  For  example, 
consider  the  system  shown  in  Figure  19  with  sample  periods  of  0.02  and  0.03 
in  place  of  0.01  and  0.04.  Figure  21  shows  a  pictorial  representation  of 
the  transitions  that  take  place  to  complete  a  cycle. 

The  total  system  transition  matrix  can  be  expressed  in  terms  of  the  basic 
transition  matrices  as  follows: 
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' ransition  Matrices- Noninteger  Multiple  Rates 


♦  (.06+)  -  02$(.01)B<Q3$(.01)B  02$2(.01)B  02  B  03 


In  this  case  it  is  necessary  to  introduce  a  continuous  system  transition 
matrix  that  spans  a  period,  .01,  which  is  less  than  the  smallest  given 
sampling  period,  t  ^  =.02.  The  total  system  period,  .06,  is  also  greater 
than  the  largest  given  sampling  period,  r2  =.03. 


In  general,  the  continuous  system  transition  matrix  is  required  for  a 
period,  tq,  which  is  the  greatestcommon  divisor  of  the  sample  periods: 


g.c.d.  (Tj,  t. 


*  *•  V 


The  total  system  period,  Tmax,  will  be  the  least  common  multiple  of  the 
sample  periods. 


•  l.c.m.  (tj,  r2,  . 


In  order  to  form  the  total  system  transition  matrix,  the  quantities  tq  and 
^max  ®re  calculaTed.  The  total  period  Tmax  is  then  scanned  in  increments 
of  tq  and  the  appropriate  power  of  {  tq),  and  B  T  matrices  are  multi¬ 
plied  together  to  form  the  total  system  transition  matrix.  This  capability 
is  not  currently  available  in  the  EASY  program. 
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APPENDIX  A 


EASY 5  -  MODEL  GENERATION  -  COMMANDS 


Format 


Description 


ADD  PARAMETERS  =  »Q2(nl *n2^ 
ADD  TABLES  =  tj,nj,n,t2,n2,n, 

ADD  VARIABLES  =  Q i » cl2 ( nl * n2 ) 
*Coirment  # 

DEBUG 

DIAGNOSTIC  CONTROL  =  n 

END  OF  MODEL 
FORT 

FORTRAN  STATEMENTS 


Add  parameters  to  model  (also  dimensions) 
Add  tables  to  model 

Add  variables  to  model  (also  dimensions) 
Add  comment  to  model  description 
Add  debug  print  statements  to  model 
Control  diagnostic  printout  from  model 
genera  -  ->n  program 
Specify  end  of  model  description 
Specify  user  Fortran  Component 
Specify  start  of  FORTRAN  statements 


INPUTS  =  Cl(qout  =  q.n), 
F0RT<%ut  = 

LIST  STANDARD  COMPONENTS 
LOCATION  =  n2  n3 
Matrix  arithmetic  # 

MODEL  DESCRIPTION  =  test 
O.C.  ANALYSIS 
O.C.  CRITERIA  =  qj,q2,... 
O.C.  INPUTS  =  qL,q2 
O.C.  MODEL  ORDER  =  n 

O.C.  ORDER  =  n 

O.C,  OUTPUTS  =  qlfq2,... 


Specify  source  of  inputs  to  components 

Request  listing  of  standard  components 
Specify  component  location  on  schematic 
Compact  Matrix  Algebra 
Specify  start  of  model  description 
Specify  only  analyses-no  O.C.  DESIGN 
Specify  O.C.  criteria  variables 
Specify  O.C.  input  variables 
Specify  model  order  to  be  used  for  O.C. 
DESIGN 

Specify  optimal  controller  order 
Specify  O.C.  output  variables 


Format 


Description 


PRINT 

Standard  Components  # 

C,N  =  Op  M  =  n^ 

TABLE  DIMENSION  =  t^, 

tg^ > ■ * • 

/*EOR  # 

#Not  a  command 

Modifier  Notations 
Cj  -  Standard  component  name 
Lj  -  Line  of  FORTRAN  source  code 
n^  -  Integer  number 

-  Input  or  output  quantity 
name 

ti  -  Table  name 


Request  printed  model  output 

Standard  Components - see  list 

Dimension  Standard  Component 
Specify  table  standard  component 
Table  dimensions 

End  of  record  for  mini -time-share  file 


Phrase  Delimiters 
=  equal  sign 
,  comma 

(  left  parenthesis 

)  right  parenthesis 
three  or  more  blanks 
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APPENDIX  B 

1 

EASY 5  - 

ANALYSIS  -  COMMANDS 

■ 

ALL  STATES 

Activate  _al_L  model  states  (DEFAULT) 

; 

CALCOMP 

Requests  plots  on  CalComp  plotter 

CALC  XIC 

Allows  manual  I.C.  calculations 

DEFINE  PARAMETERS  =  P1=P2»... 

Define  parameter  names 

! 

DEFINE  RATES  =  r.=r2,... 

Oefine  rate  names 

f 

V 

DEFINE  STATES  =  s^s^... 

Define  state  names 

\ 

DEFINE  VARIABLES  =  v^,... 

Define  variable  names 

DESIGN  O.C. 

Initiate  optimal  controller  design 

DISPLAYi  i  =  1,2, 3, 4, 5,6 

Specify  quantities  to  be  plotted 

| 

qv  vs,  TIME 

(5  plots/display  6  displays  =  max  30  plots 

'  I 

Max 

3000  points/display  set) 

q2’vs,q3 
•  • 

•  ■ 

EIGEN  SENSITIVITY 

Initiate  eigenvalue  sensitivity 

calculation 

EIGEN  PARAMETER  =  p1 

> 

ERROR  CONTROL  =  s^,... 

Specify  integrator  error  controls 

INITIAL  CONDITIONS  =  s^,... 

Specify  initial  conditions/operating 

point 

INITIAL  TIME  =  n 

Specify  initial  value  of  time 

INT  CONTROL  =  s^,... 

Activate  or  freeze  model  states 

LINEAR  ANALYSIS 

Initiate  linear  analysis 

Matrix  Parameters* 

Input  matrix  parameter  values 

MTS  PLOTS 

Requests  plots  on  MTS  plotter 

NO  STATES 

Freeze  all_  model  states 

O.C.  DATA 

Input  optimal  controller  data 

j 

YOP ; UOP ; Q;RU ; CD ;  J 

CS;G;S;A;FK  j 

_  _ 
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I 

OMIT  PLOT  POINTS 
OMIT  TABLE  PRINTOUT 
PARAMETER  VALUES  = 

PLOT  ALL  TABLES 
PLOT  ID  =  text 
PLOT  OFF 
PLOT  ON 

PLOT  TABLES  =  tj.tg,... 

PRINT 

PRINT2 

PRINT  VARIABLES  =  q,,...c 


PRINTER  PLOTS 
ROOT  LOCUS 

RL  PARAMETER  =  p 
RL  START  =  n 
RL  STOP  =  n 
RL  POINTS  =  n 
RL  MANUAL  SCALES 
REAL  MIN  *  n 
REAL  MAX  =  n 
IMAG  MIN  =  n 
IMAG  MAX  *  n 
RL  AUTO  SCALES 


Omit  boxes  around  plot  points 
Omit  print  back  of  table  inputs 
Input  parameter  values 
Request  plots  of  a_l_l_  tables 
Specify  plot  identification 
Deactivate  plotting  (DEFAULT) 

Activate  plotting 
Requests  plots  of  specified  tables 
Initiate  single  pring  pass  through  model 
Specify  second  print  option 
Specify  columnar  option  print  variables 
(PRINT  C0NTR0L=5) 

Requests  plots  on  line  printer 
Initiate  root  locus  analysis 
Specify  root  locus  parameter 
Specify  initial  value  of  RL  PARAMETER 
Specify  final  value  of  RL  PARAMETER 
Specify  number  of  root  locus  points 
Request  manual  root  locus  plot  scales 
Real  axis  minimum  scale  value 
Real  axis  maximum  scale  value 
Imaginary  axis  min.  scale  value 
Imaginary  axis  max.  scale  value 
Request  auto  plot  scales  (DEFAULT) 


SAVE  O.C. 


Write  optimal  controller  arrays  to  TAPE3 


SCAN1 
DEPEN  =  q 
START2  =  n 
DELTA2  =  n 
CURVES2  =  n 

(Also  requires  DEPEN,  INDEP1, 
STARTI,  STOPI) 


Initiate  one  dimensional  function  scan 
Specify  2nd  dependent  variable 
Specify  initial  value  of  INDEP2 
Specify  increment  size  for  INDEP2 
Specify  number  of  values  for  INDEP2 


SC 40 20 

SIMULATE 

PRINT  CONTROL  =  n 
PRINT2  =  n 
PRATE  =  n 

PRATE2  =  n 
OUTRATE  =  n 
0UTRATE2  =  n 
I NT  MODE  =  n 
TINC  =  n 
TINC2  =  n 
TMAX  =  n 

SI  MANUAL  SCALES 
SI  AUTO  SCALES 

STABILITY  MARGINS 
SM  PARAMETERS  =  p^.-.p 

STEADY  STATE 

SS  PARAMETER  =  p 
SS  START  =  n 
SS  STOP  =  n 
SS  POINTS  =  n 
SS  ITERATIONS  =  n 
SS  MANUAL  SCALES 
SS  AUTO  SCALES 


TABLE  =  t  ,n  ,n  ,n 
(table  data) 

TITLE  =  text 


Request  plots  on  SC4020  microfilm 

Initiate  simulation  (Time  History) 
Specify  print  option 

Request  printout  every  n  plot 
interval s 

Request  plot  points  every  n*TINC 

Specify  integration  method 
Specify  integrator  report  interval 

Specify  time  history  duration 
Request  manual  simulation  plot  scales 
Request  auto  plot  scales  (DEFAULT) 

Initiate  stability  margin  calculation 
Specify  stability  margin  parameters 

Initiate  steady  state  calculation 
Specify  SS  parameter  (optional) 

Specify  initial  value  of  SS  PARAMETER 
Specify  final  value  of  SS  PARAMETER 
Specify  number  of  SS  calculations 
Specify  number  if  iterations  to  be  used 
Request  manual  plot  scales 
Request  auto  plot  scales  (DEFAULT) 


Input  tabular  data 


Specify  plot  title 


1 1  ■  mil  ninifUiftir^ - 
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TRANSFER  FUNCTION 
TF  INPUT  =  q 

TF  OUTPUT  =  q 

BODE 

NICHOLS 

NYQUIST 

TF  MANUAL  SCALES 
FREQ  MIN  =  n 
FREQ  MAX  =  n 
TF  AUTO  SCALES 


Initiate  transfer  function  calculation 
Specify  transfer  function  input 

quantity 

Specify  transfer  function  output 

quantity 

Request  Bode  format  for  plots 
Request  Nichols  format  for  plots 
Request  Nyquist  format  for  plots 
Request  manual  plot  scales 

Specify  minimum  frequency  r.p.s. 
Specify  maximum  frequency  r.p.s. 
Request  auto  plot  scales  (DEFAULT) 


XIC-X 


Transfer  state  to  initial  condition 
vector 


XICrXIC  i=l,2,3 


XIC-XICj  1-1,2, 3 
/*E0F 


Transfer  XIC  to  one  of  3  storage  vectors 

Retrieve  XIC  from  one  of  3  storage 
vectors 

End  of  file  for  mini-time-share  file 


#Not  a  Coumand 

Modifier  Notations 
n^  -  numeric  value 
p.j  parameter  name 

q^  -  parameter,  variable,  state,  or 

-  rate  name 

-  state  name 
ti  -  table  name 

v.j  -  variable  name 


Phrase  Delimiters 
=  equal  sign 
,  comma 

rate  name  (  left  parenthesis 
(  right  parenthesis 
three  or  more  blanks 
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APPENDIX  C 


ANALYSIS  CHECKLISTS 

Before  requesting  any  of  the  EASY5  analyses,  certain  program  commands 
should  be  issued  to  assure  that  the  analysis  will  be  successful.  These 
program  commands  will  place  the  system  model  in  the  proper  configuration 
and  complete  the  analysis  specification.  The  following  pages  provide 
check  lists  of  program  cotimands  that  snould  be  considered  before  request¬ 
ing  each  analysis.  The  analyses  are  listed  in  alphabetical  order. 

LINEAR  ANALYSIS 


Model  Data 

TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 


Integrator  Configuration 
INT  CONTROL 
ERROR  CONTROL 


Model  Data 


O.C.  DESIGN 


TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 

O.C.  DATA:  YOP,UOP,q,RU,CD,CS 


Integrator  Configuration 
ALL  STATES 
ERROR  CONTROL 
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*.i.r  ,r  ■■mi*— 


ROOT  LOCUS 


Model  Data 

TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 


Integration  Configurations 
INT  CONTROL 
ERROR  CONTROL 


Root  Locus  Specifications 
RL  PARAMETER 
RL  START 
RL  STOP 
RL  POINTS 


Output  Controls 

RL  MANUAL  SCALES 
RL  AUTO  SCALES 
REAL  MIN 
REAL  MAX 
IMAG  MIN 
I MAG  MAX 


SCAN!,  SCAN2 


Model  Data 
PARAMETER  VALUES 
TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 
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Scan  Specifications 
OEPEN 
IN0EP1 
IN0EP2 
START1 
e  ST0P1 
START2 
DELTA2 
CURVES2 


Integration  Control 
TINC 
TMAX 

INT  MODE 
ERROR  CONTROL 
INT  CONTROL 

Output  Controls 
OUTRATE 
PRATE 

PRINT  CONTROL 
DISPLAY1,  2,  3,  4,  5 
PLOT  ON 
PLOT  TITLE 
PLOT  ID 

SI  MANUAL  SCALES 
SI  AUTO  SCALES 
PRINTER  PLOTS 
PRINT2  FROM,  TO, 


SIMULATE 


TINC2 


0UTRATE2 

PRATE2 

PRINT2 
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STABILITY  MARGINS 


Model  Data 

TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 

Integration  Configuration 
INT  CONTROL 
ERROR  CONTROL 

Stability  Margin  Specification 
SM  PARAMETERS 

STEADY  STATE 

Model  Data 

TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 

Integration  Configuration 
INT  CONTROL 
ERROR  CONTROL 

Note:  Steady  state  cannot  be  found  for  system  with  eigenvalue  at  origin. 

Output  Controls 

PRINT  CONTROL 
DISPLAY1,  2,  3,  4,  5,  6 
PLOT  ON 
PRINTER  PLOT 
PLOT  TITLE 
PLOT  ID 

SS  MANUAL  SCALES 
SS  AUTO  SCALES 


r 


i 


f 

Steady  State  Specifications 
SS  PARAMETER 
SS  START 
SS  STOP 
SS  POINTS 
SS  ITERATIONS 


TRANSFER  FUNCTION 


Model  Data 

TITLE 

PARAMETER  VALUES 
TABLES 

INITIAL  CONDITIONS 

Integrator  Configuration 
INT  CONTROL 
ERROR  CONTROL 


Transfer  Function  Specification 
TF  INPUT 
TF  OUTPUT 

BODE,  NICHOLS,  NYQUIST 

Output  Controls 

TF  MANUAL  SCALES 
TF  AUTO  SCALES 
FREQ  MIN 
FREQ  MAX 
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APPENDIX  D 


EASIEST  INPUT/OUTPUT  LISTS  AND  ASSOCIATED  FIGURES 


This  appendix  contains  input  and  output  tables  for  all  the  EASIEST  standard 
components.  Descriptive  figures  are  also  presented  for  the  more  complex 
components . 


194 


AB 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

WT 

WEIGHT  OF  THE 

ATTACHED  BODY 

LB 

BMI (3) 

ATTACHED  BODY 

MOMENTS  OF  INERTIA 
( IXX, IYY, IZZ) 

SLUG-FT 

BP 1(3) 

ATTACHED  BODY 

PRODUCTS  OF  INERTIA 
( IXY, IXZ, IYZ) 

SLUG-FT 

FAB(3)* 

RS 

X,Y,Z  BODY  AXIS 

FORCE  COMPONENTS 

LB 

TAB (3)* 

RS 

X,Y,Z  BODY  AXIS 

TORQUE  COMPONENTS 

FT-LB 

FAU ( 3 ) * 

AUXILIARY  X,Y,Z 

BODY  AXIS  FORCE 

COMPONENTS 

LB 

TAU(3)* 

AUXILIARY  X,Y,Z 

BODY  AXIS  TORQUE 

COMPONENTS 

FT-LB 

TRM(3)* 

RS 

X,Y,Z  PARENT  BODY 

EARTH  VELOCITY  COM¬ 
PONENTS  FOR  CALCULATING 

THE  LINEAR  POSITION 

RATES  DURING  TRIM 

FT/ SEC 

♦Default  value  a  0 
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PORT 


NAME  NO. 

DESCRIPTION 

UA8(3)* 

X,Y,Z  BODY  AXIS 
LINEAR  VELOCITY 
VECTOR  OF  THE 
ATTACHED  BODY 

XAB(3)* 

X,Y,Z  EARTH  LINEAR 
POSITION  VECTOR  OF 
THE  ATTACHED  BODY 

WAB ( 3 )* 

X,Y,Z  BODY  AXIS 
ANGULAR  VELOCITY 
VECTOR  OF  THE 
ATTACHED  BODY 

EAB ( 3 ) * 

EARTH  TO  ATTACHED 
BODY  EULER  ANGLES 
(YAW,  PITCH,  ROLL) 

*These  output  quantities  are  states 


AB 

UNITS 
FT/ SEC 

FT 

DEG/SEC 

DEG 
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NAME 


PORT 

NO. 


NORMALLY 

DRIVEN 

BY 


DESCRIPTION 


UNITS 


AM 

AIRPLANE  WEIGHT 

LB 

B 

WINGSPAN  OF  AIRPLANE 

FT 

C 

MEAN  AERODYNAMIC  CHORD 

FT 

S 

REFERENCE  AREA 

FT2 

XCP 

AIRPLANE  X-AXIS  POSITION 

OF  THE  CENTER  OF  PRESSURE 

FT 

AMI (3) 

MOMENT  OF  INERTIA  VECTOR 
ABOUT  THE  AIRPLANE  C.G. 
(IXX,IYY,IZZ) 

SLUG-F1 

API (3) 

PRODUCT  OF  INERTIA  VECTOR 
ABOUT  THE  AIRPLANE  C.G. 
(IXY.IXZ.IYZ) 

SLUG-F1 

THR* 

EXTERNAL  THRUST  SETTING 

LB 

AIL* 

EXTERNAL  AILERON  SETTING 

DEG 

ELE* 

EXTERNAL  ELEVATOR  SETTING 

DEG 

RUD* 

EXTERNAL  RUDDER  SETTING 

DEG 

XEN (3 ) 

X, Y,Z  AIRPLANE  BODY  AXIS 
POSITION  VECTOR  OF  THE 

ENGINE 

FT 

END (3) 

AIRPLANE  BODY  AXIS 

DIRECTION  COSINES  OF  THE 
ENGINE  THRUST  VECTOR 

— 

TAL 

DESIRED  TRIM  AIRPLANE 
ALTITUDE 

FT 

TVE 

DESIRED  TRIM  AIRPLANE 
VELOCITY 

FT/ SEC 

♦Default  value  s  0 


AE 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

FRA(3)* 

1 

RL 

X.Y.Z  AIRPLANE  BODY 

AXIS  FORCE  COMPONENTS 

ACTING  ON  THE  AIRPLANE 

FROM  THE  RAILS 

LB 

TRA(3)* 

1 

RL 

X.Y.Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
RAILS 

FT-LB 

FCA(3)* 

1 

CT 

X.Y.Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
CATAPULT 

LB 

TCA(3)* 

1 

CT 

X.Y.Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
CATAPULT 

FT-LB 

FDA (3)* 

1 

DR 

X.Y.Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 

DART 

LB 

TDA(3)* 

1 

DR 

X.Y.Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 

DART 

FT-LB 

FRA(3)* 

2 

RL 

X.Y.Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
RAILS 

LB 

TRA(3)* 

2 

RL 

X.Y.Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
RAILS 

FT-LB 

FCA(3)* 

2 

CT 

X.Y.Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
CATAPULT 

LB 

♦Default  value  =  0. 
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AE 


NORMALLY 


NAME 

PORT 

NO. 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TCA(3)* 

2 

CT 

X,Y,Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 
CATAPULT 

FT-LB 

FDA(3)* 

2 

DR 

X,Y,Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 

DART 

LB 

TDA(3)* 

2 

DR 

X,Y,Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  ACTING 

ON  THE  AIRPLANE  FROM  THE 

DART 

FT-LB 

CPF 

PRINT  FLAG  FOR  THE  AERO¬ 
DYNAMIC  COEFFICIENTS 

- 

♦Default  value  *  0 
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NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

UAP (3 ) * 

X,Y,Z  AIRPLANE  BODY  AXIS 
LINEAR  VELOCITY  VECTOR 

OF  THE  AIRPLANE 

FT/SEC 

XAP (3)* 

X,Y,Z  EARTH  LINEAR  POSITION 
VECTOR  OF  THE  AIRPLANE 

FT 

WAP (3)* 

X,Y,Z  AIRPLANE  BODY  AXIS 
ANGULAR  VELOCITY  VECTOR 

OF  THE  AIRPLANE 

DEG/SEC 

EAP(3)* 

EARTH  TO  AIRPLANE 

EULER  ANGLES  (YAW,  PITCH, 
ROLL) 

DEG 

TRM(4)* 

TRIM  CONTROL  SETTINGS 

1)  THROTTLE 

2)  AILERON 

3)  ELEVATOR 

4)  RUDDER 

ALP 

AIRPLANE  ANGLE  OF  ATTACK 

DEG 

BET 

AIRPLANE  SIDESLIP  ANGLE 

DEG 

VM 

AIRPLANE  MACH  NUMBER 

- 

ALT 

AIRPLANE  ALTITUDE  ABOVE 

SEA  LEVEL 

FT 

♦These  output  quantities  are  states 


AG 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

H 

REFERENCE  ALTITUDE  WITH 
RESPECT  TO  SEA  LEVEL 

FT 

W IN ( 3 ) 

X.Y.Z  INERTIAL  SYSTEM 

WIND  COMPONENTS 

FT/SEC 

BP* 

BAROMETRIC  PRESSURE  AT 
REFERENCE  ALTUTIDE 

IN  HG 

TE 

TEMPERATURE  AT  REFERENCE 
ALTITUDE 

DEG  F 

SW** 

GRAVITY  SWITCH  FOR 
UNSUPPORTED  SEAT 

0  =  GRAVITY  OFF 

1  =  GRAVITY  ON 

• 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

VS 

VELOCITY  OF  SOUND 

FT/SEC 

RHO 

AIR  DENSITY 

SLUG/FT' 

♦Default 
**Def ault 

value  =  0 
value  =  1 

NOTE:  H,  BP,  AND  TE  MUST  BE  INITIALIZED  FOR  A  NON-STANDARD 

ATMOSPHERE.  A  STANDARD  ATMOSPHERE  IS  ESTABLISHED 
WHEN  BP  EQUALS  ZERO  (DEFAULT) 
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AM 


NORMALLY 

PORT  DRIVEN 

NAME  NO.  BY _  DESCRIPTION  UNITS 

FL  FLAG  TO  INITIATE 

AEROMED  CALCULATIONS 
(1  =  START) 

PRT  FLAG  SENT  TO  PROGRAM 

AEROMED  TO  PRINT  THE 
AEROMEDICAL  VARIABLES 
(1  =  PRINT) 

♦♦DEFAULT  =  0** 

EXP  MEDICAL  INJURY  EXPONENT 

♦♦DEFAULT  =  2** 

GXP  THE  LIMIT  VALUE  FOR  THE  G'S 

X-AXIS  POSITIVE  AEROMED 
LOAD  FACTOR 
♦♦DEFAULT  =  35** 

GXN  THE  LIMIT  VALUE  FOR  THE  G'S 

X-AXIS  NEGATIVE  AEROMED 
LOAD  FACTOR 
♦♦DEFAULT  =  30** 

GYL  THE  LIMIT  VALUE  FOR  THE  G'S 

Y-AXIS  AEROMED  LOAD  FACTOR 
♦♦DEFAULT  =  15** 

GZL  THE  LIMIT  VALUE  FOR  THE  G's 

Z-AXIS  NEGATIVE  AEROMED 
LOAD  FACTOR 
♦♦DEFAULT  =  12** 

DRP  LIMIT  VALUE  OF  THE 

DYNAMIC  RESPONSE  WHEN 
THE  ACCELERATION  VECTOP 
IS  FORWARD  OF  THE  PLANE 
OF  THE  SEAT  BACK 
♦♦DEFAULT  =  18** 

DRN  LIMIT  VALUE  OF  THE 

DYNAMIC  RESPONSE  WHEN 
THE  ACCELERATION  VECTOR 
IS  AFT  OF  THE  PLANE  OF 
THE  SEAT  BACK 
♦♦DEFAULT  =  16** 
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NAME 

PORT 

NO. 

NORMALLY 

ORIVEN 

BY 

DESCRIPTION 

RDL 

ACCELERATION  RADICAL 
LIMIT 

DR 

SE  or  CE 

DYNAMIC  RESPONSE 

GX 

SE  or  CE 

X-AXIS  LOAD  FACTOR 

GY 

SE  or  CE 

Y-AXIS  LOAD  FACTOR 

GZ 

SE  or  CE 

Z-AXIS  LOAD  FACTOR 

203 


AM 


PORT 


NAME 

NO. 

DESCRIPTION 

UNITS 

ORE 

DYNAMIC  RESPONSE 

- 

RAD 

ACCELERATION  RADICAL 

- 

PTS 

CURRENT  NUMBER  OF  DATA 

SETS  WRITTEN  TO  TAPE  7 

- 

PTI 

VALUE  OF  TIME  WHEN  THE 

LAST  DATA  SET  WAS 

WRITTEN  TO  TAPE  7 

SEC 
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AP 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TCX 

PLATE  SYSTEM  X-AXIS  FORCE 
COEFFICIENT  TABLE: 

PLATE  ANGLE  OF  ATTACK 
(INDEPENDENT) 

PLATE  X-AXIS  COEFFICIENT 
(DEPENDENT) 

DEG 

TCZ 

PLATE  SYSTEM  Z-AXIS  FORCE 
COEFFICIENT  TABLE: 

PLATE  ANGLE  OF  ATTACK 
(INDENPENDENT) 

PLATE  Z-AXIS  COEFFICIENT 
(DEPENDENT) 

DEG 

UP** 

EJECTION  DIRECTION  FLAG 

WITH  RESPECT  TO  THE 

AIRPLANE 

1  =  UPWARD 
-1  =  DOWNWARD 

X  PC  ( 3 ) 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 

PLATE  CENTROID 

FT 

PA 

REFERENCE  AREA  OF  THE 

ATTACHED  PLATE 

FT2 

EPL(3) 

SEAT  TO  PLATE  EULER 

ANGLES 

DEG 

ZEM* 

- 

AIRPLANE  BODY  Z-AXIS  POSI¬ 
TION  OF  THE  PLATE  CENTROID 
WHEN  IT  ENTERS  THE 

WIND STREAM 

FT 

SRP(3) 

SE 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT 

UST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
VELOCITY  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT/SEC 

♦Default  value  =  0. 
♦♦Default  value  *  1. 
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NAME 

PORT 

NORMALLY 

DRIVEN 

NO. 

BY 

DESCRIPTION 

EST(3) 

SE 

EARTH  TO  SEAT  EULER  ANGLES 
(YAW,  PITCH,  ROLL) 

WST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS 

angular  velocity  vector 

OF  THE  SEAT 

XAP(3)* 

AE  or  SL 

X.Y.Z  EARTH  SYSTEM 

POSITION  VECTOR  OF  THE 

airplane  center  OF 
gravity 

EAP ( 3 ) * 

AE  or  SL 

earth  to  AIRPLANE 

EULER  ANGLES 

♦Default  value  =  0 


AP 

UNITS 

DEG 

DEG/SEC 

FT 

DEG 
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AP 


PORT 

NAME  NO. 

F2(3)  1 


|  T2(3)  1 

l 


DESCRIPTION  UNITS 

X,Y,Z  SEAT  BODY  AXIS  LB 

FORCE  COMPONENTS  OF 
THE  ATTACHED  PLATE 

X,Y,Z  SEAT  BODY  AXIS  FT-LB 

TORQUE  COMPONENTS  OF 
THE  ATTACHED  PLATE 


SW 


FLAG  SET  WHEN  THE  PLATE 
CENTROID  PENETRATES  THE 
WINDSTREAM 
(1  *  PENETRATION) 


ALP 


PLATE  ANGLE  OF  ATTACK  DEG 


CX 


X-AXIS  FORCE  COEFFICIENT 


CZ 


Z-AXIS  FORCE  COEFFICIENT 
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AP 


•  • 
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Figure  22.  Standard  Component  "AP"  Input/Output  Overview 


AS 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TAE 

EXPOSED  AREA  TABLE: 

EXPOSED  LENGTH  (INDEPENDENT) 
EXPOSED  AREA  (DEPENDENT) 

ft2 

ft* 

OFF** 

RL 

FLAG/TO  INDICATE  SEAT/RAIL 
SEPARATION  (1  =  SEPARATION) 

— 

UP** 

EJECTION  DIRECTION  FLAG 

WITH  RESPECT  TO  THE  AIRPLANE 
+1  =  UPWARD 
-1  =  DOWNWARD 

ZWS* 

AIRPLANE  BODY  Z-AXIS 

POSITION  OF  THE  WINDSTREAM 
BOUNDARY  LAYER  AT  THE  POINT 

OF  SEAT  PENETRATION 

FT 

X  EM  ( 3 )  * 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 

POINT  ON  THE  SEAT 

TO  INITIALLY  PENETRATE 

THE  WINDSTREAM 

FT 

CDX* 

APPROXIMATE  SEAT  BODY  X-AXIS 
POSITION  OF  THE  CENTER  OF 
PRESSURE  DURING  EMERGENCE 

FT 

ECX** 

SEAT  BODY  X-AXIS  EMERGENCE 
COEFFICIENT 

— 

ECY** 

SEAT  Y-AXIS  EMERGENCE 
COEFFICIENT 

- 

ECZ** 

SEAT  Z-AXIS  EMERGENCE 
COEFFICIENT 

- 

CLP* 

ROLL  DAMPING  DERIVATIVE 

1/DEG 

CM  Q* 

PITCH  DAMPING  DERIVATIVE 

1/DEG 

CNR* 

YAW  DAMPING  DERIVATIVE 

1/DEG 

S 

SEAT  REFERENCE  AREA 

FT2 

♦Default  value  *  0 
♦♦Default  value  a  1 
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NORMALLY 


NAME 

PORT 

NO. 

DRIVEN 

BY 

DESCRIPTION 

SRP(3) 

SE 

X,Y,Z  EARTH  LINEAR 

POSITION  VECTOR  OF  THE 

SEAT  REFERENCE  POINT 

UST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS 

LINEAR  VELOCITY  VECTOR 

OF  THE  SEAT  REFERENCE  POINT 

EST ( 3 ) 

SE 

EARTH  TO  SEAT  EULER  ANGLES 
{YAW,  PITCH,  ROLL) 

W  ST ( 3 ) 

SE 

X,Y,Z  SEAT  BODY  AXIS 

ANGULAR  VELOCITY  VECTOR 

OF  THE  SEAT 

DSA(3,3)* 

RL 

SEAT  TO  AIRPLANE 

DIRECTION  COSINE  MATRIX 

SRA ( 3 )  * 

RL 

X,Y,Z  AIRPLANE  BODY 

AXIS  LINEAR  POSITION 

VECTOR  OF  THE  SEAT 

REFERENCE  POINT 

RON* 

SR 

SUSTAINER  ROCKET 

FLAG  (1=0N  0=0FF) 

♦Default  =  0 


AS 

UNITS 

FT 

FT/SEC 

DEG 

DEG/SEC 

FT 
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F2(3)  1 

X,Y,Z  SEAT  BODY  AXIS 
AERODYNAMIC  FORCE 

COMPONENTS 

LB 

T2(3)  1 

X,Y,Z  SEAT  BODY  AXIS 
AERODYNAMIC  TORQUE 

COMPONENTS 

FT-, 

ALP 

SEAT  ANGLE  OF  ATTACK 

DEG 

BET 

SEAT  SIDESLIP  ANGLE 

DEG 

VM 

SEAT  MACH  NUMBER 

- 

Q 

DYNAMIC  PRESSURE 

LB 

CX 

SEAT  BODY  X-AXIS 

FORCE  COEFFICIENT 

— 

CY 

SEAT  BODY  Y-AXIS 

FORCE  COEFFICIENT 

- 

CZ 

SEAT  BODY  Z-AXIS 

FORCE  COEFFICIENT 

- 

CL 

SEAT  BODY  AXIS  ROLLING 
MOMENT  COEFFICIENT 

- 

CM 

SEAT  BODY  AXIS  PITCHING 
MOMENT  COEFFICIENT 

— 

CN 

SEAT  BODY  AXIS  YAWING 

MOMENT  COEFFICIENT 

— 

EXL 

SEAT  EXPOSED  LENGTH 

DURING  EMERGENCE 

FT 

EXA 

SEAT  EXPOSED  AREA 

DURING  EMERGENCE 

FT2 

CEN(3) 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 
EMERGED  AREA  CENTROID 

FT 

TCZ ( 20) 

SEAT  Z-AXIS  EXPOSED  AREA 
CENTROID  LOCATION  ARRAY 

FT 

HO 

HYDRAULIC  DIAMETER 

FT 
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•  STANDARD  COMPONENT  “AS"  CALCULATES 
THE  AERODYNAMIC  FORCES 
AND  TORQUES  THAT  ACT  ON  THE  SEAT 


Figure  23.  Standard  Component  "AS"  Input/Output  Overview 


CE 


NORMALLY 


NAME 

PORT 

NO. 

DRIVEN 

BY 

DESCRIPTION 

SW* 

FLAG  FOR  SEAT/CREWPERSON 
SEPARATION  (1  =  SEPARATION) 

PC 

CREWPERSON  PERCENTILE 

CEW 

WEIGHT  OF  THE  CREWPERSON 
CLOTHING  AND  EQUIPMENT 

CM 1(3) 

CREWPERSON  MOMENT  OF 

INERTIA  VECTOR  ABOUT  HIS 
C.G.  (IXX.IYY.IZZ) 

CPI (3) 

CREWPERSON  PRODUCT  OF 
INERTIA  VECTOR  ABOUT 

HIS  C.G.  ( IXY, IXZ, IYZ) 

CLP 

AERODYNAMIC  ROLL 

DAMPING  COEFFICIENT 

CMQ 

AERODYNAMIC  PITCH 

DAMPING  COEFFICIENT 

CNR 

AERODYNAMIC  YAW 

DAMPING  COEFFICIENT 

XSP (3 )* 

X,Y,Z  CREWPERSON  SYSTEM 
POSITION  VECTOR  OF  THE 

BASE  OF  THE  SPINE 

FAB(3)* 

RS 

X,Y,Z  BODY  AXIS  FORCE 
COMPONENTS 

TAB(3)* 

RS 

X,Y,Z  BODY  AXIS 

TORQUE  COMPONENTS 

FDO(3)* 

LI 

X,Y,Z  BODY  AXIS 

FORCE  COMPONENTS 

TDO ( 3 ) * 

LI 

X,Y,Z  BODY  AXIS 

TORQUE  COMPONENTS 

♦Default 

=  0 

UNITS 

LB 

SLUG-FT2 

SLUG-FT2 

1/DEG 

1/DEG 

1/DEG 

FT 

LB 

FT-LB 

LB 

FT-LB 
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CE 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

FAU(3)* 

X,Y,Z  BODY  AXIS  FORCE 
COMPONENTS  (AUXILIARY 

INPUT) 

LB 

TAU(3)* 

X,Y,Z  BODY  AXIS  TORQUE 
COMPONENT  (AUXILIARY 

INPUT) 

ft-lb 

TRM(3)* 

X»Y,Z  PARENT  BODY  INERTIAL 
VELOCITY  COMPONENTS  TO 
DETERMINE  POSITION  RATES 
DURING  TRIM 

FT/SEC 

*Default  =  0 
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CE 


NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

UCP(3)* 

X,Y,Z  CREWPERSON  BODY 

AXIS  LINEAR  VELOCITY 

VECTOR 

FT/ SEC 

XCP(3)* 

X,Y,Z  EARTH  SYSTEM 

POSITION  VECTOR  OF  THE 
CREWPERSON  C.G. 

FT 

WCP(3)* 

X,Y,Z  CREWPERSON  BODY 

AXIS  ANGULAR  VELOCITY 

VECTOR 

DEG/SEC 

ECP(3)* 

EARTH  TO  CREWPERSON  EULER 
ANGLES  (YAW, PITCH, ROLL) 

DEG 

SCO* 

SPINAL  COMPRESSION 

VELOCITY 

FT/ SEC 

SC* 

SPINAL  COMPRESSION 

FT 

GX 

CREWPERSON  X-AXIS  LOAD 

FACTOR 

G'S 

GY 

CREWPERSON  Y-AXIS  LOAD 

FACTOR 

G's 

GZ 

CREWPERSON  Z-AXIS  LOAD 

FACTOR 

G's 

DR 

DYNAMIC  RESPONSE 

- 

FAD ( 3 ) 

X, Y, Z  CREWPERSON  BODY 

AXIS  AERODYNAMIC  FORCE 
COMPONENTS 

LB 

TAD ( 3 ) 

X,Y,Z  CREWPERSON  BODY 

AXIS  AERODYNAMIC  TORQUE 
COMPONENTS 

FT-LB 

WT 

WEIGHT  OF  THE  CREWPERSON 

PLUS  CLOTHING  AND 

EQUIPMENT 

LB 

♦These  output  quantities  are  states. 


DESCRIPTION  UNITS 

AERODYNAMIC  REFERENCE  AREA  FT2 

AERODYNAMIC  LATERAL  FT 

REFERENCE  LENGTH 

AERODYNAMIC  LONGITUDINAL  FT 

REFERENCE  LENGTH 

CREWPERSON  INERTIA  PROPER-  SLUG-FT2 

TIES  AFTER  SEAT  CREWPERSON 
SEPARATION  ( IXX,  IYY, IZZ, IXZ) 

X-AXIS  AERODYNAMIC  FORCE 
COEFFICIENT 

Y-AXIS  AERODYNAMIC  FORCE 
COEFFICIENT 

Z-AXIS  AERODYNAMIC  FORCE 
COEFFICIENT 

AERODYNAMIC  ROLLING  MOMENT 
COEFFICIENT 

AERODYNAMIC  PITCHING  MOMENT 
COEFFICIENT 

AERODYNAMIC  YAWING  MOMENT 
COEFFICIFNT 

CREWPERSON  ANGLE  OF  ATTACK  DEG 

CREWPERSON  SIDESLIP  ANGLE  DEG 

CREWPERSON  MACH  NUMBER 

DYNAMIC  PRESSURE  LB/FT2 

CREWPERSON  ALTITUDE  FT 

SEAT/CREWPERSON 
SEPARATION  FLAG  FOR 
OUTPUT 

(1  *  SEPARATION) 
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NORMALLY 

PORT  DRIVEN 


NAME 

NO. 

BY 

DESCRIPTION 

UNITS 

COA* 

AILERON  COMMANDED 

POSITION 

DEG 

TCA* 

AILERON  TIME  CONSTANT 

SEC 

TDA* 

AILERON  RESPONSE 

TIME  DELAY 

SEC 

COE* 

ELEVATOR  COMMANDED 

POSITION 

DEG 

TCE* 

ELEVATOR  TIME  CONSTANT 

SEC 

TDE* 

ELEVATOR  RESPONSE  TIME 

DELAY 

SEC 

COR* 

RUDDER  COMMANDED  POSITION 

DEG 

TCR* 

RUDDER  TIME  DELAY 

SEC 

TDR* 

RUDDER  RESPONSE  TIME  DELAY 

SEC 

TRM(4) 

AE 

AIRPLANE  CONTROL  SURFACE 
POSITIONS  AT  TRIM 

DEG 

1)  -NOT  USED— 

2)  AILERON 

3)  ELEVATOR 

4)  RUDOER 


♦Default  values  =  0 


cs 


DESCRIPTION 

AILERON  DEFLECTION  FROM 
ITS  TRIM  POSITION 

ELEVATOR  DEFLECTION  FROM 
ITS  TRIM  POSITION 

RUDDER  DEFLECTION  FROM 
ITS  TRIM  POSITION 


UNITS 


♦These  output  quantities  are  states 


CT 


NAME 


NORMALLY 

PORT  ORIVEN 

NO.  BY  DESCRIPTION 


UNITS 


TCP  CATAPULT  PROPELLANT 

CONSUMPTION  TABLE: 

PROPELLANT  WEB  CONSUMED  IN 

(INDEPENDENT) 

PROPELLENT  CONSUMED  SLUGS 

(DEPENDENT) 

SW  FLAG  FOR  CATAPULT  IGNITION 

(1  =  CATAPULT  ON) 

UP*  EJECTION  DIRECTION  FLAG 

WITH  RESPECT  TO  THE 
AIRPLANE 
+1  =  UPWARD 
-1  =  DOWNWARD 


SAP (3) 

AAP(3) 

UCL 

CSK 

VI 

PA 

PT 

CBP 

C 

Cl 

PMW 

SK 


X,Y,Z  SEAT  BODY  AXIS  LINEAR  FT 

POSITION  VECTOR  OF  THE 
CATAPULT  ATTACHMENT  POINT 
ON  THE  SEAT 

X,Y,Z  AIRPLANE  BODY  AXIS  FT 

LINEAR  POSITION  VECTOR  OF 
THE  CATAPULT  ATTACHMENT 
POINT  ON  THE  AIRPLANE 

UNLOADED  CATAPULT  LENGTH  FT 

CATAPULT  STROKE  FT 

INITIAL  FREE  VOLUME  IN3 

PISTON  AREA  IN2 

TANG  RELEASE  PRESSURE  LBS/IN2 

CATAPULT  BURST  PRESSURE  LBS/IN2 

MASS  OF  TOTAL  PROPELLANT  SLUGS 

IGNITER  PROPELLANT  MASS  SLUGS 

PROPELLANT  MOLECULAR  WEIGHT  LB/LB-MOLE 

CATAPULT  SPRING  CONSTANT  LB/FT 


♦Default  value  *  1. 
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r 


CT 


f 

l 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

B 

BURN  RATE  PROPORTIONALITY 
CONSTANT 

BXP 

BURN  RATE  EXPONENT 

TI 

CATAPULT  TEMPERATURE 

PRIOR  TO  IGNITION 

TDE* 

CATAPULT  FORCE  DECAY  TIME 

SRP(3) 

SE 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 

SEAT  REFERENCE  POINT 

UST ( 3 ) 

SE 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
VELOCITY  VECTOR  OF  THE 

SEAT  REFERENCE  POINT 

EST(3) 

SE 

EARTH  TO  SEAT  EULER  ANGLES 
(YAW, PITCH, ROLL) 

WST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS  ANGULAR 
VELOCITY  VECTOR  OF  THE  SEAT 

XAP(3) 

AE  or  SL 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
AIRPLANE 

UAP(3) 

AE  or  SL 

X,Y,Z  AIRPLANE  BODY  AXIS 
LINEAR  VELOCITY  VECTOR  OF 

THE  AIRPLANE  CENTER  OF 
GRAVITY 

EAP(3) 

AE  or  SL 

EARTH  TO  AIRPLANE  EULER 
ANGLES  (YAW, PITCH, ROLL) 

WAP (3) 

AE  or  SL 

X,Y,Z  AIRPLANE  BOOY  AXIS 
ANGULAR  VELOCITY  VECTOR 

OF  THE  AIRPLANE 

♦Default  value  s  0 


CT 

UNITS 

IN/SEC/(LB/IN2) 

DEG  K 

SEC 

FT 

FT/SEC 

DEG 

DEG/SEC 

FT 

FT/SEC 

DEG 

OEG/SEC 
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CT 


PORT 

NAME  NO. 

EF* 

EL* 

WK* 

WB* 

FL 


FON 

FCA(3)  1 

TCA(3)  1 

Fl(3)  1 

T1 (3 )  1 

CF 

CEX 

CV 

TL0 


DESCRIPTION 

INTERNAL  FRICTION  ENERGY 

HEAT  LOSS 

CATAPULT  WORK 

PROPELLANT  WEB  CONSUMED 

CATAPULT  MODE  FLAG 
0  =  PRIOR  TO  IGNITION 

1  =  CATAPULT  IGNITION 

2  =  CATAPULT  STRIPOFF 

3  =  CATAPULT  OFF 

STRIPOFF  FLAG  FOR  SUSTAINER 
ROCKET  COMPONENT 

X,Y,Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  OF  THE 
CATAPULT  ON  THE  AIRPLANE 

X,Y,Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  OF  THE 
CATAPULT  ON  THE  AIRPLANE 

X,Y,Z  SEAT  BODY  AXIS  FORCE 
COMPONENTS  OF  THE  CATAPULT 
ON  THE  SEAT 

X,Y,Z  SEAT  BODY  AXIS  TORQUE 
COMPONENTS  OF  THE  CATAPULT 
ON  THE  SEAT 

CATAPULT  FORCE  MAGNITUDE 

CATAPULT  EXTENSION 

CATAPULT  EXTENSION  VELOCITY 

INITIAL  LENGTH  OF  THE 
CATAPULT  PRESSURE  CHAMBER 


PC 


CIRCUMFERENCE  OF  THE 
CATAPULT  PRESSURE  CHAMBER 


♦These  output  quantities  are  states. 
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UNITS 

FT-LB 

FT-LB 

FT-LB 

IN 


LB 

FT-LB 

LB 

FT-LB 

LB 

FT 

FT/SEC 

IN 

IN 


DESCRIPTION 


UNITS 


GAS  CONSTANT 


FT-LBF/SLUG-K 


CONSTANT  VOLUME  FT-LBF/SLUG-K 

SPECIFIC  HEAT 


CATAPULT  STRIPOFF  SEC 

TIME 

CATAPULT  FORCE  AT  LB 

STRIPOFF 


f 

l 

I 

I 


f 


STANDARD  COMPONENT  “CT"  CALCULATES 

THE  FORCES  AND  TORQUES 

THAT  ACT  ON  THE  AIRPLANE  AND  SEAT 
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Figure  24.  Standard  Component  " CT "  Input/Output  Overview 


DR 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TBF 

DART  BRAKING  FORCE  TABLE: 

LINE  LENGTH  (INDEPENDENT) 
BRAKING  FORCE  (DEPENDENT) 

FT 

LB 

DAP (3) 

X,Y,Z  AIRPLANE  BODY  AXIS 
LINEAR  POSITION  VECTOR  OF 

THE  DART  ATTACHMENT  POINT 

FT 

DBA(3) 

X.Y.Z  SEAT  BODY  AXIS 

LINEAR  POSITION  VECTOR  OF 

THE  DEPLOYED  DART  BRIDLE 

APEX 

FT 

XAP ( 3 ) 

AE  or  SL 

X,Y,Z  EARTH  LINEAR 

POSITION  VECTOR  OF  THE 
AIRPLANE  CENTER  OF  GRAVITY 

FT 

EAP (3 ) 

AE  or  SL 

EARTH  TO  AIRPLANE  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 

SRP ( 3 ) 

SE 

X.Y.Z  EARTH  LINEAR  POSI¬ 
TION  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT 

EST ( 3 ) 

SE 

EARTH  TO  SEAT  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 
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PORT 


NAME 

NO. 

DESCRIPTION 

F2(3) 

1 

X,Y,Z  SEAT  BODY  AXIS 
FORCE  COMPONENTS  OF  THE 
DART  ON  THE  SEAT 

T2(3) 

1 

X,Y,Z  SEAT  BODY  AXIS 
TORQUE  COMPONENTS  OF  THE 
DART  ON  THE  SEAT 

FDA(3) 

I 

X,Y,Z  AIRPLANE  BODY  AXIS 
FORCE  COMPONENTS  OF  THE 
DART  ON  THE  AIRPLANE 

TDA(3) 

1 

X,Y,Z  AIRPLANE  BODY  AXIS 
TORQUE  COMPONENTS  OF  THE 
DART  ON  THE  AIRPLANE 

DLL 

DISTANCE  BETWEEN  THE 
BRIDLE  APEX  AND  THE 
AIRPLANE  ATTACHMENT 

POINT 

DBF 

DART  BRAKING  FORCE 

SW 

DART  MODE  FLAG 

0  =  PRIOR  TO  DART 

1  =  DART  ON 

2  «  DART  OFF 

OR 

UNITS 

LB 

FT-LB 

LB 

FT-LB 

FT 

LB 
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Figure  25.  Standard  Component  "DR"  Input/Output  Overview 


GP 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TMF 

PARACHUTE  MORTAR  FORCE  TABLE: 
TIME  (INDEPENDENT  VARIABLE) 
MORTAR  FORCE  (DEPENDENT 
VARIABLE) 

SEC 

LB 

SW 

FLAG  TO  INITIATE  MORTAR 
(1  =  ON) 

— 

UV(3) 

X,Y,Z  SEAT  BODY  AXIS  MORTAR 
FORCE  DIRECTION  UNIT  VECTOR 
ACTING  ON  THE  PARACHUTE  PACK 

— 

XMO ( 3 ) 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  DEPLOYMENT  IMPULSE 
MOMENT  ARM 

FT 

XYZ(3) 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  PACK  ATTACHMENT 

POINT 

FT 

EA(3) 

SEAT  TO  PARACHUTE  PACK 
ATTACHMENT  ATTITUDE  EULER 
ANGLES  (YAW,  PITCH,  ROLL) 

DEG 

XR 

PARACHUTE  SHELF  LINEAR 

SPRING  CONSTANT 

LB/FT 

XD 

PARACHUTE  SHELF  LINEAR 

DAMPING  CONSTANT 

LB/FT/SEC 

ER(3) 

X,Y,Z  PARACHUTE  SHELF 

ANGULAR  SPRING  CONSTANTS 

FT-LB/DEG 

ED(3) 

X,Y,Z  PARACHUTE  SHELF 

ANGULAR  DAMPING  CONSTANTS 

FT-FT/DEG/SEC 

TDE* 

TIME  DURATION  FOR  THE  MORTAR 
FORCES  AND  TORQUES  TO  DECAY 
AFTER  STRIPOFF 

SEC 

SRP(3) 

SE 

X, Y, Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT 

♦Default  value  *  0. 
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1 


GP 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

U  ST  ( 3 ) 

SE 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
VELOCITY  VECTOR  OF  THE 

SEAT  REFERENCE  POINT 

FT/SEC 

EST(3) 

SE 

EARTH  TO  SEAT  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 

WST{3) 

SE 

X.Y.Z  SEAT  BODY  AXIS 

ANGULAR  VELOCITY  VECTOR 

OF  THE  SEAT 

DEG/SEC 

XPP(3) 

PC 

X.Y.Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  PACK 

FT 

UPP ( 3 ) 

PC 

X,Y,Z  PARACHUTE  PACK  BODY 

AXIS  LINEAR  VELOCITY  VECTOR 

OF  THE  PARACHUTE  PACK 

FT/ SEC 

EPP(3) 

PC 

EARTH  TO  PARACHUTE  PACK 

EULER  ANGLES  (YAW, PITCH, 

ROLL) 

DEG 

WPP (3) 

PC 

X.Y.Z  PARACHUTE  PACK  BODY 

AXIS  ANGULAR  VELOCITY  VECTOR 

OF  THE  PARACHUTE  PACK 

DEG/ SEC 

PORT 

NO. 


GP 


NAME 

FL 

FMT 

FI 

T1 

FPP(3) 

TPP(3) 

TIN 

FSO(3) 

TSO(3) 

FPO(3) 

TPO(3) 

TRM(3) 


1 

1 


DESCRIPTION 


PARACHUTE  MODE  FLAG: 

0  =  PRIOR  TO  INITIATION 

1  =  PARACHUTE  INITIATION 

UP  TO  LAUNCH 

2  =  PARACHUTE  LAUNCH 

3  =  FORCES  AND  TORQUES  OFF 

PARACHUTE  MORTAR  FORCE 
MAGNITUDE 

X,Y,Z  SEAT  BODY  AXIS  FORCE 
VECTOR  ACTING  ON  THE  SEAT 

X,Y,Z  SEAT  BODY  AXIS  TORQUE 
VECTOR  ACTING  ON  THE  SEAT 

X,Y,Z  EARTH  SYSTEM  FORCE 
VECTOR  ACTING  ON  THE 
PARACHUTE  PACK 


UNITS 


LB 

LB 

LB 

LB 


X,Y,Z  PARACHUTE  PACK  BODY 
AXIS  TORQUE  VECTOR  ACTING 

ON  THE  PARACHUTE  PACK 

ft-lb 

PARACHUTE  MORTAR  INITIATION 
TIME 

SEC 

X»Y,Z  SEAT  BODY  AXIS  FORCE 
COMPONENTS  EXERTED  ON  THE 

SEAT  AT  STRIPOFF 

LB 

X,Y,Z  SEAT  BODY  AXIS  TORQUE 
COMPONENTS  EXERTED  ON  THE 

SEAT  AT  STRIPOFF 

ft-lb 

X,Y,Z  EARTH  SYSTEM  FORCE 
COMPONENTS  EXERTED  ON  THE 

SEAT  AT  STRIPOFF  (LB) 

LB 

X,Y,Z  PARACHUTE  PACK  BODY 

AXIS  TORQUE  COMPONENTS 

EXERTED  ON  THE  SEAT  AT 

STRIPOFF 

ft-lb 

X,Y,Z  SEAT  INERTIAL  VELOCITY 
COMPONENTS  TO  PASS  TO  THE 
PARACHUTE  COMPONENT 

DURING  TRIM 

FT/SEC 
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LI 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TCW 

STRETCHED  CANOPY 

WEIGHT  TABLE: 

STRETCHED  LENGTH 
(INDEPENDENT) 

STRETCHED  WEIGHT 
(DEPENDENT) 

FT 

LB 

OFF* 

FLAG  TO  SEVER  LINES 

0  =  LINES  ATTACHED 

1  =  LINES  SEVERED 

BLI 

NUMBER  OF  BRIDLE  LINES 

- 

APX ( 3 ) * 

X,Y,Z  DECELERATED  OBJECT 

BODY  AXIS  POSITION  VECTOR 

OF  THE  BRIDLE  APEX 

FT 

AP1(3) 

X, Y,Z  DECELERATED  OBJECT 

BODY  AXIS  POSITION  VECTOR 

OF  THE  FIRST  BRIDLE  LINE 
ATTACHMENT  POINT 

FT 

AP  2(3)* 

X, Y,Z  DECELERATED  OBJECT 

BODY  AXIS  POSITION  VECTOR 

OF  THE  SECOND  BRIDLE  LINE 
ATTACHMENT  POINT 

FT 

AP3(3)* 

X,Y,Z  DECELERATED  OBJECT 

BODY  AXIS  POSITION  VECTOR 

OF  THE  THIRD  BRIDLE  LINE 
ATTACHMENT  POINT 

FT 

AP4(3)* 

X,Y,Z  DECELERATED  OBJECT 

BODY  AXIS  POSITION  VECTOR 

OF  THE  FOURTH  BRIDLE  LINE 
ATTACHMENT  POINT 

FT 

FTR 

PARACHUTE  LINE  MULTIPLI¬ 
CATION  FACTOR 

- 

FSO 

CANOPY  S TRIPOUT  FORCE 

LB 

ULL 

PARACHUTE  SUSPENSION  LINE 
ULTIMATE  LOAD 

IN/IN 

ULS 

PARACHUTE  SUSPENSION  LINE 
ULTIMATE  STRAIN 

IN/IN 

♦Default  value  =  0 
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LI 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

GOR 

NUMBER  OF  PARACHUTE  GORES 

- 

TYP 

TYPE  OF  PARACHUTE 

{1  =  DRAG  2  =  RECOVERY) 

- 

FL 

MP  or  GP 

l 

MORTAR  MODE  FLAG 

0  =  PRIOR  TO  INITIATION 

1  =  INITIATION 

2  =  LAUNCH 

XDO(3) 

SE  or  CE 

X, Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
DECELERATED  OBJECT 

FT 

UDO ( 3 ) 

SE  or  CE 

X,Y,Z  DECELERATED  OBJECT 

BODY  AXIS  LINEAR  VELOCITY 
VECTOR 

FT/SEC 

EDO (3) 

SE  or  CE 

EARTH  TO  DECELERATED 

OBJECT  EULER  ANGLES  lYAW, 
PITCH,  ROLL) 

DEG 

WDO( 3) 

SE  or  CE 

X,Y,Z  DECELERATED  OBJECT 

BODY  AXIS  ANGULAR  VELOCITY 
COMPONENTS 

DEG/SEC 

XPP(3) 

PC 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  PACK 

FT 

UPP(3) 

PC 

X,Y,Z  EARTH  SYSTEM  LINEAR 
VELOCITY  VECTOR  OF  THE 
PARACHUTE  PACK 

FT/SEC 

EPP(3) 

PC 

EARTH  TO  PARACHUTE  PACK  EULER 
ANGLES  (YAW,  PITCH,  ROLL) 

DEG 

XPC(3) 

PC 

X, Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  CANOPY 

FT 

UPC(3) 

PC 

X.Y.Z  EARTH  SYSTEM  LINEAR 
VELOCITY  VECTOR  OF  THE 
PARACHUTE  CANOPY 

FT/SEC 
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LI 

PORT 


NAME 

NO. 

DESCRIPTION 

UNITS 

EC* 

CREEP  STRAIN  IN 

PARACHUTE  LINES 

IN/IN 

TF* 

TIME  DURATION  OF  A  NON¬ 
ZERO  LOAD  ON  THE  LINES 

SEC 

FLA 

PARACHUTE  PHASE 

0  =  PRIOR  TO  INITIATION 

1  =  INITIATION 

2  =  LAUNCH 

3  =  LINESTRETCH 

4  =  LINES  SEVERED 

SW1 

FLAG  SET  WHEN  PARACHUTE 

IS  BEHIND  THE  BRIDLE  APEX 
(1  =  BEHIND) 

- 

FDO( 3) 

X, Y,Z  DECELERATED  OBJECT 

BODY  AXIS  FORCE  COMPONENTS 

LB 

TDO( 3) 

X, Y,Z  DECELERATED  OBJECT 

BODY  AXIS  TORQUE  COMPONENTS 

FT-LB 

FLP ( 3 ) 

X, Y,Z  EARTH  SYSTEM  FORCE 
COMPONENTS  ACTING  ON  THE 
PARACHUTE  CANOPY 

LB 

FAP(3) 

X ,Y,Z  DECELERATED  OBJECT 

BODY  AXIS  LINEAR  POSITION 
VECTOR  OF  THE  FORCE 
APPLICATION  POINT 

FT 

VAP(3) 

X ,Y,Z  EARTH  SYSTEM 

VELOCITY  COMPONENTS  OF  THE 
FORCE  APPLICATION  POINT 

FT/SEC 

FLL 

LINE  LOAD 

LB 

ELM 

MAXIMUM  STRAIN  EXPERIENCED 

BY  THE  PARACHUTE  LINE 

DURING  ITS  LOADING  HISTORY 

IN/IN 

*These  output 

quantities  are  states. 
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NAME 


PORT 

NO. 


DESCRIPTION 


UNITS 


ELC 

MAXIMUM  STRAIN  EXPERIENCED 

BY  THE  PARACHUTE  LINE  DURING 

THE  CURRENT  LOADING  CYCLE 

ONLY 

IN/IN 

OEM 

MAXIMUM  NEGATIVE  STRAIN  RATE 
EXPERIENCED  BY  THE  PARACHUTE 
LINE  DURING  ITS  LOADING 

HISTORY 

1/SEC 

RMN 

MAXIMUM  NEGATIVE  STRAIN  RATE 
EXPERIENCED  BY  THE  PARACHUTE 
LINE  DURING  THE  CURRENT  UN¬ 
LOADING  CYCLE  ONLY 

1/SEC 

DIS 

THE  DISTANCE  FROM  THE  ORIGIN 

OF  THE  DECELERATED  OBJECT 

TO  THE  BRIDLE  APEX 

FT 

CON( 4) 

COEFFICIENTS  IN  THE  EQUATION 
FOR  THE  PLANE  FORMED  BY  THE 
BRIDLE  ATTACHMENT  POINTS 

■” 1 

TCG( 20) 

STRETCHED  CANOPY  CENTER  OF 
GRAVITY  LOCATION  ARRAY 

FT 

UVL( 3) 

PARACHUTE  LINE  UNIT  VECTOR 

- 

RL 

PARACHUTE  LINE  LENGTH 

FT 

RLO 

UNLOADED  PARACHUTE  LINE 

length 

FT 

VL 

RATE  OF  CHANGE  OF  LINE  LENGTH 

FT/SEC 

VCG 

VELOCITY  OF  THE  STRETCHED 
CANOPY  CENTER  OF  GRAVITY 

ALONG  THE  LINES 

FT/SEC 

PCG 

STRETCHED  CANOPY  CENTER  OF 
GRAVITY  MEASURED  ALONG  THE 
PARACHUTE  LINE  FROM  THE 
PARACHUTE  PACK 

FT 

CWT 

WEIGHT  OF  THE  CANOPY  PULLED 
FROM  THE  PARACHUTE  PACK 

LB 

NAME 


PORT 

NO. 


DESCRIPTION 


UNITS 


T  PE 

TYPE  OF  PARACHUTE 

(1  =  DRAG  2  =  RECOVERY) 

— 

PVL 

PREVIOUS  TIMESTEP  LINE 
VELOCITY 

FT/SEC 

TLS 

TIME  AT  LINESTRETCH 

SEC 

VLS 

RATE  OF  CHANGE  OF  LINE 

LENGTH  AT  LINESTRETCH 

FT/SEC 

MP 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

Cl 

FRICTION  PROPORTIONALITY 
CONSTANT 

LB/LB/IM 

C2 

HEAT  LOSS  CONSTANT 

- 

B 

BURN  RATE  PROPORTIONALITY 
CONSTANT 

IN/ SEC/ 
(LB/IN  ; 

BXP 

BURN  RATE  EXPONENT 

- 

TI 

MORTAR  TEMPERATURE  PRIOR 

TO  IGNITION 

DEG  K 

TDE* 

MORTAR  FORCE  DECAY  TIME 

SEC 

SRP ( 3 ) 

SE 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 

SEAT  REFERENCE  POINT 

FT 

UST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
VELOCITY  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT/SEC 

EST (3 ) 

SE 

EARTH  TO  SEAT  EULER  ANGLES 

DEG 

WST(3) 

SE 

X, Y,Z  SEAT  BODY  AXIS  ANGULAR 
VELOCITY  VECTOR  OF  THE  SEAT 

DEG/SEC 

XPP(3) 

PC 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  PACK 

FT 

UPP ( 3 ) 

PC 

X,Y,Z  EARTH  SYSTEM  LINEAR 
VELOCITY  VECTOR  OF  THE 
PARACHUTE  PACK 

FT/SEC 

EPP ( 3 ) 

EARTH  TO  PARACHUTE 

PACK  EULER  ANGLES 

DEG 

WPP ( 3 ) 

X,Y,Z  PARACHUTE  PACK  BODY 

AXIS  ANGULAR  VELOCITY 

VECTOR  OF  THE  PARACHUTE 

PACK 

DEG/ SEC 

♦Default  value  =  0 
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PORT 

NAME  NO. 

SW 

XYZ(3) 

EA(3) 

XR 

XD 

ER(3) 

ED(3) 

U  V  ( 3 ) 

CSK 

VI 

PA 

PT 

CBP 

C 

Cl 

PMW 

GAM 

TF 


MP 


NORMALLY 

DRIVEN 

BY _  DESCRIPTION 

FLAG  TO  INITIATE  THE 
MORTAR  (1  =  ON) 


UNITS 


X,Y,Z  SEAT  BODY  AXIS  LINEAR 
POSITION  VECTOR  OF  THE  PARA¬ 
CHUTE  PACK  ATTACHMENT  POINT 
ON  THE  SEAT 


FT 


SEAT  TO  PARACHUTE  PACK 
ATTACHMENT  EULER  ANGLES 

PARACHUTE  SHELF  LINEAR 
SPRING  CONSTANT 

PARACHUTE  SHELF  LINEAR 
DAMPING  CONSTANT 

X,Y,Z  PARACHUTE  SHELF 
ANGULAR  SPRING  CONSTANT 

X»Y,Z  PARACHUTE  SHELF 
ANGULAR  DAMPING  CONSTANT 

X»Y,Z  SEAT  BODY  AXIS 
MORTAR  FORCE  UNIT  VECTOR 

MORTAR  STROKE 

INITIAL  FREE  VOLUME 

PISTON  AREA 

TANG  RELEASE  PRESSURE 

MORTAR  BURST  PRESSURE 

MASS  OF  TOTAL  PROPELLANT 

IGNITER  PROPELLANT  MASS 

PROPELLANT  MOLECULAR  WEIGHT 

RATIO  OF  SPECIFIC  HEATS 

CONSTANT  VOLUME  FLAME 
TEMPERATURE 


DEG 

LB/FT 

LB/FT/SEC 

FT-LB/DEG 

ft-lb/deg/ 

SEC 


FT 

IN3 

IN2 

LB/IN2 

LB/IN2 

SLUGS 

SLUGS 

LB/LB-MOLE 

DEG  K 


237 


PORT 

MP 

NAME 

NO. 

DESCRIPTION 

UNITS 

EF* 

INTERNAL  FRICTION  ENERGY 

FT-LB 

EL* 

HEAT  LOSS  ENERGY 

FT-LB 

WK* 

MORTAR  WORK 

FT-LB 

WB* 

PROPELLANT  WEB  BURNED 

IN 

FL 

MORTAR  MODE  FLAG 

0  =  PRIOR  TO  INITIATION 

1  =  INITIATION 

2  =  LAUNCH 

3  =  MORTAR  OFF 

FI  (3 ) 

1 

X.Y.Z  SEAT  BODY  AXIS  FORCE 
COMPONENTS  OF  THE  MORTAR 

AND  RESTRAINTS  ON  THE  SEAT 

LB 

TI  (3) 

1 

X.Y.Z  SEAT  BODY  AXIS  TORQUE 
COMPONENTS  OF  THE  MORTAR 

AND  RESTRAINTS  ON  THE  SEAT 

FT-LB 

FPP(3) 

X,Y,Z  EARTH  SYSTEM  FORCE 
COMPONENTS  OF  THE  MORTAR 

AND  RESTRAINTS  ON  THE 
PARACHUTE  PACK 

LB 

TPP(3) 

X,Y,Z  PARACHUTE  PACK  BODY 

AXIS  TORQUE  COMPONENTS  OF 

THE  MORTAR  AND  RESTRAINTS 

ON  THE  PARACHUTE  PACK 

FT-LB 

FM 

MORTAR  FORCE  MAGNITUDE 

LB 

EXM 

MORTAR  EXTENSION 

FT 

VM 

MORTAR  EXTENSION  VELOCITY 

FT/SEC 

TSO 

MORTAR  STRIPOFF  TIME 

SEC 

FSO 

FORCE  AT  MORTAR  STRIPOFF 

LB 

TRM{3) 

X, Y,Z  SEAT  EARTH  SYSTEM 
VELOCITY  COMPONENTS  TO 

PASS  TO  THE  PARACHUTE 
COMPONENT  DURING  TRIM 

FT/SEC 

♦These  output  quantities  are  states 
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PC 


NORMALLY 

DRIVEN 

BY 


CT(3) 


CN(  3) 


CM(2 ) 


PMI(3) 


DESCRIPTION  UNITS 

INFLATED  PARACHUTE  DRAG  AREA  FT2 

CIRCUMFERENCE  OF  THE  FILLED  FT 

CANOPY  PLUS  ONE  QUARTER  OF 
THAT  DISTANCE 

REEF  MODE  FLAG 
0  =  CHUTE  NOT  REEFED 

1  =  TIME  OF  DISREEF  SET  AT 

PARACHUTE  INITIATION 

2  =  TIME  OF  DISREEF  SET  AT 

LINESTRETCH 

REEF  DELAY  TIME  SEC 

PRODUCT  OF  REFERENCE  AREA  FT2 

AND  TANGENT  FORCE  COEFFI¬ 
CIENT  WHEN  REEFED 

CONSTANT  USED  IN  THE  EQUA¬ 
TION  THAT  CALCULATES  SCD 
OF  THE  REEFED  PARACHUTE 

CONSTANT  USED  IN  THE  EQUA¬ 
TION  TO  COMPUTE  THE  CANOPY 
INFLATION  'TIME 

CONSTANTS  USED  IN  THE  EQUA¬ 
TION  THAT  CALCULATES  THE 
TANGENTIAL  DRAG  AREA 

CONSTANTS  USED  IN  THE  EQUA¬ 
TION  THAT  CALCULATES  THE 
NORMAL  DRAG  AREA 

CONSTANTS  USED  IN  THE  MACH 
EFFECTS  EQUATION 

WAKE  TO  FREE  STREAM  RATIO 

TOTAL  WEIGHT  OF  THE  PARA-  LB 

CHUTE  PACK 

PARACHUTE  PACK  MOMENTS  OF  SLUG-FT2 

INERTIA  (IXX.IYY, IZZ) 
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PC 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

PP 1(3) 

PARACHUTE  PACK  PRODUCTS  OF 
INERTIA  ( IXY ,IXZ ,IYZ) 

SLUG-FT2 

TEM* 

TIME  DURATION  FOR 

PARACHUTE  EMERGENCE 

SEC 

CSP** 

PARACHUTE  CANOPY 

SPRING  CONSTANT 

LB/FT 

CDP*** 

PARACHUTE  CANOPY 

DAMPING  CONSTANT 

LB/FT/SEC 

FLA 

LI 

PARACHUTE  MODE  FLAG 

0  =  PRIOR  TO  INITIATION 

1  =  INITIATION 

2  =  LAUNCH 

3  =  LINESTRETCH 

4  =  LINES  SEVERED 

FLP(3) 

LI 

X,Y,Z  EARTH  SYSTEM  FORCE 
COMPONENTS  ACTING  ON 

THE  PARACHUTE  FROM  THE 

LINES 

LB 

FPP(3) 

GP  or  MP 

X, Y,Z  EARTH  SYSTEM  FORCE 
COMPONENTS  ACTING  ON  THE 

PACK  FROM  THE  RESTRAINTS 

AND  MORTAR 

LB 

TPP(3) 

GP  or  MP 

X, Y,Z  PARACHUTE  PACK  BODY 

AXIS  TORQUE  COMPONENTS 

ACTING  ON  THE  PACK  FROM 

THE  RESTRAINTS 

FT-LB 

VAP 

LI 

X, Y,Z  EARTH  SYSTEM 

VELOCITY  COMPONENTS  OF 

THE  FORCE  APPLICATION 

POINT 

FT/SEC 

UVL( 3) 

LI 

EARTH  SYSTEM  PARACHUTE 

LINE  UNIT  VECTOR 

- 

♦Default  value  *0 
♦♦Default  value  *  2000. 
♦♦♦Default  value  *  14. 
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4 


k'*>* 


It 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

RL 

LI 

PARACHUTE  LINE  LENGTH 

FT 

VCG(3) 

LI 

VELOCITY  OF  THE  CANOPY 

CENTER  OF  GRAVITY  ALONG 

THE  PARACHUTE  LINES 

FT/SEC 

PCG 

LI 

STRETCHED  CANOPY  CENTER 

OF  GRAVITY  MEASURED  ALONG 

THE  PARACHUTE  LINE  FROM 

THE  PARACHUTE  PACK 

FT 

CWT 

LI 

WEIGHT  OF  THE  CANOPY  DRAWN 
FROM  THE  PACK 

LB 

TPE 

LI 

TYPE  OF  PARACHUTE 

1  =  DRAG 

2  =  RECOVERY 

- 

TRM(3) 

GP  or  MP 

X, Y,Z  PARENT  BODY  EARTH 

SYSTEM  VELOCITY  COMPONENTS 

TO  DETERMINE  THE  POSITION 
RATES  DURING  TRIM 

FT/SEC 
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NAME 


NO 


DESCRIPTION 


UNITS 


UPP(3) * 

X, Y,Z  EARTH  SYSTEM 

LINEAR  VELOCITY  VECTOR 

OF  THE  PARACHUTE  PACK 

CENTER  OF  GRAVITY 

XPP(3)* 

X, Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  PACK  CENTER  OF 
GRAVITY 

WPP(3)* 

X,Y,Z  PARACHUTE  PACK  BODY 
AXIS  ANGULAR  VELOCITY 

VECTOR 

EPP(3)* 

EARTH  TO  PARACHUTE  PACK 

EULER  ANGLES  (YAW,  PITCH, 
ROLL) 

UPC( 3) * 

X, Y,Z  EARTH  SYSTEM  LINEAR 
VELOCITY  VECTOR  OF  THE 
PARACHUTE  CANOPY 

XPC(3)* 

X, Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
PARACHUTE  CANOPY 

PHA 

PARACHUTE  PHASE 

1  =  PRIOR  TO  PARACHUTE 

LAUNCH 

2  =  FROM  LAUNCH  UP  TO  LINE 

STRETCH 

3  *  AFTER  LINESTRETCH 

FT/SEC 

FT 

DEG/SEC 

DEG 

FT/SEC 

FT 


♦These  output  quantities  are  states 


1 

■ 

! 

PC  i 

NAME 

PORT 

NO. 

DESCRIPTION 

. ! 

UNITS  !  ! 

SW 

FLAG  TO  INDICATE  PARACHUTE 
AERODYNAMIC  CALCULATION 

MODE: 

0  =  PRIOR  TO  LAUNCH 

1  =  FROM  PARACHUTE  LAUNCH 

TO  LINESTRETCH 

2  =  DURING  INFLATION 

3  =  DURING  REEFING 

4  =  AFTER  REEFING 

5  =  PARACHUTE  INFLATED 

i  ' 

V 

f 

1  3 

i  ! 

;  "] 

;  i 

| 

FL 1(3)* 

X, Y,Z  EARTH  SYSTEM 

AERODYNAMIC  LIFT 

COMPONENTS 

i  * 

LB  1  j 

i 

FDR(3)* 

X, Y,Z  EARTH  SYSTEM 

AERODYNAMIC  DRAG 

COMPONENTS 

LB 

FMA(3) 

1 

i. 

X, Y,Z  EARTH  SYSTEM 

FORCE  COMPONENTS  ACTING 

ON  THE  CANOPY  DUE  TO 

AIR  MASS  ACQUISITION 

FORCE 

LS  ;:v: 

1  ; 

1  RM 

i 

f 

RADIUS  OF  THE  SPHERE 
REPRESENTING  THE  INFLATED 
CANOPY 

FT  1 

VOL 

VOLUME  OF  THE  FILLED 

CANOPY 

FT3 

TLA 

PARACHUTE  LAUNCH  TIME  OR 

LINE  SEVERING  TIME 

SEC 

TLS 

LINESTRETCH  TIME 

SEC 

TDS 

TIME  AT  WHICH  DISREEF 

OCCURS 

SEC  ’ 

♦Acting  on 
Acting  on 

the  pack  before 
the  canopy  after 

1 inestretch 

1 inestretch 
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i 

1' 

il 

IMMv 

PARACHUTE  CANOPY  INFLA¬ 
TION  TIME 


TIME  DURATION  OF  REEFED 
PARACHUTE 

TIME  AT  WHICH  THE  CHUTE 
IS  REEFED 


STANDARD  COMPONENT  "PC"  CALCULATES 

THE  ANGULAR  AND  LINEAR  STRETCHED  CANOPY  CENTER  OF 

RATES  FOR  THE  PARACHUTE  PACK  GRAVITY  (EARTH  REFERENCE  FRAME) 


Figure  26.  Standard  Component  "PC"  Input/Output  Overview 


RL 


NAME 

PORT 

NO. 

NORMALLY 

ORIVEN 

BY 

DESCRIPTION 

UNITS 

BLl (3 ) 

X,Y,Z  SEAT  AXIS  POSITION 
VECTOR  OF  THE  RIGHT  LOWER 
BLOCK 

FT 

BL2 ( 3 ) 

X.Y.Z  SEAT  AXIS  POSITION 
VECTOR  OF  THE  RIGHT  MIDDLE 
BLOCK 

FT 

BL3(3) 

X,Y,Z  SEAT  AXIS  POSITION 
VECTOR  OF  THE  RIGHT  UPPER 
BLOCK 

FT 

BL4(3) 

X,Y,Z  SEAT  AXIS  POSITION 
VECTOR  OF  THE  LEFT  LOWER 

BLOCK 

FT 

BL5 ( 3 ) 

X,Y,Z  SEAT  AXIS  POSITION 
VECTOR  OF  THE  LEFT  MIDDLE 
BLOCK 

FT 

BL6(3) 

X,Y,Z  SEAT  AXIS  POSITION 
VECTOR  OF  THE  LEFT  UPPER 

BLOCK 

FT 

UP 

EJECTION  DIRECTION  FLAG 
+1  =  UPWARD  WRT  THE 

AIRPLANE 

-1  =  DOWNWARD  WRT  THE 
AIRPLANE 

RLR 

RIGHT  RAIL  Z  COORDINATE 

OF  THE  END  OF  THE  RIGHT 

RAIL 

FT 

XRR ( 3 ) 

X,Y,Z  AIRPLANE  POSITION 

VECTOR  OF  THE  ORIGIN  OF 

THE  RIGHT  RAIL  COORDINATE 
SYSTEM 

FT 

RLL 

LEFT  RAIL  Z  COORDINATE  OF 

THE  END  OF  THE  LEFT  RAIL 

FT 
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RL 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

XRL(3) 

X,Y,Z  AIRPLANE  POSITION 

VECTOR  OF  THE  ORIGIN  OF 

THE  LEFT  RAIL  COORDINATE 

SYSTEM 

FT 

ERL (3) 

AIRPLANE  TO  RAILS  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 

SPR (2) 

X, Y  RAIL  SPRING  CONSTANTS 

LB/FT 

DPG  (2) 

X,Y  RAIL  DAMPING  CONSTANTS 

LB/FT/SEC 

SBF 

SLIDER  BLOCK  FRICTION 
COEFFICIENT 

- 

ZTS 

RIGHT  RAIL  AXIS  Z  COORDINATE 

OF  THE  KEY  BLOCK  AT  TRIP 

SWITCH  CONTACT 

FT 

BTS 

TRIP  SWITCH  KEY  BLOCK  NUMBER 

1  =  BOTTOM  RIGHT  BLOCK 

2  =  MIDDLE  RIGHT  BLOCK 

3  =  TOP  RIGHT  BLOCK 

CPT (3 ) 

X,Y,Z  AIRPLANE  POSITION 

VECTOR  OF  THE  CRITICAL 
CLEARANCE  POINT 

FT 

SRP(3) 

SE 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT 

UST ( 3 ) 

SE 

X,Y,Z  SEAT  BODY  AXIS  LINEAR 
VELOCITY  VECTOR  OF  THE  SEAT 
REFERENCE  POINT 

FT/SEC 

EST ( 3 ) 

SE 

EARTH  TO  SEAT  EULER  ANGLES 
(YAW, PITCH, ROLL) 

DEG 

WST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS  ANGULAR 
VELOCITY  VECTOR  OF  THE  SEAT 

DEG/SEC 

XAP (3 ) 

AE  or  SL 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 

AIRPLANE 

FT 
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RL 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

8Y 

DESCRIPTION 

UNITS 

UAP(3) 

AE  or  SL 

X,Y,Z  AIRPLANE  BODY  AXIS 
LINEAR  VELOCITY  VECTOR  OF 

THE  AIRPLANE 

FT/ SEC 

EAP(3) 

AE  or  SL 

EARTH  TO  AIRPLANE  EULER 
ANGLES  (YAW,  PITCH,  ROLL) 

DEG 

WAP(3) 

AE  or  SL 

X,Y,Z  AIRPLANE  BODY  AXIS 
ANGULAR  VELOCITY  VECTOR 

DEG/SEC 

248 


mmm&k Mm* 


RL 


NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

F2(3) 

1 

X,Y,Z  SEAT  BODY  AXIS  FORCE 

COMPONENTS  ON  THE  SEAT 

FROM  THE  RAILS 

LB 

T2(3) 

1 

X,Y,Z  SEAT  BODY  AXIS  TORQUE 

COMPONENTS  ON  THE  SEAT 

FROM  THE  RAILS 

FT-LB 

FR1 ( 3 ) 

1 

X,Y,Z  AIRPLANE  BODY  AXIS 

FORCE  COMPONENTS  ON  THE 

AIRPLANE  FROM  THE  RAILS 

LB 

TR 1(3) 

1 

X,Y,Z  AIRPLANE  BODY  AXIS 

TORQUE  COMPONENTS  ON  THE 

AIRPLANE  FROM  THE  RAILS 

FT-LB 

FL 

STROKE  FLAG  - 
0  «  GUIDED 

1  =  UNGUIDED 

FTS 

TRIP  SWITCH  CONTACT 

FLAG  (1  =  ON) 

- 

TTS 

TRIP  SWITCH  CONTACT  TIME 

SEC 

OFF 

SEAT/RAIL  SEPARATION  FLAG 
(1  =  SEPARATION) 

- 

OSA  (3,3) 

SEAT  TO  AIRPLANE  DIRECTION 

COSINE  MATRIX 

- 

SRA(3) 

X,Y,Z  AIRPLANE  COORDINATE 

SYSTEM  LINEAR  POSITION 

VECTOR  OF  THE  SRP 

FT 

DIS 

DISTANCE  FROM  THE  CRITICAL 

POINT  TO  THE  SEAT  REFERENCE 

POINT 

FT 

TM(3) 

X,Y,Z  EARTH  VELOCITY  COMPONENTS 

OF  THE  VEHICLE  TO  PASS  TO  THE 

SEAT  DURING  TRIM 

FT/SEC 

RS 


NORMALLY 

DRIVEN 

BY 


DESCRIPTION 


UNITS 


FLAG  TO  RELEASE  ATTACHED 

BODY  (I  =  RELEASE) 

' 

X,Y,Z  PARENT  BODY  AXIS 

LINEAR  POSITION  VECTOR 

OF  THE  ATTACHMENT  POINT 

FT 

PARENT  BODY  TO  ATTACHED 

BODY  ATTACHMENT  POSITION 

EULER  ANGLES  (YAW, PITCH, 

ROLL) 

DEG 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 

PARENT  BODY 

FT 

X,Y,Z  PARENT  BODY  AXIS 

LINEAR  VELOCITY  VECTOR  OF 

THE  PARENT  BODY 

FT/SEC 

EARTH  TO  PARENT  BODY 

EULER  ANGLES  (YAW, PITCH, 

ROLL) 

DEG 

X,Y,Z  BODY  AXIS  ANGULAR 
VELOCITY  VECTOR  OF  THE 

PARENT  BODY 

DEG/SEC 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 
ATTACHED  BODY 

FT 

X,Y,Z  ATTACHED  BODY  AXIS 
LINEAR  VELOCITY  VECTOR  OF 

THE  ATTACHED  BODY 

FT/SEC 

EARTH  TO  ATTACHED  BODY  EULER 
ANGLES  (YAW, PITCH, ROLL) 

DEG 

X,Y,Z  ATTACHED  BODY  AXIS 
ANGULAR  VELOCITY  VECTOR 

OF  THE  ATTACHED  BODY 

DEG/SEC 

RS 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

XR 

LINEAR  SPRING  CONSTANT 

LB/FT 

XD 

LINEAR  DAMPING  CONSTANT 

LB/FT/SEC 

ER(3) 

X,Y,Z  ANGULAR  SPRING  CONSTANT 

FT-LB/DEG 

ED(3) 

X,Y,Z  ANGULAR  DAMPING  CONSTANT 

FT-LB/DEG/SEC 
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I P" 


NAME 

PORT 

NO. 

DESCRIPTION 

FPB(3) 

X,Y,Z  PARENT  BODY  AXIS 

FORCE  VECTOR 

TPB(3) 

X,Y,  Z  PARENT  BODY  AXIS 

TORQUE  VECTOR 

FAB (3) 

X,Y,Z  ATTACHED  BODY  AXIS 
FORCE  VECTOR 

T  AB ( 3 ) 

X,Y,Z  ATTACHED  BODY  AXIS 
TORQUE  VECTOR 

TRM ( 3 ) 

X.Y.Z  PARENT  BODY  EARTH 
SYSTEM  VELOCITY  COMPONENTS 

TO  PASS  TO  THE  ATTACHED  BODY 

( 

: 


E 


RS 

UNITS 

LB 

FT-LB 

LB' 

FT-LB 

FT/SEC 
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r 


SE 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

Fl(3)* 

1  TO 

9 

X,Y,Z  SEAT  BODY  AXIS  FORCE 
COMPONENTS  GENERATED  BY 

A  PYROTECHNIC  DEVICE 

LBS 

Tl(3)* 

1  TO 

9 

X,Y,Z  SEAT  BODY  AXIS  TORQUE 
COMPONENTS  ABOUT  THE  SRP 
GENERATED  BY  A  PYROTECHNIC 
DEVICE 

FT-LBS 

F2(3)* 

1  TO 

9 

X,Y ,Z  SEAT  BODY  AXIS  FORCE 
COMPONENTS  GENERATED  BY 

A  NON- PYROTECHNIC  DEVICE 

LBS 

T2(3)* 

1  TO 

9 

X,Y,Z  SEAT  BODY  AXIS  TORQUE 
COMPONENTS  ABOUT  THE  SRP 
GENERATED  BY  A  NON- 
PYROTECHNIC  DEVICE 

FT-LBS 

CW 

UB 

COMPOSITE  WEIGHT  OF  THE  SEAT 

LBS 

CCG(3) 

WB 

X,Y,Z  SEAT  AXIS  SYSTEM 
COMPOSITE  CENTER  OF  GRAVITY 

FT 

CMI (3) 

WB 

MOMENT  OF  INERTIA 

VECTOR  ABOUT  THE  SEAT 

REFERENCE  POINT  FOR  THE 
COMPOSITE  SEAT  ( IXY, IYY, IZZ) 

SLUG-FT2 

CPI (3) 

WB 

PRODUCT  OF  INERTIA 

VECTOR  ABOUT  THE  SEAT 

REFERENCE  POINT  FOR  THE 
COMPOSITE  SEAT  (IXY.IXZ, IYZ) 

SLUG-FT2 

TM  (3 ) 

RL 

X,Y,Z  VEHICLE  EARTH 

FT/SEC 

VELOCITY  COMPONENTS  TO 
DETERMINE  THE  POSITION 
RATE  DURING  TRIM 


*  Oefault  =  0. 
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SE 


PORT 


NAME 

NO. 

DESCRIPTION 

UNITS 

UST(3)* 

X,  Y,Z  SEAT  BODY  AXIS 

LINEAR  VELOCITY  VECTOR 

OF  THE  SEAT  REFERENCE  POINT 

FT/SEC 

SRP(3)* 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 

SEAT  REFERENCE  POINT 

FT 

WIST  (3)* 

X,Y,Z  SEAT  BODY  AXIS 

ANGULAR  VELOCITY  VECTOR 

OF  THE  SEAT 

DEG/SEC 

EST(3)* 

EARTH  TO  SEAT  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 

ALT 

SEAT  ALTITUDE 

FT 

*  These 

output  quantities 

are  states. 

2S5 


SL 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

UD(3)* 

X.Y.Z  SLED  SYSTEM  LINEAR 
VELOCITY  RATE  VECTOR 

FT/SEC/SEC 

WD(3)* 

X,Y,Z  SLED  SYSTEM  ANGULAR 
VELOCITY  RATE  VECTOR 

DEG/SEC/SEC 

♦Default 

value  =  0. 

PORT 

NAME  NO. 

DESCRIPTION 

UNITS 

UAP(3)* 

X,Y,Z  SLED  BODY  AXIS 

LINEAR  VELOCITY  COMPONENTS 

FT/SEC 

XAP(3)* 

X,Y,Z  EARTH  SYSTEM  LINEAR 
POSITION  VECTOR  OF  THE 

SLED 

FT 

WAP(3)* 

X,Y,Z  SLED  BODY  AXIS 

ANGULAR  VELOCITY 

COMPONENTS 

DEG/SEC 

EAP ( 3 ) * 

EARTH  TO  SLED  EULER  ANGLES 
(YAW, PITCH, ROLL) 

DEG 

♦These  output  quantities  are  states. 
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SP 


NORMALLY 

PORT  DRIVEN 

NAME  NO.  BY _ 

TRF 

TMA 

TST 

FL 

YPR 

AVW 

WMI 

SMI 

RII 

RIF 

XR(3) 


DESCRIPTION 

ROCKET  TABLE: 

TIME  (INDEPENDENT) 

FORCE  (DEPENDENT) 

MECHANICAL  ADVANTAGE  TABLE: 
GIMBAL  ANGLE  (INDEPENDENT) 
MECHANICAL  ADVANTAGE 
(DEPENDENT) 

SPRING  MOMENT  TABLE: 

GIMBAL  ANGLE  (INDEPENDENT) 
SPRING  TORQUE  (DEPENDENT) 

STAPAC  IGNITION  FLAG 
(1  =  STAPAC  ON) 

STAPAC  APPLICATION  FLAG 

1  =  YAW  STAPAC 

2  =  PITCH  STAPAC 

3  =  ROLL  STAPAC 

ANGULAR  VELOCITY  OF 
GYROSCOPE  WHEEL 

MOMENT  OF  INERTIA  OF  THE 
WHEEL  ABOUT  ITS  SPIN  AXIS 

MOMENT  OF  INERTIA  OF  THE 
SYSTEM  LESS  THE  ROCKET 
ABOUT  THE  GIMBAL  AXIS 

MOMENT  OF  INERTIA  OF  THE 
ROCKET  PRIOR  TO  IGNITION 

MOMENT  OF  INERTIA  OF  THE 
ROCKET  AFTER  BURNOUT 

X, Y,Z  SEAT  BODY  AXIS 
POSITION  VECTOR  OF  THE 
ROCKET  NOZZLE 


UNITS 

SEC 

LBS 

DEG 

DEG 

FT-LBS 


DEG/SEC 

SLUG-FT2 

SLUG-FT2 

SLUG-FT2 

SLUG-FT2 

FT 
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SP 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

UV(3)** 

X,Y,Z  ROCKET  FORCE  UNIT 

VECTOR  IN  THE  ROCKET 

COORDINATE  SYSTEM 

GSA 

GIMBAL  MOTION  STOP  IN  THE 
NEGATIVE  ROLL  DIRECTION 
(MEASURED  FROM  THE  CAGED 
POSITION) 

DEG 

GSF 

GIMBAL  MOTION  STOP  IN  THE 
POSITIVE  ROLL  DIRECTION 
(MEASURED  FROM  THE  CAGED 
POSITION) 

DEG 

SPR 

GIMBAL  STOP  ANGULAR  RIGIDITY 

FT-LB/DEG 

OPG 

GIMBAL  STOP  ANGULAR  DAMPING 

FT-LB/DEG/SEC 

FMT 

LOAD  AT  MAXIMUM  FRICTION 

LBS 

TMX 

MAXIMUM  FRICTION 

FT-LB 

TNF 

FRICTION  AT  NO  THRUST 

FT-LB 

TOS 

THRUSTLINE  OFFSET 

FT 

TSU* 

GYROSCOPE  WHEEL  SPINUP 

TIME  (SEC) 

SEC 

GMA* 

GIMBAL  ANGULAR  VELOCITY 

AT  MAXIMUM  FRICTION 

DEG/SEC 

WST(3) 

SE 

X,Y,Z  SEAT  BODY  AXIS 

ANGULAR  VELOCITY  VECTOR 

OF  THE  SEAT 

DEG/SEC 

♦Oefaults  =0. 
**Defau1ts:  UV(1)  3  0. 

UV(2)  3  0. 
UV(3)  3  -1. 
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NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

WG* 

GIMBAL  SYSTEM  X-AXIS 

ANGULAR  VELOCITY 

DEG/SEC 

ESG ( 3 ) * 

SEAT  TO  GIMBAL  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 

ESR(3)* 

SEAT  TO  ROCKET  EULER 

ANGLES  (YAW, PITCH, ROLL) 

DEG 

PHA 

STAPAC  OPERATIONAL  PHASE 

0  =  BEFORE  IGNITION 

1  =  STAPAC  IGNITION 

2  =  STAPAC  BURNOUT 

FI  ( 3 ) 

1 

X,Y,Z  SEAT  BODY  AXIS 

FORCE  COMPONENTS  OF 

STAPAC  ON  THE  SEAT 

LB 

T1  (3 ) 

1 

X, Y,Z  SEAT  BODY  AXIS  TORQUE 
COMPONENTS  OF  STAPAC  ON  THE 
SEAT 

FT-LB 

TIN 

TIME  AT  STAPAC  INITIATION 

SEC 

ECA 

SEAT  TO  GIMBAL  ROLL  EULER 
ANGLE  AT  THE  CAGED  POSITION 

DEG 

♦These  output  quantities 

are  states. 
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Figure  28.  Standard  Component  "SP"  Input/Output  Overview 


SR 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

TRF 

ROCKET  TABLE: 

TIME  (INDEPENDENT 

FORCE  (DEPENDENT) 

SEC 

LBS 

FON 

CT 

SUSTAINER  IGNITION  FLAG 
(1  =  ROCKET  ON) 

- 

PCG(3) 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 
PROPELLANT  CENTER  OF 

GRAVITY 

FT 

EA(3) 

SEAT  TO  ROCKET  PROPELLANT 
EULER  ANGLES  (YAW, PITCH, 
ROLL) 

DEG 

XRN(3) 

X,Y,Z  PROPELLANT  SYSTEM 
POSITION  VECTOR  OF  THE 

ROCKET  NOZZLE 

FT 

YAW 

YAW  EULER  ANGLE  OF  THE 

THRUST  VECTOR  IN  THE 
PROPELLANT  COORDINATE 

SYSTEM 

DEG 

PIT 

PITCH  EULER  ANGLE  OF  THE 
THRUST  VECTOR  IN  THE 
PROPELLANT  COORDINATE 

SYSTEM 

DEG 

PL 

PROPELLANT  GRAIN  LENGTH 

FT 

POD 

PROPELLANT  GRAIN  OUTSIDE 
DIAMETER 

FT 

PID 

PROPELLANT  GRAIN  INSIDE 
DIAMETER 

FT 
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SR 


NAME 

W* 


PORT 

NO. 

1 


DESCRIPTION  UNITS 

WEIGHT  OF  UNBURNED  LB 

PROPELLANT 


PHA 

ROCKET  PHASE 

0  =  BEFORE  IGNITION 

1  =  ROCKET  BURN 

2  =  ROCKET  OFF 

RON 

ROCKET  ON  FLAG 
(1  =  ON  0  =  OFF) 

Fl(3) 

1 

X,Y,Z  SEAT  BODY  AXIS 

FORCE  COMPONENTS 

LB 

Tl(3) 

1 

X,Y,Z  SEAT  BODY  AXIS 

TORQUE  COMPONENTS 

FT-LB 

X  ( 3 ) 

1 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 
PROPELLANT  CENTER  OF 

GRAVITY 

FT 

BM(3) 

1 

X,Y,Z  UNBURNED  ROCKET 
PROPELLANT  MOMENTS  OF 

INERTIA  ( IXX, IYY, IZZ) 

SLUG-FT2 

BP  (3) 

1 

UNBURNED  ROCKET  PROPELLANT 
PRODUCTS  OF  INERTIA  (IXY, 
IXZ.IYZ) 

SLUG-FT2 

FR 

SUSTAINER  ROCKET  FORCE 
MAGNITUDE 

LB 

PWI 

INITIAL  WEIGHT  OF  THE 
PROPELLANT 

LB 

SPI 

ROCKET  PROPELLANT  SPECIFIC 
IMPULSE 

LB-SEC/LB 

RHO 

ROCKET  PROPELLANT  DENSITY 

LB/FT3 

VWI 

INITIAL  VIRTUAL  WEIGHT 

LB 

TMI(3) 

PROPELLANT  MOMENTS  OF  INERTIA 
AS  IF  IT  WERE  A  SOLID  GRAIN 

SLUG-FT2 

TIG 

ROCKET  IGNITION  TIME 

SEC 

♦This  output  quantity  is  a  state. 
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1 


Figure  30.  Standard  Component  “SR"  input/Output  Overview 


WB 


NAME 

PORT 

NO. 

NORMALLY 

DRIVEN 

BY 

DESCRIPTION 

UNITS 

AB 

NUMBER  OF  ATTACHED  BODIES 

- 

SU 

BASIC  SEAT  WEIGHT 

LB 

SX(3) 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 

BASIC  SEAT  CENTER  OF 

GRAVITY 

FT 

SM  (3) 

MOMENT  OF  INERTIA  VECTOR 

ABOUT  THE  C.G.  FOR  THE 

BASIC  SEAT  ( IXX, IYY, IZZ) 

SLUG-FT2 

SP(3) 

PRODUCT  OF  INERTIA  VECTOR 

ABOUT  THE  C.G.  FOR  THE  BASIC 
SEAT  (IXY.IXZ.IYZ) 

SLUG-FT2 

W* 

1 

SR 

WEIGHT  OF  BODY  ONE 

LB 

X(3)* 

1 

SR 

X,Y,Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 

CENTER  OF  GRAVITY  FOR 

BODY  ONE 

FT 

BM ( 3 ) * 

1 

SR 

MOMENT  OF  INERTIA  VECTOR 

FOR  BODY  ONE  TRANSFORMED 

INTO  THE  SEAT  SYSTEM 
(IXX, IYY , IZZ ) 

SLUG-FT2 

BP(3)* 

1 

SR 

PRODUCT  OF  INERTIA  VECTOR 

FOR  BODY  ONE  TRANSFORMED 

INTO  THE  SEAT  SYSTEM 
(IXY.IXZ.IYZ) 

SLUG-FT2 

W* 

2 

WEIGHT  OF  BODY  TWO 

LB 

X  ( 3 )  * 

2 

X.Y.Z  SEAT  BODY  AXIS 

POSITION  VECTOR  OF  THE 

CENTER  OF  GRAVITY  FOR 

BODY  TWO 

FT 

BM(3)* 

2 

MOMENT  OF  INERTIA  VECTOR 

FOR  BODY  TWO  TRANSFORMED 

INTO  THE  SEAT  SYSTEM 
(IXX, IYY, IZZ) 

SLUG-FT2 

♦Default  value  ■  0. 
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Note  -  All  moments  and  products  of  inertial  must  be  rotated  into  the  seat 
coordinate  system. 


WB 


PORT 


NAME  NO. 

DESCRIPTION 

UNITS 

CW 

COMPOSITE  WEIGHT  OF  THE  SEAT 

LB 

CCG(3) 

X,Y, Z  SEAT  BODY  AXIS 

COMPOSITE  CENTER  OF 

GRAVITY 

FT 

CMI(3) 

MOMENT  OF  INERTIA  VECTOR 

ABOUT  THE  C.G.  FOR  THE 
COMPOSITE  SEAT  (IXX, IYY.IZZ) 

SLUG-FT2 

CPI ( 3 ) 

PRODUCT  OF  INERTIA  VECTOR 

ABOUT  THE  C.G.  FOR  THE 
COMPOSITE  SEAT  (IXY, IXZ.IYZ) 

SLUG-FT2 
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APPENDIX  E 


PROGRAM  AEROMED 


This  appendix  contains  program  AEROMED,  the  aeromedical  post  processor. 
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JUO  O  O  i_>  >4  J  vj  IJUO 


PROGRAM  AERQMtD  ( OUTPUT, TAPE7 , TAPE6=0UTPUT f 
C 

DIMENSION  T IMt (4000) ,GX(4GOO) ,GY(4G00> ,GZ (4000) ,DR(4000) » 
.  RAO (4000 ) , RADXY (4000) ,RA0Z ( 4000 > 

C 

C  NOT ICt . 

C 

C  A  PORTION  OF  THIS  PROGRAM  EVALUATES  ACCELERATION  DATA 
C  ESSENTIALLY  IN  ACCORDANCE  WITH  ACCEPTED  AEROMEDICAL 
C  PROCEDURES.  THESE  KlNOs  OF  RESULTS  ARE  THEN  NORMALLY  USED 
C  TOGETHER  WITH  OTHER  FACTORS  TO  DETERMINE  ACCEPTABILITY  OF 
C  ACCELERATION  LOADS  APPLItO  TO  THE  EJECTEE. 

C 

C  THE  EVALUATION  METHOD  HAS  BEEN  ADOPTED  HERE  TO  SERVE  AS  A 
C  FOUNDATION  FOR  CREATING  FIGURES  OF  MERIT  RELATED  TO  THE 
C  PERFORMANCE  OF  A  PARTICULAR  ESCAPE  SYSTEM  CONFIGURATION. 

C  THERE  IS  THEN  AN  OPPORTUNITY  TO  COMPARE*  BY  STANDARD  MEANS* 

C  THE  PERFORMANCE  OF  ONE  CONFIGURATION  WITH  THAT  OF  OTHERS 
C  AND  COMPARED  IN  TERMS  OF  THE  MOST  FUNDAMENTAL  AND  CRITICAL 
C  PARAMETERS  OF  PERFORMANCE  OF  ANY  ESCAPE  SYSTEM*  NAMELY* 

C  ACCEt ORATION  LOADS  ON  THE  HOMAN  EJECTEE. 

C 

C  THIS  PROGRAM  THEREFORE  SERVES  AS  AN  ENGINEERING  TOOL  ONLY 
C  AND  SHOULD  NOT  BE  CONSIDERED  AN  ACCEPTABLE  AEROMEDICAL 
C  EVALUATION  TOOL  TO  MEASURE  ACCEPTABILITY  OF  AN  ESCAPE  SYSTEM 
C  FOR  Safe  operational  use. 
c 

C  **********  INITIALIZATION  ********** 

c 

GXMAX  =  GYMAX  =  GZMAX  *  DRMAX  -  ROMAX  =  -10. 

GXMIN  =  GYMIN  =  GZMIN  =  ORMIN  =  ROMIN  *  10. 

TINJURY  *  EXPERNC  *  0 

*****  READ  THE  AEROMED  PARAMETERS  FROM  TAPE7  ***** 

REWIND  7 

Re AO l 7 » ID )  PRT,tXP,GXP,GXN,GYL,GZL,URP,DRN,ROL 
10  FORMAT (9F12.4) 

*****  Rt  AD  THE  AEROMED  VARIABLES  FROM  TAPt7  ***** 

NPTS  *  4000 
1=0 

20  1  =  1  +  1 

IF(I.GT.40GG)  GO  TO  35 

Rt  AD  (7,10  TIMfctI),DR(I),&XU),GY(l),GZm 

IF ( EOF (7 ) )  30,25 

25  GX ( 1 )  =  -GX(I) 

GY (I )  =  -GYtl) 

GO  TO  20 

30  NPTS  =1-1 

*****  CALCULATE  raoxy  and  raoz  ***** 

35  DU  40  1=1, NPTS 
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non  r o n  o  pop  nrn  rrn 


GXL  =  GXP 

IF(GXCl) .LT.O.O)  GXL  =  GXN 
DRL  =  ORP 

If (GX(1) .LT.0.01  DRL  =  DRN 

RADAYtl)  =  (GXl  I  )/GXL  )**2  ♦  (GY(I»/GYU**2 
40  RAOZ(I)  =  (DR ( I i /DRL ) **2 
C 

L  *****  CALCULATE  THE  Z-AXIS  TOLERANCE  RATIO  FOR  EACH  WINDOW  ***** 

C 

N  *  0 

50  N  =  N  l 

1*0 

RAOZMAX  *  0 
40  J  *  N  ♦  I 
C 

IF(TlME(J>.GT.TlME(N)+0.063)  GO  TO  70 
1F(GZ(J).GE.0.)  RAOZMAX  *  AMaXI ( RADZ (  J)  »R AOZMAX ) 

1F(G2( J)  .LT.O.  )  RAOZMAX  *  AMAX1UGZI  J)/GZL)**2,RADZMAX> 

IF( J.EQ.NPTS)  GO  TO  40 
1  =  1*1 
GO  TO  60 

DETERMINE  THE  ACCELERATION  RADICAL  . 

70  RAD(N)  =  SORT  (RAOZMAX  *  RAOXY(N)) 

UPDATE  The  UNSAFE  LOAD  EXPERIENCE  FACTOR  . 

1F(RUL.gE.RAD(NJ i  GO  TO  60 

TINJURY  =  TINJURY  ♦  (RAD(NI-RDU**EXP  *  l TIME  (N*l )— TIME(N)) 

UPDATE  THE  TOTAL  LOAD  EXPERIENCE  FACTOR  . 

SO  EXPERNC  =  EXPERNC  ♦  RAD(N)**EXP  *  (TIME(N*1)-TIME(N )  ) 

GO  TO  50 
90  N  =  N  -  1 

TMAX  =  T1ME(NI 

*****  CALCULATE  The  SAFe  LOAD  EXPERIENCE  FACTOR  ***** 

TINJURY  =  TINJURY/T IME (Nl 
EXPERNC  =  EXPERNC/TIME(NI 
THRtAT  =  EXPERNC  -  TINJURY 

*****  CALCULATE  THE  MAXIMUM  AND  MINUMUM  AEROMEO 1CAL  VARIABLES  ***** 

DO  100  1=1 tN 
L 

GXMAX  =  AMAXI ( GXMAX»GX( 11) 

IF(GXMAX.EQ.GXU)  )  GXMAXT  =  TIME  (I) 

GYMAX  =  AMAX1(GYMAX,GY( I) ) 

IF (GYMAX  »EW» GY (11)  GYMAXT  =  TIMt(I) 

GZMAX  =  AMAXI ( GZMAX«GZ( 1 ) ) 

IF (GZMAX.E  J.GZI I ) )  GZMAXT  =  TiME(I) 

DRMAX  *  AMAXI ( ORMAAfDR( 1 ) ) 

IF (DRMAX.EO.DRi I )  )  DRMAXT  =  TIME(I) 

RDMAX  =  AMAX1(RDMAX,RaD(1) ) 
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c 

150 


IFlkDMAX.EQ.RADU>)  RDMAXT  =  TlME(l) 

GXN1N  a  AM1N1 (GXMlN,GXl 1 ) ) 

IF (GXM1N.EQ.GX ( I ) )  GXM1NT  =  TIMfc(I) 

GY  MIN  =  AM  INI (GYMIN ,G Y { I ) ) 

IF (GYM1N.EQ.GY( 1 ) }  GY MINT  «  TIME!  I) 

GZMiN  a  AM1N1 ( GZMIN, GZ( 1 ) ) 

IF ( GZMIN. EQ.GZ ( 1 ) )  GZM1NT  =  TIME(I) 

***  WRITE  TO  THfc  OuTPoT  FILE  ***** 

WRITE  (6,110)  TMAX 

FORMAT  ( lrt 1 ,  *HuMAN  TOLERANCE  ANALYSIS  THROUGH  *,F10.3, 

.  *  SECONDS  OF  THE  SIMULATION*///, 

.  *  AEROMEUICAL  SIGN  CONVENTION . *//, 

.  *  GX  =  +ACCEL,  GY  =  +ACCEL,  GZ  =  -ACCEL . */// ) 

IF(PRT.£Q.i. )  WRITE (6, 120) 

FORMAT  (//4X,*IlME*,9X,*GX*,10X,*GY*,10X,*GZ*,l0X,*0RI*,<iX,*RAD*,//, 
.  1X,F7.3,4F12.2,F11.2) 

IFtPRT.EQ.l.)  WRIT  E (6 , 130 )  (T IME (I ) ,GX( I ) , GY ( 1 ) ,GZ ( I ) ,UR ( I ) , 

.  RAOU)  ,I  =  1,N) 

FORMAT ( 1X,F7.3«4F12.2«F11.2 ) 


WRIT c I b , 140 )  GXMAX ,GXMAXT , GYM AX ,GYMAXT , GZM AX , GZMAXT , 
.  GXMIN, GXM1NT, GYM  IN, GYMINT, GZMIN, GZMINT, 
.  DRMAX,DKMAXT,ROMAX, RDMAXT 


FORMAT  ( 2( 1H0/ ) ,* 

GXMAX 

*, F 14.2, * 

TIME 

= 

♦,F14.3,//, 

* 

GYMAX 

= 

*,F 14.2 ,* 

TIME 

= 

*,F14.3,//, 

* 

GZMAX 

= 

*,F1 4.2,* 

TIME 

= 

*,F14.3,//, 

* 

GAMIN 

*,F14.2,* 

TIME 

= 

*,F 14.3,/ /, 

* 

GYM  IN 

= 

*, F 14.2 ,* 

TIME 

*,F14.3,//» 

* 

GZMIN 

= 

*,F14.2,* 

TIME 

= 

*, F 14.3,/ / , 

.  *  DR1MAX  *  *,  F13. 2,  *  TIME  =  *,F1‘».3,//, 

.  *  RAUMAX  a  *,F13.2,«  TIME  =  *,F14.3) 

WRITE  (6,150  EXPkKNC, THREAT, T1NJURY 

FORMAT  12 (  1H0/ )  ,*  FIGURES  OF  MERIT . *,////, 

.  *  EXPERIENCE  FACTOR  -  TOTAL  LOAD  =  *, 

•F14.3,// , 

.  *  EXPERIENCE  FACTOR  -  SAFE  LOAD  =  *, 

.F14.3,//, 

.  *  EXPERIENCE  FACTOR  -  UNSAFE  LOAD  =  *, 

.fia.j) 

END 
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APPENDIX  F 


EASIEST  PROCEDURE  FILES 


This  appendix  contains  listings  of  the  EASIEST  procedure  files.  The 
procedure  for  attaching  these  files  and  submitting  an  EASIEST  run  is 
given  in  Section  V. 
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EASIEST  PROCEDURE  FILE  -  LATEST  REVISION  DEC  12,  1980 
* 

THIS  FILE  CONTAINS  THE  CCL  PROCEDURES  REQUIRED  TO  EXECUTE  AND  MAINTAIN  THE 
EASIEST  CREW  ESCAPE  SIMULATION  PROGRAM 
★ 

PROCEDURE  DIRECTORY 


SUBRUN 

DBFMOD 

COMPILE 

COMPALL 

EZSTGEN 


PROCEDURE  TO  SUBMIT  A  BATCH  EASIEST  RUN 
PROCEDURE  TO  MODIFY  THE  EASIEST  DATA  BASE  FILE 
PROCEDURE  TO  COMPILE  A  SINGLE  EASIEST  COMPONENT 
PROCEDURE  TO  COMPILE  AN  ENTIRE  SOURCE  LIBRARY 
PROCEDURE  TO  GENERATE  EASIEST  FROM  DELIVERY  TAPE 


SEE  THE  EASIEST  MANUAL  FOR  COMPLETE  USAGE  INFORMATION 
★ 


*EOR 

.PROC,  SUBRUN,  MODFILE ,  ANLFILE  ,TIME=10ier,  INOUT=100, 
CORE=1150W,IDENT=EZ5,COEF=(7,NOLIST=OUTPUT/(7,AEROMED=g/YES. 

RETURN, JOB, PF,MODFILE,ANFILE. 

REQUEST, JOB, *Q. 

COPYCR, JOBFILE, JOB. 

ATTACH, MODFILE. 

COPYCF,MODFILE, JOB . 

ATTACH, ANLFILE. 

COPYCF,ANLFILE, JOB. 

ROUTE( JOB,DC=IN,TID=Zl ,ST=CSA) 

RETURN , MODFI LE , ANLF I LE , JOB , JOBF I LE . 

.DATA, JOBFILE 

I DENT, T  TIME, 10  INOUT.CM  CORE.  D790183,CREW  ESCAPE  EASIEST  JOB 
ATTACH(C0MPLIB,MR=1 ) 

ATTACH(EZSTLIB,MR=1) 

LIBRARY(EZSTLIB.COMPLIB) 

COPYCF, INPUT, MODEL. 

REWIND, MODEL. 

ATTACH(EASY5,MR=1) 

ATTACH(TAPE78=EZSTDBF,MR=1 ) 

MAP (OFF) 

LDSET(PRESET=ZERO) 

EASY5( MODEL) 

RETURN ( MODEL , EAS Y5 , EAS Y , TAPE  78 , TAPE  7 , TAPE  8 , TAPE  10 , TAPE  11 , TAPE  12 ) 

REWI ND ( TAPE9) 

RFL,CORE. 

FTN(I=TAPE9,B=EZFORT,R=2,EL=F,L=N0LIST, ROUND) 

COPYCF, INPUT, ANFIL. 

REWIND, ANFIL. 

RETURN (TAPE3) 

IFE,.NOT.NUM(COEF),NOAIRP. 

ATTACH(TAPE3=C0EF ,MR=1 ) 

ENDIF.NOAIRP. 

REWIND(EZFORT) 

ATTACH(N0NSIM5,MR=1) 

C0PYLM(N0NSIM5,EZF0RT,N0NSIMT) 
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A0-A096  597  B0EIN6  MILITARY  AIRPLANE  CO  SEATTLE  WA  P/6  1/3 

ANALYSIS  OF  EJECTION  SEAT  STABILITY  USING  EASY  PROGRAM.  VOLUME  ~CTC(U» 
SEP  80  CL  WEST.  B  R  UMMEL*  R  F  YURCZYK  F33615-79-C-3407 

UNCLASSIFIED  AFWAL-TR-8O-3014-VOL-1  NL 


REWlhU(NONSIMT) 

RETURN(EZFORT,NONSIM5,MAPFILE ) 

LDSET(PRESET=ZERO,MAP=SB/MAPFILE) 

NONSIMT(ANFIL) 

SKIP, NOMAP. 

EXIT,U. 

REWIND, MAPFILE. 

COPYCF.MAPFILE, OUTPUT. 

EXIT. 

ENDIF, NOMAP. 

IFE, .NOT.NUM(AEROMED) ,NOAERO 
REWIND, TAPE7. 

ATTACH ( AROMEDB, MR=1) 

LDSET ( PRESET=ZERO) 

AROMEDB. 

RETURN, AROMEDB. 

ENDIF, NOAERO. 

EXIT.U. 

REWIND(TAPE30) 

RETURN (TAPE25, INIT, INTERP.NONSIM, SI BTCH,TFBTCH,RLBTCH) 

RETURN! SMBTCH,ANFIL,NONSIMT) 

ATTACH (NSMPPT, MR =1) 

LDSET (PRESET=ZERO) 

NSMPPT(PL=99999) 

EXIT. 

*EOR 

★★★★★***************************^***^***************x************************** 

*EOR 

.PROC.DBFMOD, INFILE, DBFILE=EZSTDBF,LSTFILE. 

RETURN, TAPE3,TAPE78, COMPL 18, FI LOAD5 . 

RETURN, LSTFILE, INFILE, PF, DEFILE, EZSTDBF. 

ATTACH, TAPE3=INFILE. 

EXIT.U. 

ATTACH, TAPE78=DBFILE. 

EXIT.U. 

SET,R1=0. 

IFE,  FILE (TAPE78, AS), PURGE. 

SET,R1=1 . 

ENDIF, PURGE. 

REQUEST, TAPE79,*PF. 

ATTACH, FI LOAD5. 

ATTACH, COMPLIB. 

LIBRARY, COMPLIB. 

MAP, OFF. 

LDSET, PRESET=ZERO. 

FILOAD5. 

LIBRARY. 

CATALOG, TAPE79,DBFILE,RP=999. 

IFE, Rl=l, NOPURGE. 

PURGE, TAPE78. 

ENDIF, NOPURGE. 

RETURN, DBFILE. 

CONNECT, OUTPUT. 

COPYCR.MESFILE, OUTPUT. 
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RETURN , TAPE  78 , TAPE  79 , F IL0AD5 , COMPLI B , TAPE3, MESFILE . 
IFE , F I LE (TAPE9 , AS), NOLIST. 

REWIND, TAPE9. 

C0PYCF,TAPE9,LSTFILE. 

RETURN, TAPE9. 

COPYCR,MESFILE,OUTPUT. 

ENDIF, NOLIST. 

REVERT. 

EXIT. 

LIBRARY. 

CONNECT, OUTPUT. 

SKIPF, MESFILE, 2. 

COPYCR, MESFILE, OUTPUT. 

RE  TURN , TAPE  78 , TAPE  79 , F I LOAD5 , COMPL I B , TAPE  3 , ME  SF I L  E . 
REVERT. 

.DATA, MESFILE. 

DBFMOD  PROCEDURE  HAS  SUCCESSFULLY  EXECUTED. 

A  NEW  CYCLE  OF  DBF  I L  E  HAS  BEEN  CREATED. 

THE  PREVIOUS  HIGHEST  NUMBERED  CYCLE  OF  OBF I LE 

(IF  ONE  EXISTED)  HAS  BEEN  PURGED . 

.EOR 

COMPONENT  INPUT  DATA  IS  AVAILABLE  ON  LOCAL 

FILE  LSTFILE . 

.EOR 

DBFMOD  PROCEDURE  HAS  ABORTED . 

NO  NEW  CYCLE  OF  DBFILE  HAS  BEEN  CREATED... 

PREVIOUS  CYCLE  (IF  ANY)  STILL  EXISTS. 

*EOR 

*EOR 

.PROC, COMPILE, N,CODE=(7. 

RETURN, PF,EZSTFTN,ONEREL,ONEFTN,FTNLIST,LIBLIST. 
REQUEST, FTNLIST,*Q. 

ATTACH, EZSTFTN. 

SKIPF, EZSTFTN, N. 

BKSP, EZSTFTN. 

COPYCR, EZSTFTN, ONEFTN. 

REWIND, ONEFTN. 

RETURN, EZSTFTN. 

FTN, I=ONEFTN,B=ONEREL,R=2,L=FTNLIST. 

ROUTE, FTNLIST,DC=PR,TID=Z1,ST=CSA,FID=F  N  CODE. 
SKIP.Al. 

EXIT.S. 

REWIND, MESFILE. 

CONNECT, OUTPUT. 

COPYBR, MESFILE, OUTPUT. 

RETURN, ONEFTN, ONEREL, MESFILE. 

REVERT, ABORT. 

ENDIF, Al. 

RETURN, EZSTLIB. 

ATTACH, EZSTL IB. 

EDI  TL IB, I=DIRECT,L=LIBLI ST . 

EXTEND, EZSTLIB. 

REWIND, MESFILE. 


SKIPF,MESFILE. 

CONNECT, OUTPUT. 

COPYBR.MESFILE, OUTPUT. 

RETURN, ONEFTN,EZSTLIB,ONEREL,LIBLIST, DIRECT, MESFILE. 

REVERT. 

EXIT.S. 

REWIND, MESFILE. 

SKIPF, MESFILE. 

CONNECT, OUTPUT. 

COPYBR, MESFILE, OUTPUT. 

RETURN, DIRECT, ONEREL, MESFILE. 

REVERT, ABORT. 

.DATA, DIRECT. 

LIBRARY(EZSTLIB,OLD) 

REWIND(ONEREL) 

REPLACED,  ONEREL) 

FINISH. 

ENDRUN. 

.EOF. 

.DATA, MESFILE. 

FORTRAN  ERRORS  DURING  COMPILATION. PROCEDURE  ABORTED 

FORTRAN  LISTING  WITH  ERROR  DESCRIPTION  AVAILABLE  ON  FILE  FTNLIST 

.EOR 

COMPILE  PROCEDURE  SUCCESSFULLY  EXECUTED 
.EOR 

LIBRARY  MODIFY  ERROR . COMPILE  PROCEDURE  TERMINATED 

.EOF 

*EOR 

******************************************************************************* 

*EOR 

. PROC , COMPALL , SOURCE , L I BR ARY , NOL I ST . 

RETURN, SOURCE, RELOC, PACK, LIBRARY. 

ATTACH, SOURCE. 

COMBINE, SOURCE, PACK, 999. 

RETURN, SOURCE. 

REWIND  PACK. 

FTN,I=PACK,L=LIST,B=REL0C,R=2,0PT=2, ROUND. 

REQUEST, LIBARY,*PF. 

EDI TL IB, I=DIRECT,L=0. 

CATALOG, LIBARY,RP=999. 

EXIT.U. 

RETURN, RELOC, PACK, LIBARY. 

REVERT. 

.DATA, DIRECT. 

LIBRARY(LIBARY,NEW) 

REWIND(RELOC) 

ADD(*, RELOC) 

FINISH. 

ENDRUN. 

.EOF 

*EOR 
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PROCEDURE  EZSTGEN 
★ 

THIS  PROCEDURE  WILL  GENERATE  THE  EASIEST  PROGRAM  FROM  THE 
EASIEST  DELIVERY  TAPE 
* 

INSTRUCTIONS 

★ 

TO  EXECUTE  THIS  PROCEDURE  SUBMIT  THE  FOLOWING  DECK  TO 
THE  ASD  COMPUTER  INPUT  QUEUE  AFTER  INSTRUCTING  THE  TAPE 

LIBRARY  TO  MOUNT  TAPE  NUMBER  L02377: 

* 

EZ5,T300, I01000,CM100000,NT1 .  D790I83S3 , E AS I EST  TAPE  RUN 

REQUEST, TAPE, NT, PE, VSN=L02377. 

COPYBF, TAPE, TEMP. 

BEGIN, EZSTGEN, TEMP, TPW= 

* 

SUBMITTING  THE  ABOVE  DECK  WILL  BOOTSTRAP  LOAD  AND  EXECUTE  THE 
FOLLOWING  PROCEDURE 
★ 

*EOR 

.PROC, EZSTGEN, TPW. 

REWIND, TAPE. 

C0PYTF,EZSTPRC,2 
COPYTF,BACOMPS,l 
COP YTF, COMPASS, 1. 

REQUEST, TSOUR, *PF. 

COPYBR , BACOMPS , TSOUR , 999 . 

COPYBR , COMPASS , TSOUR , 999 . 

CATALOG, TSOUR. 

RETURN, TSOUR. 

RETURN, BACOMPS, COMPASS. 

BEGIN, COMPALL, TEMP, TSOUR, COMPL I B , L I ST=(7 . 

ATTACH, TSOUR. 

PURGE, TSOUR. 

RETURN, TSOUR. 

COPYTF, EZSTFTN.l. 

BEGIN, COMPALL, TEMP, EZSTFTN,EZSTLIB,LIST=Q. 

COP YTF, FI LOADS, 1. 

COMPL ,  F I  LOADS ,  F I LOAD5  ,(7 . 

C0PYTF,FILDAT,1 . 

BEGIN, DBFMOD, TEMP, FILDAT. 

COPYTF, EASYS, (7. 

COPYTF ,EASY5, 1 
COMPL, EASYS, EASY5.1. 

COPYTF, NONSIMS, (7. 

COPYTF, NONSIM5.1. 

COMPL , NONSIMS , NONS IM5 , 1 . 

COPYTF, NSMPPTS.l. 

COMPL  ,NSMPPTS,NSMPPT,(7 . 

COPYTF, AEROMED.l. 

COMPL ,  AEROMED ,  AROMEDB ,  (7 . 

COPYTF, F4EMAN, 2. 

COPYTF, MCORR, 2. 

COPYTF, ACORR, 2. 


COPYTF, MODAPP, 2. 

COPYTF  ANALAPP  2 

BEG IN, SUBRUN, TEMP, MCORR.ACORR, TIME =1500, I N0UT=1500, CORE =230000, AEROMED. 
.DATA, COPYTF. 

.PROC, COPYTF, FILE, CODE. 

SET,R1=C0DE . 

RETURN, FILE. 

REQUEST, FILE, *PF. 

COPYBF, TAPE, FILE. 

REWIND, FILE. 

IFE.Rl.NE. 2, NOPASS. 

IFE.Rl.NE.l, NOPASS. 

CATALOG, FILE, RP=999,TK=TPW. 

REVERT. 

ENDIF, NOPASS. 

CATALOG, FILE, RP=999. 

REWIND, FILE. 

IFE.Rl.NE.l, NODROP. 

RETURN, FILE. 

END  IF, NODROP. 

REVERT. 

.EOF 

data  rnMPi 

!  PROC COMPL  |  SOURCE ,  F I LE ,  CODE . 

SET,R1=C0DE. 

REWIND, SOURCE, PACK. 

COMBINE, SOURCE, PACK, 999. 

RETURN, SOURCE, RELOC,PF. 

REWIND, PACK. 

REQUEST, PF,*PF. 

IFE.Rl.NE.  O',  NOCOPY. 

FTN,I=PACK,L=<7, ROUND, 0PT=2,B=REL0C. 

COPYLM,FILE,RELOC,PF. 

RETURN, RELOC, FILE. 

ELSE, NOCOPY. 

FTN,I=PACK,L=<7,OPT=2, ROUND, B=PF. 

IFE.Rl.NE. 2, NOPASS. 

ENDIF, NOCOPY. 

CATALOG, PF, FILE, RP=999. 

RETURN, PF, PACK. 

REVERT. 

ENDIF, NOPASS. 

CATALOG, PF, FILE, RP=999. 

RETURN, PF, PACK. 

REVERT. 
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APPENDIX  G 


EASIEST  STANDARD  COMPONENTS 

This  appendix  contains  listings  of  the  EASIEST  standard  components 
which  include  the  following: 


NAME 

AB 

AE 

AG 

AM 

AP 

AS 

CE 

CS 

CT 

DR 

GP 

LI 

MP 

PC 

RL 

RS 

SE 

SL 

SP 

SR 


DESCRIPTION 

Attached  body  (Survival  Kit) 

Airplane 

Atmospheric  oroperties 
Aeromedical 
Aerodynamic  plate 
Seat  aerodynamics 
Crewperson 

Airplane  control  surfaces 

Catapult 

DART 

Simple  parachute  mortar  and  restraints 

Parachute  lines 

Parachute  mortar 

Parachute 

Rails 

Restraints 
Ejection  seat 
Sled 
STAPAC 


WB 


Sustainer  rocket 
Weight  and  balance 


r  o  r 


I 


SUBROUTINE  AS  (  UAB  ,UABO,  IUAb , XAb,  XABD,  IXAB ,WAB ,WABD »  1HAB , 

E AB  t  E AdD* I E  Ab  » 

HT ,bMi, DPI ,FaU,TAB,FAU,TAU,TRM) 

EASIEST  ATTACHED  bUDY  COMPONENT 

G  DESIGNED  BY  C.L.  HEST 

c  g  As T  MODIFIED  -  DECEMBER  o,  19B0 

C 

t  *♦♦***♦******♦♦  Ad  OUTPUTS  *************** 

L 

G  LINEAR  VELUCI TIES  -  BODY  AXIS 
L 

C  UAb( 3 )  -  X,  Y,  Z  LlNtAR  VELOCITY  VECTOR  OF  THE  ATTACHED 

C  BODY  CFT/SEC) 

C  UAoL*  ( 3 )  -  X,Y,Z  LINEAR  VELOCITY  RATE  VECTOR  OF  THE  ATTACHED 

L  BOOY  (FT/SEC/SeC ) 

L  I U Ad ( 3 )  -  INTtGERATIPN  CONTROL 

C 

C  LINEAR  POSITIONS  -  EARTH  SYSTtM 
C 

«.  XA  b  (  3 )  -  X,Y,Z  LINEAR  POSITION  VECTOR  OF  THE  ATTACHED  BODY  (FT) 

G  AAbu (3  )  -  X  t  Y«  Z  LINEAR  POSITION  RATE  VECTOR  OF  THE  ATTACHED 

C  BODY  (FT/SEC) 

u  IXAO(O)  -  INTEGRATION  CONTROL 

w 

C  aNuJL AR  VELOCITIES  -  OUGY  AXIS 

G  MAbl 3 )  -  X,Y,Z  ANGULAR  VELOCITY  COMPONENTS  -  P,Q,R  (OEG/SEC) 

L  WAbO(s)  -  X,Y,Z  ANGULAR  VELOCITY  RATE  COMPONENTS  ( DEG/SE C/SEC ) 

C  1M aB ( 3 )  -  INTEGRATION  CONTROL 

«. 

C  tULtR  ANgLES  —  tAKTH  TO  ATTACHED  BODY  —  YAH, PITCH, ROLL 

C 

cABti)  -  EARTH  TO  ATTACHED  BOOY  eULER  ANGLES  (DEG) 

C  cAoD(3)  -  cULER  ANGLE  RATES  (DEG/SEC) 

L  IeAd (3 )  -  INTEGRATION  CONTOrl 

«. 

C  **-t************  Ab  INPUTS  *************** 

L 

C  WT  Wtl&HT  OF  THE  ATTACHED  BODY  (LB) 

-  oM 1(3)  -  ATTACHED  BOOY  MOMENTS  OF  INERTIA  -  IXX,IYY,IZZ 

v-  (  SLUG~FT**^ ) 

C  dP 1 ( 3)  -  ATTACHED  BODY  PRODUCTS  OF  INERTIA  -  1XY,IXZ,IYZ 

C  <SLUo-FT**2) 

C  F Ab( 3 )  -  X , Y , Z  oOUY  AXIS  FORCE  COMPONENTS  FROM  THE  RESTRAINTS  (Lb) 

G  T Ab ( 3 i  -  X , Y, Z  bODY  AXIb  TORQUE  COMPONENTS  FROM  THE  RESTRAINTS  (LB) 

L  Fag(->)  -  AUXILIARY  X,Y,Z  BODY  AXIS  FORCE  COMPONENTS  (LB) 

C  !AU( 3)  -  AUXILIARY  X,Y,Z  bUOY  AXIS  TORQUE  COMPONENTS  (FT-LB) 

C  TRM(j)  -  X ,  Y, Z  PARENT  BODY  EARTH  VELOCTIY  COMPONENTS  FOR 

G  GALCULATING  The  LINEAR  POSITION  RATES  DURING  TRIM  (FT/SEC) 

W 

C  DIMENSIONS  OF  CALLING  ARGUMENTS  . . 

U 

DIMENSION  UAB ( 3),UABD(3), ioAB (3),XAd(3),XASD(d),IXAB(3), 

.  WAB(3) ,MAoU(3l ,lWAo(3) ,EAB(3) , E ABD ( 3 ) , I E AB ( 3 ) , 

.  BMI (3 ) , dP 1 ( j ) , Fad ( 3 ) , TAb ( 3) ,FAU(3) ,TAU(3) ,TRM(3) 
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n  rr  r  r  n  t-  o  r  rnror  rrrror  r  or-r 


iNltANAL  UlMENblONb  . 

ulMtNSlUN  T  1NEK  (3,3)  ,TtMP2  1 3 »  ,TEMP3<  3  )  ,WAoIR(3) 

.  tAbIR<3),0tA(3,J) ,UAt(3,3),F(3) ,TC3> 

COMMu N  /CICCAL/  IClAL 
COMMON  /COVALY/  INbT 
COMMON  /CbSFtG/  3SFLU 
COMMON  /  CIO  /  1AEAD, lWAITt.IUlAG 
DA  1 A  RPU,DP*  /  .CU743329,  37.2937B  / 

DATA  uRAV  /32.174/ 

*******  ******  *************** 

*****  INITIALISATION  ***** 

******  *******  *  *******  ******* 

If (ICLAL. Nt.l)  00  10  20 

DU  10  l=l,o 

1F(FAB(1>  .to.  0.99*99)  F  Ad  (  i  )  a  0 
IF(fAuO)  .Eg.  0.99999)  FAU(I)  =  0 
lF(lAbll)  .tU.  0.99999)  TAB(I)  =  O 
10  I F ( T  Au ( 1 )  .tO.  0.99999)  TAU(I)  =  0 
T KM1  1 )  =  TRM  (  i.  )  =  T  AM  ( 3  )  =  0 


3tl  UP  Tht  ATTACHED  BODY  INERTIA  TtNbOR 


T INtKT 1,1) 

=■ 

6M1T1) 

TlNtHTl,2) 

= 

-BPi  11) 

TINfc A< 1,3) 

= 

-oPl  (c) 

T  i  Nt  A  (  2 , 1 ) 

= 

-6P  1(1) 

T INERT  2, 2) 

BM1 (2) 

TiNtA(2,3) 

= 

-oPl ( 3 i 

T INt A( 3 , 1 ) 

= 

-6P1  id 

TINt  A( 3, 2 ) 

= 

-API (j) 

TiNt A( 3,3 ) 

oMl ( 3 ) 

CHANot  FROM  QcGREES  TG  KA01AN3 


DU  3C  1=1,3 

WAoi A( 1 )  s  WAb ( I )  *  RPu 

30  tAolR(i)  s  tAo(I)  *  RFO 

CAtCULATt  THE  DiAtCTlUN  wObiNfc  MATRICES  . 

Cal.-  DlAuUS  (  0 1 A  ,  t  AO  I A  | 

CALL  IRANS  (OAc , ObA ,3 ,3 ) 

CAlCOLaTl  THE  TOTAL  FOkCS  AND  TOAUUE  Out  TO  THE  EXTERNAL 
FLACtC  ANj  GRAVITY  ...... 

DU  *0  1=1,3 

F 1 1 )  =  FmQ ( 1 )  *  Fau(I)  +  WT  *  ut A ( 1,3)  *  SSFLG 
*0  TT  1)  =  TAotl  )  ♦  TaUTI  I 
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or  rroor  r  orr  o  r  r  f r r 


C  ***************************************** 
c  *****  aNGuLAR  VELOCITY  EoUaTI JNS  ***** 

«.  *******  **T<r***  ********-4.**  ******  ********** 

c 

c  Calculate  TINtR  *  wabIR  ...... 

L 

CAL.  MaTMPY  (TtMPl,TiNER»QAblR, 3,3,1) 

CALCULATc  HAbIR  X  (TINtR  *  HABIR)  . 

Call  CRSPRD  (  TtMP*., WABIR,  TEMPI  ) 

SUM  TERMS  TO  OBTAIN  TOTAL  TORQUE  . 

Uu  5  0  I = 1 ,  3 
5U  TcMP 3(1)  =  HI)  -  TEMP21 1  ) 

CALCULATE  WABDIR  . 

CAL-  LUtOS  (TINER,TcMPl,TEMP3tTEMP2,3,l,3,3,3,l.E-14,IERROR> 

I F ( I ERRUK. NE . I )  GO  To  70 
HR  IT  E ( 6 ( oO ) 

ou  FORMAT (/*  INERTIA  MATRIX  UF  THE  ATTACHED  BODY  IS  SINGULAR  ... 
.  *RUN  STOPPtU*/) 

STOP 

I  0  UU  a  0  1  =  1 ,  3 

&G  I F  I  I  HAtJ  (  1)  .NE.O)  WABU(i)  =  TEMPI!  I  )  *  DPR 

*********************************** 

*****  tuLER  ANGt-t  EQUATIONS  ***** 
*********************************** 

CALL  EARATE  l TEMP  1 »WAB IR * cAb IR ) 

DO  VO  1=1,3 

40  IP(iEABd)  .NE.O)  EABO(I)  =  ItMPl(I)  *  DPR 

*************************************** 

4.  *****  LlNtAR  VELOCITY  EQUATIONS  ***** 

«.  *-r^  **********  ***********************  *** 

c 

l  Calculate  habIr  x  oab  ...... 

c 

CALL  CRSPRu  (TEMPI, HAsiR, uAB) 

C  CALCULATt  F/M  . 

4. 

ABMASB  =  WT/GRAV 
ou  100  1=1,3 

4.00  f  t  MP L  (  1  )  =  F  (  I  )  / AtJMASS 

c 

c.  CaLlOLA  1 1  UAol)  ...... 

c 

UU  110  1=1,3 

llo  IMIUmo!  1)  .Nc.O)  U  AoU  (  I  )  =  TcMP2(  I  )  -  TEMPHI) 
c 

i.  *************************************** 

C  *****  LINEAR  POSITION  EQUATIONS  ***** 


rr  r>  on 


r 


CALL  MATMPY  ( TtMPi,DAe,0Aof3,3,l) 

JU  120  1=1,3 

120  IFlIXAolI)  .Nfc.J)  XAdO(l)  =  T6MF11I) 

Sj3  TRAC  T  TRIM  VfcLOCITT  FROM  POSITION  RATfcS  DURING  TRIM 

iFUNbI.Nfc.3i)  GO  TU  i*tO 
JO  130  1=1,3 

130  IF  (IXAotl)  .Nt.O)  XAbUll)  =  XAtsD(l)  -  T  KMt  1 ) 

140  Rt  TURN 
fcNU 


SUbKOoTiNE  A£  (UAP.UAPD, IU A P, XAP , XAP U , I XAP , WAP ,WAPD . I WAP , 

.  EAP,  lAP  j,  I  cAP,  T«M,TRMu,ITRM,  ALPHA, BETA ,VMACH , ALT  , 

.  AW,b,C,S,XLP,ZCP,AMl,API, 

.  XTHK.AAlL,  AELE,XRuD,XtN,tNQ,TALT,  T  VE  L  , 

.  FRAl,TkAl,FCAl,TCAl,FDAl,TuAl, 

•  FRAl  »  T  kA2»  FCAZ  , TC A2  ,  FDA2  ,  TDA2  ,  CPF  ) 

L 

C  **♦*  THt  tASltST  A IRPL ANE  COMPONcNT  **** 

l 

C  This  ROUT IN£  is  A  SIX  DEGREE  OF  FREEDOM  MODEL  OF  AN  AIRPLANE 
C 

C  Ttt£  aERuoYNAMIC  COEFFICEINTS  ARE  RtAD  FROM  TAPE3 
l 

L  THE  AIRPLANE  TRIM  IS  PROVIDED  INTEkNALLY  USING  EASY  STEADY  STATE 
C  ANALYSIS 
C 

».  control  surface  and  thrust  commands  input  by  the  usek  after 

C  TRIM  WILL  bE  INTtRPRE  T  ED  AS  BEING  AN  ADDITION  TO  THE  SETTINGS 
C  REDUlKEU  FOR  TRIM 
l 
C 

L  DESIGNED  BY  B.  UMMEL  AND  C.L.  WEST 
C  LmST  MDDiFltD  -  DcCtMBER  b,  lYdO 
C 

t  ******* ********  AE  OUIPUTs  *************** 

c 

L  LlNtAR  VtLOCITIES  -  BGuY  AXIS 
L 

C  UA P  (  3 )  -  X,Y,Z  LlNtAR  VELOCITY  VECTOR  OF  THE  AlRPLANc  CENTER 

C  UF  GRAVITY  ( FT/ SEC ) 

L  UaPLi  ( 3 )  -  X  »  Y»  Z  LINEAR  VELOCITY  RATE  VECTOR  OF  THE  AIRPLANE 

c  center  of  uravity  (ft/sec/secj 

C  IoaP ( 3 )  -  INTEGRATION  CONTROL 

L 

C  LINEAR  POSITIONS  -  cAKTH  SYSTEM 
C 

C  XAPT3)  -  X » Y » Z  LINEAR  POSITION  VECTOR  OF  THE  AIRPLANE  CENTER 

L  OF  GRAVITY  (FT) 

C  XAPO(s)  -  A,Y,Z  LlNtAR  POsITiuN  RATE  VcCTDR  OF  THE  AJRPLANt 

L  CtNTEK  OF  GRAVITY  (FT/StC) 

L  lAAP(s)  -  INTEukATIUN  CONTKUL 

c 

C  ANCOLAk  VtLOCITIES  -  bODY  AXIS 
C 

C  WAPTD)  -  A,  Y » Z  aNCULAR  VtLOCITY  COMPONtNTS  -  P,U»R  (DEG/ScC) 

C  WAPuls)  -  X  t  Y » Z  ANGULAR  VtLOCITY  RATt  COMPONENTS  ( DEG/ScC/Stt ) 

v-  I*aP{3J  -  iNTtGRAT ION  CGNTRul 

u 

C  tOL t K  ANGLtS  -  tARTH  TO  buuY  AXIS  —  r A W  , P I TCH , R DLL 

C 

♦.  t aP Is)  -  EARTH  TO  AIRPLANE  EUCtR  ANuLtS  (DtG) 

C  c aPD ( 3 )  -  tOLER  ANGLE  RATtS  (DtG/StC) 

C  itAPls)  -  INTEGRATION  CONInUL 

c 

C  TkIM  CCNTkCL  STATES  —  TRM  {  4  )  ,  TRMD  (  4  )  ,  I  TRM  (  4) 

4* 

C  TRM(l)  =  TRIM  THuTTLt  SETTING 

L  TRM(2)  =  TRIM  AILERON  SETTING 


C  TRM(3)  -  TRIM  ELEVATOR  SETTING 

C  TRM(  *)  =  TRIM  RUUUeK  SETTING 

L 

C  ALPHA  -  ANGLE  OF  ATTACK  (DEG) 

C  oeTa  -  SIuESlIP  ANGLE  (DEo) 

C  VMACH  -  MACH  NUMBER 

C  AlT  -  AlTITuQe  AoUVE  StA  LtVEL  (FT) 


c 


C  **»»****♦****** 

L 


c 

AW 

- 

c 

B 

- 

c 

c 

- 

c 

s 

- 

c 

XCP 

- 

c 

u 

ZCP 

- 

c 

L 

AMi(O) 

- 

i. 

c 

AP I  (  3  ) 

- 

c 

c 

XT  hR 

- 

c 

XAIl 

- 

c 

AELt 

- 

c 

XK  JO 

- 

u 

XeN( 3  ) 

- 

L 

U 

END( 3 ) 

- 

L 

c 

talt 

- 

c 

TVEL 

- 

4* 

FkaI ( 3 ) 

- 

c 

c 

TRA1( 3) 

- 

c 

c 

FCAi ( 3 ) 

- 

c 

c 

TlaI ( 3  ) 

- 

c 

c 

FuAi ( 3 ) 

- 

c 

c 

TUAl ( 3  ) 

- 

L 

c 

FRAE ( 3 ) 

- 

c 

- 

c 

TRAZ ( 3  ) 

- 

■L. 

u 

FC a2 ( 3  ) 

- 

L 

c 

TCA«:(3) 

- 

c 

c 

FUA2 ( 3  ) 

- 

c 

c 

TO  a*;  ( 3  ) 

- 

c 

u 

CPF 

- 

C 


Ac  iNPUTa  ********  ******* 

AIRPLANE  WEIGHT  (LB ) 

WINGSPAN  (FcEl) 

MEAN  AtKUUYNAMIC  CHORD  (FEET) 

REFERENCE  AREA  (FT**2) 

AIRPLANc  body  x-axis  pqsiton  of  the  center 

OF  PReSbURe  (FT) 

AIRPLANE  BODY  Z-AXIS  POSITION  OF  THE  CENTER 
OF  PRESSURE  (FT) 

MOMENT^  OF  INERTIA  —  IXX.lYY.IZZ 
( SLUu— F  T  **Z ) 

PRUUUCTS  OF  INeRTIA  —  IXY,IXZ,1YZ 
( SLUG— FI **2 ) 

external  thrust  setting  (lb) 

External  AIlERON  SETTING  (DEG) 

EXTcKNAL  elevator  SETTING  (DEG) 

EXTERNAL  RUUDeR  SETTING  (DEu) 

X.Y.Z  AlRPLANc  BODY  AXIS  POSITION  VeCTOR 
OF  THE  ENGINE  (FT) 

AlRPLANc  BUOY  AXIS  DIRECTION  COSINES 
OF  THE  ENGINE  THRUST  VECTOR 

oesared  trim  airplane  altitude  (ftj 

DESIREu  TRIM  AIRPLANE  SPEED  (FT/SEC) 

PORT  ONc  A.Y.Z  AIRPLANE  bOOY  AXIS  PQRCe  COMPONENTS 
ACTING  ON  THE  AIRPLANE  FROM  THE  RAILS  (LB) 

PORT  ONE  X»  Y » Z  AIRPLANE  BODY  AXIS  TORQUE  COMPONENTS 

acting  on  the  airplane  from  The  rails  (pt-lb) 

PORT  ONE  X.Y.Z  AIRPLANE  BODY  AXIS  FORCE  COMPONENTS 
ACTING  ON  The  AIRPLANe  from  THE  CATAPULT  (LB) 

PORT  ONE  A.V.e  AIRPLANE  BOOY  AXIS  TORUUE  COMPONENTS 

actinu  on  the  airplane  from  the  catapult  i pt-lb) 

PURT  uNe  X.Y.Z  AIkPLANE  BODY  AXIS  FORCE  COMPONENTS 
ACTING  ON  THE  AiRPLANE  FROM  THE  DART  (Ld) 

port  one  x.y.z  airplane  ouoy  axis  torque  components 
acting  on  THE  AIRPLANE  FROM  THE  DART  (FT-LB) 

PORT  TWO  X.Y.Z  AIRPLANE  BODY  AXIS  FORCE  COMPONENTS 
ACTING  ON  The  AIRPLANE  FROM  THE  RAIlS  (La) 

PURT  TWO  X.YtZ  AIRPLANE  BuOY  AXIS  TORQUE  COMPONENTS 
ACTING  ON  THE  AIRPLANE  FROM  THE  RAILS  (KT-ld) 

PORT  TWO  X.Y.Z  AIRPLANe  BODY  AXIS  FORCE  COMPONENTS 
ACTING  ON  THE  AIRPLANE  FROM  THE  CATAPULT  (lo) 

PURT  TWU  X.Y.Z  «IkPLANE  BODY  AXIS  TORwUE  COMPONENTS 
ACT INu  ON  THE  AIRPLANE  FROM  THE  CATAPULT  (FT-ub) 
PORT  TWu  X.Y.e  AIRPLANE  BOOY  AXIS  FORCE  COMPONENTS 

actinu  un  the  airplane  from  the  uart  (lb) 

POK  (  1W0  X.Y.Z  airplane  body  axis  torque  components 
acting  on  The  airplane  from  the  dart  (ft-lb) 
print  flag  for  aekudynamic  coefficients 
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r’norn  rr  t*>  rrf  f»  r»  r 


***************  Data  DcllaRaT IONS  *************** 


CALLING  ScwUENCt  DIMtNslGNS 


OlMtNS  1UN  XAP  (  3  )  , XAP0  13 ) , 1a AP (3 )  ,OaP (3)  >UAPD(  3 )  » IUAPi  31* 
MAP ( 3 ) ,  MAPO 13), IMAP (3) , EAP  t  3) ,  E  A  PD l 3 ) ,  I  E  A  P  (  3  )  , 

1 RM 14) , TRMu(4),1TRM(4), 

AMI (3)  , AP I l 3 ) , XEN ( 3  ) , END i 3 )  » 

FRaI <3 J , IRAK  3) ,  FC  A 1  (  3 ) ,TCA1C3) , FDA  1(3) *TDAL(3 )  , 
FRAZ(3) »TRA^(3) ,rCA*{3) ,TCa2C3) , FDAZ( 3 ) , TDA2( 3 ) 


INTtRNAL  DIMENSIONS 


DIMENSION  UW l 3 ) ,00 ( 3 )  ,UWb  (3  )  ,  DcA  (3,3)  , DAE ( 3,3  ),TINER(5«3)  , 

.  IEMP1N(3,3)  ,P(3)  ,FgRAV(  3  ) , FENGi 3 ) ,FCOR( 3 )  ,FRCD<3) 

.  FAEku  (  3  )  ,1(3)  , IcNG(3>,rRCD(3),TAERQ<3),MAPIRS(3), 

.  TtMPiii)  »TEMP2(  3)  ,  TEMP3  (3)  ,£APIR(3)  ,WAPIR<3>, 

R ( 2000 ) ,1TPLQT(OU),FORMAT(8),TITLE(G) 

COMM ON/REG I ONS/NK ( 60 ) 

CGMMON/C 1C  CAL/ ICC AL 
CuMMON/CUVRLY/INST 
COMMUN/CIO/  IREAJ, IWKITE, IDIAG 
DATA  ORA V  /3/.L74/ 


DATA  RPO,UPK,IFlAv,  /  .01745329,  57.29578,  0  / 

**************************** 

*****  INITIALIZATION  ***** 
**************************** 

I F  ( I CC AL  .Nc.  1)  GO  TO  li.0 
XA  P ( 3 )  =  -TALT 
GAP ( I )  =  TVtL 

IF ( X  CP  .EG.  0.99999)  XCP  =  0 
IPtZCP  . tQ.  0.99999)  ZCP  =  U 
IFIXTHR  .EQ.  0.99999)  XTHR  =  0 
IFiAAlL  . £w.  0.99999)  XAlL  =  0 
IFiXtLE  .Eg.  0.99999)  XcLE  =  0 
IFlAROD  .Eg.  0.99999)  AKUU  =  0 
IF (CPF  .EQ.  0.99999)  CPF  =  0 


uG  3  1-1,3 
lPIFRAlii) 
iF(TfUili) 
iP(FCAlil) 
lF(TCAi.il) 
IFiFuAli 1 ) 
IF (TDAllI ) 
IF ( FKA2 i I  1 
ir  (TRA2(  I) 
IF (FCaZ ( 1 ) 
IrlTCA^tl) 
IF  (FDA2  i  I  > 
I F l T  uA2 ( 1 ) 
CONI INUt 


0.99999) 
0.99999) 
0.99999) 
0.99999) 
0.99999) 
0.99999) 
0 .99999) 
0.99999) 
0.99999) 
U. 99999) 
0.99939) 
0.99999) 


FRA  1 (1) 
TRAlii) 
FCAi(I) 
TCAltl) 
FOaI  (1 i 
TuaUI) 
FR A2 ( I ) 
IRAZU) 
FCA2U) 
TCA2 (I ) 
F0a2 ( I ) 
roAzm 


i  o 


L 

L  -  StI  UP  AIRPLANt  INEkTIA  TeNSOR  - 

TINtRti,!)  =  AMI (II 
*  TINeR( 1 , 2 )  =  -API (1) 

TiNtR(  i,3)  =  -API  U) 

T1NEk(2,1)  =  -aP  III.) 

TlNtR(2,z)  =  AMI(z) 

TINfckl2,3)  -  -AP1I3I 
TINcK(3»i)  =  -API(z) 

1 INt  k ( 3 1 2 )  =  —API ( 3 ) 

TlNtK(3,i)  =  AM  1(3) 

C 

C  -  RfcAU  AERODYNAMIC  TAOLES  PROM  TAPE3  - 

L. 

IF(lPLAG.EQ.l)  GO  TO  llu 
IFLAG=1 
RcmIND  3 
C 

IF(LPF.cU.l.G)  WKlTE(t>,iO) 

10  FORMAT  l z^X » *Ae RJOYNAM 1C  COEFpICIeNTS  FOR  THe  AIRPLANE*) 
REAu(.3fzD)  NTeMP 
zO  I-ORMaT(  1314) 

READ ( 5 , ZU )  (ITPLOT (I ) ,1  =  1 ,NTEMP ) 

NTtPHl=NTEMP— 1 
NR(1)=5 

uU  30  1=1 , NTEPM1 
>0  NR (1*1) =NR ( 1 ) ♦IT  PLOT (  1 )  >1 

lF(CPF.L0.1.0)WkITE(o, **0 )  ( 1,NR(I) ,1=1,NTEMP) 

40  FURMaT (V ( 13 , 15  ) ) 

IP (CPF .EG. 1.0) WRITE (6 ,50) 

50  FORMAT (1H0) 

«. 

60  RtADlOf 70 )  I1TPL0T(I),I=1,a), (TITLE! 1 ), 1=1 ,6) 

10  FURMAl(4l4tOAl0) 

NT  tMP  =  ITPLOT ( 1 ) 
lF(NTtMP.Lt.O)  GO  TO  110 
N1eMP=NR(NTeMP)*ITPL0T(2) 

NTtMPl=lTPL0TI3) 

N1eMP1=NR(NTEMP1 )+lTPLOT(*> 

RtAO(3,aO)  FORMAT 
to  FURMAT ( 6A10 ) 

RtAD t 3, FORMAT)  ( R ( l  )  » i=NTEMP , NTEMP 1 ) 

IF(uPF.eG.I.O) WRIT E  (6  ,90 ) C ITPLOT ( I ) ,1=1,4), (TITLE ( I ) ,1  =  1,6) 
YO  FuRMAT (4l 6 ,6A10 ) 

IF(CPF.em.  1.0)  WRITE  (6,100  ){  I,RU  >  ,  I=NTEMP  ,NTEMP1 ) 
loO  FORMAT (4(l6,Fi4.6) ) 

Go  T  0  60 
C 

/////////////////////////////////////////////////////////// 

0 

C  -  CuNVeRT  ANoULAR  RATES  aNO  tULER  ANGLES  TO  RADIANS  - 

C 

110  Uu  120  1=1,3 

EaPIR(I)  =  EaP ( 1 ) *kPu 
IzO  MAPI R  1 1 )  =  WAP ( I ) *RPu 

—  COMPUTE  eaRTh  Tu  AIRPLANE  ANO  AIRPLANE  TO  EARTH  - 
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o  r  r  r  c  f  n  r  r  c  r  t  •  o  r*  r*  r  o  r>  o  o  r-  o  r'  r  r 


L  DIRECTION  COSINE  MATRICES 

call  OIKCOS  (utAjtARiK) 

Call  TRans  IuAe,uEa,3 ,3 ) 

-  CLNTkOL  SURFACE  SETTINGS  - 

UA=2.*(TRMU)+XAlL) 

AJA  =  AbS (DA) 

Ot= ( IRMI3) +XELE ) 

OR=(TRM(A)+XRUO> 

-  UdTaIN  SPEED  OF  SOUND,  Al R  DENSITY,  AND  WIND  VELOCITY  - 

ALT  =  — XAP ( 3 ) 

CALL  ATMOS  IAZ.RHG, ALT, uW, 0,0,0) 

-  PUT  WIND  INTO  BODY  COORDINATES  - 

CALL  MATMP  Y  ( UWB , UtA, UW ,3,3,1) 

-  ado  wind  velocity  to  airplane  velocity  - 

UO(l)=UAP<I)-UWb(i) 

UO(2)=UAP(2)-UWa(2) 
uO(3)=UAP(3 l-UWb(b) 

-  AERO  VARIABLES  - 

IF  (UOIll.EQ.O.O.ANu.uDtb) .EC .0 .0 ) oO ( L ) » .0 1 
ALPHA  =  AR  TAN2 (  UG  (  3  )  ,  UC  ( 1  ) )*OPR 
CuSA  =■  COS < ALPHA*kPD) 

SINA  =  SIN< ALPHA*RPu) 

CALL  DOT  PRD  ( VbAK2,UQ,UU,3) 

VoAK=  SORT  (  VbAR<:  ) 
btT A=  AS  IN ( UO ( 2 ) / VoaR ) *uPK 
VMALH  =  VbAR/AE 
QAS  =  .5*KHO*VUAR2*S 

-  CuMPUTt  STaoIlTY  AXIS  ANGULAR  RATES  - 

WaPARs(I)  =  WmPIRI l)*CQSA  ♦  WAPIR 13)*SINA 
WAPIkS(^)  =  WAPIk(e) 

WAPiRS(3)  =  -wAP IK< 1 1 *SINA  ♦  WAP  I R ( 3  )  *CUS  A 

*^*** *************************************************  ************ 
mm*,,,,.  Calculate  The  aerOOYNAmIC  COEFFICIENTS  ************** 
*******  *********************************************************** 

-  TkaNsFeK  AeRU  variables  to  the  r  array  —  -  1 

K I  1 )  =  VMACH 
R{e)  -  ALPHA 
Rib)  *  SET  A 

C  -  L  AXIS  FORCE  coefficients 

c 

C  BIAS  CutPFIClENT  POk  TaIM  . 
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r  f  r  r>  r  r  r  o  r>  o  r  o  n  r  o  r-' 


CALL  LOOK  (  NR  (  1  ) , R  »C2G  ) 

L  VARIATION  Oh  CZO  WITH  ALPHA  DOT  . 

Call  look  (nk(2) tK.czAu) 

C  VARIATION  OF  CZO  WITH  FITCH  RAIL  . 

call  look  <nri3),r,cZu) 

L  VARIATION  OF  CZO  WITH  ELtVATOK  POSITION 
CALL  LOOK  (NR  14  )  *  R»CZOE ) 

C  VARIATION  OF  CZO  WITH  AlLtRON  POSITION 
Call  look  (nr( t> )  > k>czoa) 
c 

-  X-AXIS  FORCE  COtFF ICIENT S 

BIAS  COEFFICIENT  FOR  TRIM  . 

R(4I=CZO 

CALL  LOOK  (NR16»,R,CX0) 

variation  of  cxo  with  aileron  position 

CALL  LOOK  <NR<7) ,R,CXOA) 

-  PITCHING  MOMENT  COEFFICIENTS 

BIAS  COEFFICIENT  FOR  TRIM  . 

CALL  LOOK  (NRCdJ ,R,CMG) 

VARIATION  OF  CMC  WITH  ALPHA  OOT  . 

CALL  LOOK  ( NR ( 9 ) »  R  »  CM  AO ) 

VARIATION  OF  CMO  WITH  PITCH  RATE  . 

CALL  LOOK  (NR(10J ,R,CMQ) 

VARIATION  uF  CMO  WITH  ELcVaTOR  POSITION 
CALL  LOOK  (NR< 11) ,R,CMOEJ 
VARIATION  OF  CMO  WITH  AILERON  POSITION 
Call  LOOK  ( AIR  (  1 2  )  r  R  »CMOAJ 

- Slut  force  COEFFICIENTS 

variation  of  cy  with  beta  . 

CALL  LOOK  ( NK( 13 ) »K»C Yo ) 

L  VARIATION  of  cy  with  roll  rate  ...... 

CALL  LOOK  (NR( 1*) ,R,CYP) 

c  variation  of  cy  with  yaw  rate  . 

CALL  LOOK  (NR( 13 ) »K»CYR) 

c  variation  of  cy  with  rudder  position  .. 

CALL  LOOK  (NR( IS) tRtCYORl 
C  VARIATION  OF  CY  WITH  AILtRuN  INFLECTION 
CALL  LOOK  (NRI17)  .RtCYDAj 
C 

C  -  ROLLING  MOMENT  COEFFICIENTS 

C 

C  VARIATION  UF  CL  WITH  BETA  . . 

CALL  LOOK  (NK( 18 J ,K,CLBJ 

C  VAkIaTjlLM  OF  CL  WITH  RULL  RATE  . 

CALL  LOOK  (NR( 19) ,R,CLP) 

C  VARIATION  OF  CL  WITH  YAW  RATt  . 

CALL  LOOK  (NR(2G) »R,CLK) 

c  variation  of  cl  with  ruouer  reflection 
CALL  LOOK  (NR(2i) ,R,CLOA> 

C  VARIATION  OF  CL  WITH  AiLtRON  DEFLECTION 

CALL  LOOK  (NR(22) ,R»CLDA) 

C  -  YAWlNo  MOMENT  COcFFICIENTS 


289 


•  V- 


c  o  o  t-  r  r  t--  oor> 


C  VAk 1 A  T ION  OF  CN  WITH  BETA . 

Call  LOOK  (NRC23) , k,CNo) 

L  VARIATION  uF  CN  WITH  ROLL  RATE  . 

CALL  LOOK  ( NR  l  ^.4  )  »  R « CNP  ) 

C  VAKiATiON  OF  CN  WITH  YAW  RATE  . 

CALL  LOOK  (Nk(Ef>)  ,k»CNk) 

C  VARIATION  OF  CN  WITH  RODDER  DEFLECTION  . 

Call  LOOK  INR(2o) ,k,CNUk) 

C  VARIATION  OF  LN  WITH  AiLtRON  OtFLtCTI ON  . 

CALL  LOUR  INRD7)  ,R,CNUA) 

-  PRINT  AeRO  COtFF ICIeNTs  OuRING  PRINT  TASK  ONLY 

1F( iNST.tw.60)WRl Te16,D5TVMACH, ALPHA, BETA, CZO,CZ AO. 

.  CZG,CZUe,CZuA,CXG,CxuA,CMG  ,CMAO,CMO,CMDE ,CMOA,CYB,CYP, 

.  CYR,CYDR,CYDA,CL£3,CLP,CLR,CLuR,ClOA,CN8,CNP,CNR,CNDR»CNOA 

128  format (/*  airplane  aero  coefficients  for  mach=*,gi2.s, 

.  *  ALPHA-*  ,G1e.S,*  dc  Ta=*  ,  G12. 5/*  CZO  =*,G12.5,*  CZAD=*,G12.5 
.  *  CZU  =*»G12.5»*  CZUE=*,G12.5,*  CZoA=*,G12.5t*  CXG  =*,G12.5/ 
.  *  CXOA=*,G12.S,*  CMC  =*,G1<:.:>,*  CMAD=*,G12.5,*  CMQ  =*,G12.5, 
.  *  CMOE=*, G12.5,*  CMuA=*,G12.3/*  CYd  =*,G12.5,*  CYP  =*,G12.5, 

.  *  CYK  =*  »  G12. b , *  CYDR=*,G12.3,*  CYDA=*,G12.3,*  ClB  =*,G12.S/ 

.  *  CLP  =*,Oi2.b,*  i.lk  CLDR=*,G12.5,*  CLDA=*,G12. 5, 

.  *  CNd  =*,oi2.5,*  CNP  =  *,G12.b/*  CNR  =*,G12.5,*  CNOR=*,G 12. S, 

.  *  lWjA=*,  GI2.  SI 

*»-**«  *%**«»*  *>*«**« 

*****  LINEAR  VELOCITY  EQUATIONS  ***** 
**************************************** 

-  compute  the  force  out  to  gravity  - 

AMASS  =  AW/GRAV 
FGRaV(I)  =  AW  *  DC  A  l 1,3) 

FGRA  V( 2)  -  AW  *  uEAlKtS) 

FoRA V ( 3 )  =  AW  *  OE  A ( 3 • 3  I 

c 

C  -  LALCULATt  THc  force  due  TO  THt  CORIOLIS  ACCELERATION  — 

■w 

CALL  CRSPRD  IFC0R,WAP1R,UAPT 
OU  L  30  1  =  1 f 3 

DO  FCQRUI  =  -FCOR(l)  *  AMASS 
C 

C  -  CALCULATE  THE  cNGlNt  FORCES  - 

L 

eT  hkUS  T  =  TkM( 1 T+XTHR 
DO  1A0  1=1,3 

DO  FtNG  { 1 )  =  EIHRUST  *  eNO(I) 

C 

C - COMPUTE  THE  FORCES  FrOM  THE - 

l  rails,  catapults,  and  the  darts 

L 

00  ISO  1=1,3 

DO  FRCD 1 1  I  =  FRAUD  ♦  FkA2(1)  FCAl(I)  ♦  FCA2  (  1 )  ♦ 

.  FJAIU  )  ♦  F0A2I  1  I 

C 

C  -  CALCULATE  THE  BODY  AXIS  AERODYNAMIC  FORCES  - 


r  r 


C 

C 


c 


c 

c 

c 


c 

c 

c 


(EXCEPT  THOSE  USING  ALPHA  DOT) 

ttu2V  =  6/ (V£>AR*VoAR) 

C02V  =  C/(V&AR*VbAR> 

FX  =  waS*(CXO+CXDA*ADA> 

FY=uAs*<CYS*cSETa*(CYP*WAPIRs(  1)*CYR**AP1RS(3>  ) *6Q2V +C YOR*OR 
.  *CYDA*uA) 

FZ  =  JAs*  {  CZO+CZOE^OE+CZQ A*AD A+CQ2 V*CZQ*WAPIRS  (  2 )  ) 

CHANGE  FRJM  STABILITY  AXIS  TO  flUOY  AXIS  . 

FAtRO(l)  =  FZ  *  SINA  -  FX  *  COS* 

PAERG12)  =  FY 

FAtkU(3)  =  -FZ  *  CObA  -  FX  *  SlNA 
-  TjTal  FORCES  ACTING  ON  AIRPLANE  EXCEPT  FOR  ALPHA  DOT  EFFECTS 


uO  160  1  =  1.3 

160  F ( I )  =  FgRaV(I)  ♦  FCOR(I)  ♦  FENG(I)  ♦  FRCD(l)  ♦  FAERO(I) 


u 

C  -  SOLVE  FOR  LINEAR  ACCELtRAT IONS  USING  FORCES  INCLUDING  ALPHA  DOT  EFFECT 

C 

VAR  =  (C02 V  *  C2AD  *  WAS  )  /  <UAP(1)**2  ♦  UAP(3)**2) 

OEN  =  AMASS  -  VaR  *  ( UAP ( 1 ) *COS  A  -  0AP(3)*S1NA) 

C 

TemPIU)  =  (FU)-4FI1)*C0bA  ♦  F(3)*SINA)*VAR*UAP(  1 ) /AMASS ) /DEN 
lcMPlU)  =  FI2)  /  AMASS 

lEMPld)  =  (F(3|-(F(1)*C0SA  ♦  F( 3 ) *S INA )* VAR*UAP ( 3 ) /AMAS S > /DEN 
L 

00  170  1=1,3 

170  1F(1UAP( I J .NE.O)  UAPO(I)  =  TEMPl(I) 


c  *******~***** ***************** ********* 
*****  linear  position  equations  ***** 

i.  *************************************** 

c 

CALL  MATMPY  ( TEMP  1 , DAE, UAP , 3 , 3, 1 ) 

00  180  1=1,3 

180  IF(iXAP(l) .Nt.O)  XAPu(I)  =  TtMPKI) 
c 

C  **************************************** 
L.  *****  ANGULAR  VELOCITY  EQUATIONS  ***** 

c  **************************************** 

c 

L  -  CALCULATE  the  cNbINe  TORuUt  - 

c 

CALL  CRSPRO  (TENG.XEN.FENG) 


C 

L 

L 


190 


C 


Calculate  The  TuR&ue  due  TO  the 
rails,  catapults,  and  darts 


00  190  1=1,3 

TKCUii)  =  TRAUI)  ♦  TRA21  I )  ♦  TCAl(l)  ♦  TCA21I)  ♦ 
lOAl(I)  *  T0A2< i) 

-  calculate  the  aerodynamic  torque  - 
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o  r 


ALDUI 


(UaP(1)*UaPO(  3)-UAP(.s)*UAPD(  1>)/(UAP(3)**2*UAPU  )**<;> 


C 


TX=UAS*o*(CLo*b£  T  A*(CtP*RAPlRS( 1)  *CLR*R AP 1 RS ( 3 )  l*d02V-*-CLDR*0R 
.  -*-CLQA*UA) 

T  Y  =Qas*C*(  CM0+-C02  V*  I  CMau*AlOUT  ♦lMU*WAP  IRS  <  2  )  )  +CMOt*OE+CMD  A* ADA  ) 
TZ=QAs*d*(CNb*a£TA-»-(LNP*WAPiKSm«-LNR*RAPlRS(3)  )*t>02V+CNDR*DR 
.  ♦  CNOA*OA) 

CHANGE  FROM  STAbILlTY  mXIS  TO  bOOY  AXIS  . 


L 


c 

L 


TAERUC 1 I  =  IX  * 
TAtRuli)  -  TY  - 
TAfcRO(b)  -  TX  * 


COSA  -  72  *  SINA 
XCP  *  F  At RO (31  ■*■ 
SINA  ♦  TZ  *  COSA 


-  ZCP  *  FAtRQ( 2 ) 
LCP  *  FAEROt 1 ) 

♦  XCP  *  F AERU<  2 ) 


-  LALCULATt  TMt  TOTAL  TORQUE  ACTINb  ON  THE  AIRPLANE 


Do  200  1=1,3 

200  T  (  1 )  =  ItNG(l)  *  IRCu  (  i  i  ♦  TAtROUl 

C 

C  -  PRINT  AIRPLANE  FuRCtS  AN  j  fuRQOES  DURING  PRINT  TASK.  ONLY 

L 

I F  ( I  NS  I .  tQ  .t»0  )RRlIt(b,210)  (  FGRAV(  I),  I  =  1,3),  (FCOR(I)  ,1=1,3  ), 

.  IPfcNGl 1 ) ,1=1 ,3) , I TtNu( 1 ),1=1,3), ( FRCO ( I ) , 1=1,31 , (TRCDt 1 ) , 1=1 ,3) , 
.  (FAtRUU  )  ,  I  =  l ,  3  )  ,  <  T  AtKQ  (  1  )  ,  I  =1 , 3  )  ,  F  X  ,  F  Y,  FZ  ,  I X,  T  Y  »  TZ  ,  ALUOT 
«:10  FQRMAlC*  AlRPLANt  FORCES  ANU  TQRUUES*/*  FRC.i,RAV.  =*,3G12.3, 

.  *  t-KL  •  CURtUL  I S=* ,bG  12*3/  *  FRC. ENGINE  =*,3G12.3,*  TRQ.tNuINE  = * 
.  ,bG12.d/*  FKC.tJStAl  =*,3012.3,*  TkQ.tJSEAT  =*,3012.3/ 

.  *  PRC. AtR J  =*,boi2.3,*  TRw. AEKU  =*,3Gl2.3/ 

.  *  F AERO.ST .AX.=*,3G12.3« *  T AtkU. ST . AX. =* , 3G12 . 5/ 

.  *  AIRPLANE  ALPHA  UO T =  *, G 1 C . 3// » 

L 

C  CmLCULATl  TlNtR  *  RAPIk  ...... 


C 


CALL  NATMPY  ( TEMP 1 , ( INtR , RAPIR ,3 , 3,1) 
LALCuLATt  WAP 1R  X  (TlNtR  *  RAP 1R  ) 


call  crsprg  itempz.rapir, TtMPi) 

c 

C  Slpi  ItRMS  IQ  UbTAlN  IGTaL  TORQUE  . 

V. 

Qu  CtO  1=1,3 

220  TlMP  3(1)  =  1(1)  -  lt_MP2(II 
c 

L  StT  UP  TcMPURARY  INERTIA  TENSOR  .. 


0  J  <.  30  I  - 1  ,  j 
j O  23o  0=1,3 

t30  I EMP1NI 1,0)  =  I INt  K (1,0) 

C 

C  calculate  rapg  ...... 

c 

Call  lUcwS  (TtMPIN,  TtMPi,  ItilPS,  IEMPt,3, 1 , 3  ,  A  ,  3 , 1  .  E-l  A,  I  ERROR ) 

IF ( I tRRoR. NE . 1 )  GU  lU  t30 
RR  IT  E  1  b  ,  2*»C  i 

FwKMAH*  lNtRIlA  MAlKiX  OF  AiRpLANt  IS  SI  NGUL  AR .  . .  RUN  STOPPED*) 
STOP 

c3u  cUNi INUc 
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norrr 


OU  260  1  =  1,3 

2o0  IF  C  I  WAP  (  I ) .NE .0 }  WAPD(l)  =  TEMPI (  1  )*DPR 
L 

C  *********************************** 

C  *****  fcULfcR  ANGLE  EQUATIONS  ***** 

C  *********************************** 

C 

CALL  EARATE  (TEMPI, WAP1R,EAPIK) 

00  270  1  =  1, .» 

270  IF(lEAPtl) .NE.O>  EAPO(l)  =  TEMPim*CPR 

*******  *************************** 
**********  TRIM  LOGIC  ********** 
********************************** 


C 

zao 


TkMo( 1 1 =TRMO( 2  I =TRM0l3 )=TRMO( 4) =0 


If  UNST.Nt.3l)  GO  TO  200 
Ii-UTRMCU  .NE.O)  TRMO(l) 
If  UTRM(21  .Nfc.O)  TRMO  ( 2  ) 
If  UTKMI3)  .NE.01  TRMO  ( 3) 

• 

IF(ITRMU)  .NE.OI  TRMD  (4) 


TVEL  -  VSAR 

♦  ,01*WAPIR(1)*  EAPIR(3 I 
♦,C1*WAPIR(2)-.001*XAPD(3) 
-.0001*(TALT^XAP(3) ) 
♦.01*WAP1R(3) 


RtTURN 


r  r>  r 


SUBROUTINE  AG  (VSiRHGf 
•  H t W I  N,  OP > T t « SW  ) 

DIMENSION  W  IN  ( 3 ) iNiNU( j) 

COWON  /C1CCAL/  ICCAL 

COMMON  /CSSFLG/  SSF LG 

COMMuN  /COVRLY/  INST 

CuMMuN  /CIO/  1RcAG,1wR1Tc  ,  I  Ui  Au 

DATA  FL1*FL2  /0,G/ 

c 

UtSIGNtD  bY  C.L.  Wt  ST 
LAST  MOuIFlEu  -  UcCtMoER  b,  19&0 

THE  S 1 A NdanO  COMPONENT  uhlCrt  UtTcRMINtS  THt  AIR  DENSITY »  SPEED  OF 
L  S JUND >  AND  THE  WIND  VtLGCITf  AT  A  PRtSCRIbtD  ALTITUDE  IN  A  STANDARD 
L  UR  NUN-STANDARD  ATMOSPHERE.  IN  ADuillON,  IT  SETS  A  FLAG  WHICH  FORCES 
C  THt  ACCtLtRATIUN  OF  GRAVITY  TO  BE  ZERO  FOR  THE  STEADY  STATt  CALCULATION 
4.  uF  AN  UNSUPPORTED  SEAT.  THIS  Flag  CAN  ALSO  BE  USED  TO  ASSIST  THE  STEADY 
C  STATE  SULVtR  WITH  A  SUPPURTtU  SEAT,  AS  EXPLAINED  IN  TrtE  DGCUMENT. 

L  THIS  COMPJNtNT  MUST  BE  INCLuucD  IN  THE  MODEL  GENcRATIuN  PROGRAM  INPUT 
C  PlLt  FJK  ALL  tASltST  MuOELS. 

C 

C  ***************  AO  OuTPgTS  *************** 

c 

c  vs  -  velocity  of  sound  (fi/seo 

*.  KHU  -  AIR  UtNsITY  (  SLUG/F T **3  ) 

L 

v.  ***************  au  INPUTS  *************** 

C 

u  H  HEIGHT  AbUVt  StA  LtVtL 

C  WIN  -  X, Y , Z  EARTH  SYSTEM  WIND  COMPONENTS  IFT/StC) 

L  OP  -  dARQMcTR 1C  PRESSURE  AT  THE  REFERENCE  ALTITUDE  »IN.  HG) 

C  (AN  UNINITIALIZED  OR  NON— POSIT INVt  VALUE  OF  BP 

l  CAUSES  A  STANDARD  ATMOSPHERE  TO  BE  USED) 

C  Tl  —  TcMPtRATuRt  AT  The  REFERtNCc  ALTITUDE  (DEF  F) 

C  SW  -  ukAVlTY  SWITCH  FOR  UNSUPPORTED  SEAT  STEADY  STATt  CALCULATION 

C  0  -  GRAVITY  OFF  (UNSUPPORTED  StAT) 

C  1  =  GRAVITY  UN 

C 

C  ////////////////////////////////////////////////////////// 

L 

DO  3  1=1,3 

t>  WlND(i)  =  W  IN  (  1 ) 

C 

SSFl«  =  I. 

IFlSW.Nt.D)  FL1  =  SW 

Ir  ( rLl.Ew.O  .AND.  1NST.EU.3U  SSFLG  =  0 
C 

L  *****  ChtCK.  TO  Set  IF  THt  CAlC  XlC  COMMAND  HAS  BEEN  GIVEN  ***** 

1MFL2.E0.1.)  Go  TO  70 
ir  ( ICCAL.EO.  1 )  GO  TO  <_Q 
WRIT  t  (  6,  1.0  ) 

.O  FukMa I ( //aX, *WARNiNG  -  fHc  CALC  XlC  COMMAND  HAS  NOT  BEEN*  » 

.  *  GIVEN  ......  tXtCuTiuN  TERMINATED.  *,//) 

STOP 

c 

c  ******************** ******** 

L  *****  INI l iACiZAl 1UN  ***** 
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C  *♦***♦»***»*♦******»******** 

L 

20  VS  =  KHO  =  0 

IH  SW.  fcw  .0.99999  )  SW  =  1.0 
FLi.  a  SW 
FL2  =  1. 

IF(t»P  .LE.  0.0  .OR.  bP  .t4J.  .99999)  bP=0.0 
bPt  =  bP 

IFtbPt  .cQ.  0.0)  h  =  It  =  0.0 
IF ( uPt  .to.  0.0)  00  10  70 
AbP  =  (3P  *  A44.)/,;.036 
ATt  -  Tt  *  460. 

TO  =  ATt  ♦  0.00356 b  *  H 
TRAT 10  -  ATk/TG 
PO  =  AoP  *  ( TRAT IQ}**5.256 
|>U  10  70 
C 

tNTKY  ATMOS 
L 

Ou  30  1=1,3 
J<J  MINI  1  )  =  WIND!  1) 

L 

XFldPt  .Nfc.  0.0)  GO  TO  60 

*****  SlANOARG  ATMOSPHtRt  ***** 

IF (H.GT .35332. )  GO  TO  40 

AcTllODfc  bt LOW  THE  TROPOPAUSfc  . 

THAT  10  =  1.0  -  0.0C000O6709  *  H 
PRAT  10  =  TRaT 10**5. 256 
VS  =  lilt*. 75  *  SQRT(TKATIQ) 

GO  TO  50 

ALTifuot  AdQVE  THk  TROPOPAUSfc  ...... 

>  PRATIO  =  1U.**( (4705.-H)/4b2ll. ) 

VS  =  970.9579 

1  RHO  =  2962 . *PRAT 10/ I VS**2 ) 

GO  10  70 

*****  NON-ST ANOARO  ATMuSPHERt  ***** 

60  T  =  TO  -  0.003566  *  H 
P  =  PO  *  ( T/T0)**5.t56 
VS  =  (*»4.02)  *  SORT  ( T  ) 

RHO  =  P/( 1715. *T ) 

70  RtlukN 
tNU 
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SUBROUTINE  AM  lURE,RAD,PTS,PTl, 

.  PL  ,PKT  ,  EXP, GAP  ,  GAN »  GYl»GZL,DRP,ORN,RDL» 

•  DR ibXioVibZ ) 

c 

L  iHli  ROUTINE  WRITES  UNTO  TAPt  7  AERUMEDICAL  PARAMtTERS  AND  VARIABLES 
L  10  Bt  UStD  BY  PRUGRAM  AERUMEO.  NO  MORE  THAN  4000  VARlABLc  SETS  ARE 
C  WRITTEN  A 1  A  TIME  i NT  tKVAL  OP  NO  lESS  THAN  0.001  SECONDS. 

C 

L  DESIGN  or  C.L.  WEST 
C  LAiT  MODIFIED  -  DECEMbER  6,  19bU 

c 

C  *****  OUlPuIS  ***** 

c 

L  ORE  -  DYNAMIC  RESPONSE 

L  RAD  -  ACCELERATION  kADICAL 

C  PTS  -  CURRENT  NUMeeR  OP  DATm  SETS  WRITTEN  TO  TAPE3 

C  PT I 

C 
L 

C  ***** 

C 

C  PL 

C  PR  T 

4. 

C  EXP 

C  uxP 

c 

L  UAN 

c 

c  GYL 

C  G/L 

C 

C  DKP 

4. 

C  URN 

C 

C  KliL 

C  OR 

C  GA 

L  GY 

C  G  L 

C 

COMMON  /ClCCAL/  1CCAL 
COMMON  / CUVRLY/  INST 
CuMMUN  /CT1ME/  TIME 
COMMON  /CPPLAG/  UCM.ITINC 
UUMMON  /CIO/  1RlA0,1wRITE , Iol AG 
C 

L  *************************** 

C  *****  INITIALIZATION  ***** 

C  *************************** 

C 

lPUCCAL.NE.l)  GO  TO 
IHPkT  .EG.  0.99999  )  PR  I  =  0. 

IPlEXP.EO. 0.999491  EXP  =  /. 

IF TuAP-tU. 0.99999 )  GAP  = 

IFTGaN. EO.G. 99999 )  GAN  =  30. 

IP (GYL.Ew.  0.99999 )  uYL  =  IB. 


-  VALUE  OP  TIMe  WHEN  THc  LAST  DATA  SET  WAS  WRITTEN 
ONTO  IaPeS 

INPUTS  ***** 

-  PLAG  TO  INI T lAT t  AERQMcD  CALCULATION  (1  =  START) 

-  PkOGRAM  AtROMcU  PLAG  TO  PRINT  THE  LOAD  PACTORS,  DYNAMIC 
RESPONSE,  AND  The  ACCELERATION  RADICAL  (1  =  PRINT) 

-  MlOICAL  INJURY  EXPONENT 

-  The  LIMIT  value  PUR  THE  X-AXIS  POSITIVE  AEROMED 
LOAD  PACTUR  (G) 

-  ThE  LIMIT  VALUE  FOR  The  X-AXIS  NEGATIVE  AEROMED 
LOAD  FACTOR  (G) 

-  THE  LIMIT  VALUE  FOR  T He  Y-AXIS  AEROMED  LOAD  FACTOR  (u) 

-  THE  LIMIT  Value  FOR  THE  Z-AX1S  NEGATIVE  AEROMED  LOAD 
FACTOR  (G) 

-  LIMIT  value  OP  THE  OYNAMIC  RESPONSE  WHEN  THE  ACCELERATION 
vector  is  forward  op  The  plane  of  the  seat  sack. 

-  limit  value  OP  IHt  OYNAMIC  RESPONSE  WHEN  THE  ACCfcL t RAT  ION 
vector  is  aft  of  the  plane  up  the  seat  back 

-  ACCELERATION  RADICAL  LIMIT 

-  DYNAMIC  RtSPONSE 

-  X  AXIS  LUAD  FACTOR  (G) 

-  Y  AXIS  LOAD  PACTUR  «G) 

-  Z  AXIS  LOAD  FACTOR  tu) 
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IF(GZL.EQ. 0.99999) 

&ZL  = 

12. 

1F(0RP.EQ. 0.99999) 

ORP  = 

13. 

IF (ORN. £0.0. 99999) 

ORN  - 

16. 

IFIROL.EQ. 0.99999) 

ROL  = 

1.0 

PTS  =•  0 

PT1  =  0 

WRITe  AEROMEOICAl  PARAMETERS  UNTO  TAP  E7  . 

WRITE! 7, 10  )  PRT,EXP,GXP,GXN,GYL,GZL,DRP,DRN,RGL 
10  FORMAT  (9F12.9) 

///////////////////✓//✓///////////////////////////// 
20  ORE  =  OR 

calculate  the  acCcLeration  radical  . 

GXL  -  GXP 

IF (— GX  .LT.  0)  &XL  =  GXN 
DRL  =  OKP 

IF  C— GX  .LT.  0)  DRL  =  ORN 
IFlGZ  .&E.  0)  RAOZ  =  (DR/uRL) 

IF1GZ  -LT.  G)  RAOZ  =  (Gz/GZL)»»2 

RAD  =■  SORT  (  ( GX/GXL  )**2  +  (GY/GYL)**2  ♦  RAOZ) 

C  WRITE  AeROMEDICAL  VARlAbLES  ONTO  TAPE 7 . 

IF (FL.NE.I • )  GO  TO  bO 
IF  (PTS.GE.9000.  )  GO  TO  30 
iF(TlMt.LT.P7I+.GGl)  GO  TO  30 
IF  II T INC.NE . I )  GO  TO  30 
C 

IFUiYST.bJ.26)  WRITE  (7,10)  T  IME  ,  OR  ,GX  ,GY  ,GZ 
PT1  =  TIME 
PIS  =  PIS  ♦  1. 

C 

so  return 

cNO 
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C 

L 

C 

c 

C 

C 

c 

c 

c 

c 

c 

c 

C 

C 

C 

c 

c 


SuBkOUl INE  AP  (ICX.1CZ. 

•  PfT  * SM i AlPHA f CX t CZ f 

.  UP  t XPC  »PA»cPl»  ZtM » SRP,UST,eST,WST,XAP,EaP > 

*****  PURGES  AND  MOMENTS  UN  A  SEAT  FROM  AN  ATTACHED  PLATE  ***** 


UESloMcu  t>Y  C.L.  WEST 

LAST  MG01FIED  -  GECEMbER  o,  19oU 

***************  aP  TAbLcS  *************** 


TCX  -  PLATE  3YSTEM  X-AXIS  PURGE  COEFFICIENT  TAdLE 


THE  INDEPENDENT  V AK 1 AbLE  IS  THE  PLATE  ANCLE  OF  ATTACK  (DEG). 
THE  DEPENDtNT  VARIABLfc  IS  THE  PLATE  X-AXIS  FORCE  COEFFICIENT 

TCZ  -  PLATE  SYSTEM  Z-AX1S  FORCE  COEFFICIENT  TABLE 


THE  INDEPENDENT  VAkIABLE  IS  THE  PLATE  ANGLE  OF  ATTACK  (DEG). 
THE  DEPtNOENT  VARIABLE  IS  THE  PLATE  Z-AXIS  FORCE  COEFFICIENT 


L  *»***■•♦**»♦****  aP  OUTPUTS  *************** 

C 

C  P(3)  -  X  t  Y  t  Z  SEAT  BODY  AXIS  FORCE  COMPONENTS  (LB) 

C  T ( 3)  -  X  t  Y • Z  SEAT  dUOY  AXIS  TORQUE  COMPONENTS  (FT-LB) 

C  SW  FLAG  Set  WHtN  THE  PL  AT  c  CENTROID  PENETRATES  THE 

i  WINDSTREaM  (1  =  PENETRATION) 

C  ALPHA  -  PLATE  ANGLE  OF  ATTACK  (DEG) 

C  CX  -  X  AXIS  FORCE  COEFFICIENT 

C  CZ  -  Z  AXIS  FORCE  COEFFICIENT 

C 

Q,  ***************  AP  INPUTS  *************** 

C 


c 

UP 

- 

ejection  direction  flag  wrt  the  airplane 

c 

c 

XPCld) 

_ 

(a  =  UPWARD  -I  =  DOWNWARD) 

X,Y,Z  SEAT  BODY  AXIS  POSITION  VECTOR  OF  THE 

c 

Pa 

PLATE  CENTROID  (FT) 

REFERENCE  AREA  OF  THE  ATTACHED  PLATE  (FT**2) 

c 

EPL ( 3 ) 

- 

SEAT  TO  PLATE  EULER  ANGLES  (DEG) 

c 

Zem 

- 

AIRPLANE  bODY  Z-AXIS  POSITION  OF  THE  PLATE  CENTROID 

c 

c 

4. 

SRPIs) 

WHEN  IT  ENTERS  THE  WINDSTREAM  (FT) 

—  SET  TO  ZERO  WHEN  INITIALLY  IN  WINDSTREAM  — 

X » Y  »Z  EARTH  SYSTEM  POSITION  VECTOR  OF  THE  SEAT 

c 

c 

UST (3) 

_ 

REFERENCE  POINT  (FT) 

X,Y,Z  SEAT  BODY  AXIS  SYSTEM  VELOCITY  COMPONENTS 

c 

L 

E  ST( 3) 

_ 

OF  THE  SEAT  (FT/SEC) 

EARTH  TO  SEAT  tULER  ANGLES  (DEG) 

L 

MST ( 3 ) 

- 

At  Y  >  Z  StAT  bODY  AXIS  SYSTEM  ANGULAR  VELOCITY 

c 

c 

XAP( 3) 

COMPONENTS  OF  THE  SeaT  (DEG/SEC) 

x * y t z  earth  system  position  vector  of  the 

L 

c 

E  A  P  (  3  ) 

airplane  CENTER  UF  GRAVITY  (FT) 

EARTH  TO  AIRPLANE  EULER  ANGLES  (DEG) 

c 

w  /////////////////////////////////////////////////////////////////// 

c 

c  calling  sequence  dimensions  . 

c 

DIMENSION  TCX (  B  >  ,  T  CZ  (  3 )  ,F  (  3  )  ,  T  (  3  )  t  XP C  (  3  )  t  EPL  (  3 )  , 
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SRP13)*UST(.»)»EST (3 )  »W ST C3) *  XAP ( 3 ) *t AP ( 3 ) 


INTERNAL  DIMENSIONS  . 

0 1  MENS ION  EPL1RI3) .EAP1RI3) ,£ST1R< 3) ,WSTIR(3) ,DES(3,3) , 

.  DESTI3,3),DEA(3,3), XPCA (3) ,  XPCE (3) ,UPLE(3> , 

.  03 PI  3, 3) , DtP (3, 3) ,OPL(3) ,UW < 3 ) , UO ( 3  )  , 

.  0PS<3,3) ,FP (3) 

COMMON  /CTiMt/  TIME 

COMMON  /CICCAL/  ICCAL 

COMMON  /CGVKLY/  INST 

COMMON  /CIO/  IREAD.IWKlTc.lulAo 

OaTA  FP  l  2 )  /  0.  / 

data  rpo,opr  /  .01793329,  37.2937a  / 

*♦***»*♦***♦♦♦♦♦»**♦*»♦***** 

*****  INITIALIZATION  ***** 

***********  *** ************** 

IF(ICCAL.NE.l)  CO  TO  eO 
IFlUP.EU. 0.99999)  UP  =  i. 

IFIZEM. EQ.O. 99999 )  ZEM  =  0 

sw  =  0 

IFIZEM. EQ.O)  sw  =  1. 

00  10  1=1,3 

IF(AAP(1)  .tQ.  0.99999)  XAP(i)  =  0 
iFlEAPll)  .EG.  0.99999)  EAP(I)  =  0 
Fll)  *  0 
10  Til)  »  0 

/////>-///////////////////////////////////////////////////// 

oYPAsS  ROUTINE  IF  DOkiNO  STEADY  STATE  WHEN  THE  PLATE  IS  NOT  INITIALLY 
IN  TrtE  WIND  STREAM . 

20  IF( INST .EQ.31  .AND.  SW.tO.O)  GO  TO  70 
C 

C  CONVERT  FROM  DEGREES  TO  RADIANS  . 

L 

DO  30  1=1,3 

30  tSTIR(l)  =  ESTID  *  RPD 
C 

L  CALCULATE  THE  DIRECT  ION  COSINE  MATRICIES . 

C 

CALL  D1RC0S  (OES.ESIIR) 

CALL  TRANS  (DEST , OtS, 3,3) 
t 

C  CONTROL  FLAGS  . 

C 

IFlSW.tO.l.O)  GO  TO  30 

c 

C  CALCuLAIc  The  CENTROID  POSITION  iN  THE  AIRPLANE  SYSTEM  . 

c 

DO  90  I=l,o 

90  EAPIR(I)  =  EAP(l)  *  RPD 

Call  oircos  idea,eapir) 
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CALi.  VtCXYZ  ( xPCc  »  XPC  t  SAP  ,DtST,2) 

CALL  VECXY2  ( XPC A  »  XPCL  »XA  P , Ot  A , I ) 

L 

C  RtTUKN  IP  T  Ht  PLATE  HAS  NOT  PtNt  THAT  1 0  THE  WINDSTREAM  ... 
C 

IF  (  ZtM*UP.  LT.XPCAI3  )*UP)  GO  TO  70 

WRITE  t MERGENCE  ME  SS AGE . 

IF (INST. tO. 26  .ANO.  SW.EQ.G)  WRiTt<6,45>  TIME 
FaRMAlC/5X,*AcRODYNAMIC  PLATE  PENETRATION  AT  TIME  *  *, 
.  F10.U,*  SEC*/) 

IF(ICCAL.NE.l)  SW  =■  x. 

*****  PLATE  PENETRATION  ***** 

convert  from  degrees  to  radians  ...... 

00  56  1=1,3 

EPLIK(I)  =  E  PL ( I)  *  RPO 
55  WST1R(1)  =  MST ( 1 )  *  RPO 

calculate  THt  DIRECTION  CQSINe  MATkICIES  . 

CALL  D1RC0S  (DSP,EPLlR) 

CALL  TRANS  (DPS, DSP, 3,3) 

CALL  MATMPY  (OEP, DSP, DES, 3, 3, 3) 

UtTERMlNE  THE  VELOCITY  OF  ThE  PLATE  CENTROID  IN  THE  EARTH 
SYSTEM  ...... 

CALL  VELXYZ  (UPLE,U5T,XPC,WSTIR,0tST) 

Ob TAIN  The  AIR  DENSITY  AND  WIND  VtLOCITY  . 

CALL  ATMOS  ( VS , KHO, — SkP( 3 ) ,Uw ,U,0 ,0 ) 

SUBTRAlT  THE  WIND  VELOCITY  FROM  THE  PLATt  VELOCITY  . 

DO  oO  1=1,3 
oO  U0(1  )  =  UPLt(I)  -  UM(  I ) 

TRANSFORM  THE  tARTH  VtLOCITY  INTO  THE  PLATE  SYSTEM  . 

CALL  MATMPY  ( OPL ,DEP, UG ,3 ,3 , 1 ) 

CALCULATE  The  AIRSPEED  OF  THE  PLATt  . 

CALL  DOTPRD  ( VoAR2 ,UPL,UPL ,3 ) 

DETERMINE  THE  PLATE  ANGLE  OF  ATTACK  . 

ALPHA  =  ARTAN2luPL(3) ,UPL( 1 ) )  *  DPR 

perform  the  table  search  for  cx  anu  calclate  its  force  .. 

NTCA  =  TCX ( 2 ) 

CX  =  1 BLUl  (ALPHA, TCX(4) ,TCX(NTCX*4) ,1,-NTCX) 
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FP  ( 1 )  =  CX  *  .5  *  KHO  *  V8AR2  *  PA 
PERFORM  Ihfc  TA&LE  SEARCH  FOR  CZ  ANO  CALCULATE  ITS  FORCE 
NTCZ  =  TCZ ( 2 ) 

CZ  =  TBLU1  (ALPHA,TCZ(4),TCZ(NTCZ*4) ,1,-NTCZ) 

FP  ( 3  )  =  CZ  *  .5  *  KHO  *  VBAR2  *  PA 

TRANSFORM  THE  FORCES  TO  THE  SEAT  SYSTEM  . 

CALL  TRANS  IOPS . 0 SP ,3 ,3 ) 

CALL  MATMPY  ( F , DPS ,FP ,3 ,3 , 1 ) 

CALCULATE  THE  MOMENTS  ON  THE  SEAT  FROM  THE  PLATE  . 

CALL  CRSPRD  U,XPC»F) 

TO  RETURN 
tNO 


SuoRQuTINt  AS  ( lAti 

.  F, T, ALPHA, BETA ,VMACH,Q,CX,CY,CZ ,CL,CM,CN, eXL ,EXA, 

*  CENT  »TCZ»hD, 

.  QFF»UP,ZwS»XEM»CDX»tCA»ECY,ECZ, CLP  »CMQ  »CNR , S  »  SRP  » 

.  UST»tST,WST,DSA,SRA, RUN ) 


C 

c 

c 

c 

L 

L 

L 

L 

L 

c 

c 

c 

c 

c 

L 

L 

C 

L 

C 

L 

C 

s. 

£. 

L 

c 

L 

C 

c 

c 


*4«4,*«**M**$4  AS  TABLES  *************** 

TAE  -  EXPOSED  AREA  TABLE 

THE  INOePeNuENT  VARIABLE  IS  THE  EXPOSED  LENGTH  (FT). 

THE  UEPENOENT  VARIABLE  IS  THE  EXPOSED  AREA  (FT**2) 

***************  AS  OUTPUTS  *************** 

F(  3)  -  X, Y , Z  Seat  BODY  AXIS  AERODYNAMIC  FORCE  COMPONENTS  (LB) 

Tt3)  -  X,  Y  ,  2  SEAT  BODY  AXIS  AERODYNAMIC  TORQUE  COMPONENTS  (FT-LB) 

ALPHA  -  SEAT  ANGLE  OF  ATTACK  (DEG) 

BtTA  -  SEAT  SIDESLIP  ANGLE  (DEG) 

VMACN  -  SEAT  MACh  NUMBtR 

Q  -  DYNAMIC  PRESSURE  (Lb/FT**2) 

CX  -  SEAT  BODY  X-AXIS  FORCE  COEFFICIENT 

CY  -  SEAT  BODY  Y-AXIS  FORCE  COEFFICIENT 

Cl  -  SEAT  BODY  A-AXIS  FORCE  COEFFICIENT 

CL  -  SEAT  BOOT  AXIS  ROLLING  MOMENT  COEFFICIENT 

CM  -  SEAT  auDY  AXIS  PITCHING  MOMENT  COEFFICIENT 

CN  -  SEAT  BOuY  AXIS  YAWING  MOMENT  COEFFICIENT 

EXL  -  SEaT/CREwP  EXPOSED  LENGTH  DURING  EMERGENCE  (FT) 

EXA  -  SEAT/CREWP  EXPOStO  AREA  DURING  EMERGENCE  (FT**2) 

CENT (3)  -  X » Y » Z  SEAT  BOOY  AXIS  POSITON  VECTOR  OF  THE 

centroid  of  the  emerged  area  (ftj 

T C Z ( 2o )  -  SEAT  CENTROID  LOCATION  ARRAY  (FT) 

Hu  -  HYORAGL1C  DIAMETER  (FT) 

***************  AS  INPOTS  *************** 

FLAG  TO  INDICATE  SEAT/RAIL  SEPARATION  (1  =  SEPARATION) 

EJECTION  DIRECTION  FLAG  WRT  THE  AIRPLANE 
(♦A  =  UPWARD  -I  =  DOWNWARD) 

AIRPLANE  BODY  Z-AXIS  POSITION  OF  THE  WiNDsTKEAM 
BQUNQRY  LAYtK  AT  THE  POINT  OF  SEAT  PENETRATION  (FT) 

X,  Y«  Z  SEAT  BODY  AXIS  POSITION  VECTOR  OF  THE  INITIAL 
POINT  TO  PENETRATE  THt  W1NDSTREAM  (FT) 

SEAT  BOOY  X-AXIS  POSITON  OF  THE  CENTER  OF  PRESSURE 
DURING  SEAT  EMERGENCE  (FT) 

SEAT  BOOY  X-AXIS  EMERGENCE  COEFFICIENT 
SEAT  BOOY  Y-AXIS  EMERGENCE  COEFFICIENT 
SEAT  BODY  Z-AXIS  EMERGENCE  COEFFICIENT 
ROLL  DAMPING  DERIVATIVE  (DEG-1) 

PITCH  DAMPING  DERIVATIVE  (DEG-1) 

YAW  DAMPING  DERIVATIVE  (DeG-1) 

-  SEAT  RtFEKtNCt  AREA  <FT**2) 

-  X,Y»Z  cARTH  POSITON  VECTOR  OF  THE  SEAT  REFERENCE  POINT  (FT) 

-  X  f Y  tZ  SEAT  BODY  AXIS  SYSTEM  VELOCITY  COMPONENTS 
OF  THE  SEAT  ( PT/atC ) 

-  EARTH  TO  SEAT  tULER  ANGLES  (DEG) 

-  X i Y »Z  SEAT  BODY  AXIS  SYSTEM  ANGULAR  VELOCITIES 
OF  THE  SEaI  (UEG/SEC) 


c 

OFF  - 

L 

UP  - 

C 

C 

ZwS  - 

c 

L 

XEM  - 

L 

L 

COX  - 

C 

t 

ECX  - 

L 

tCY  - 

L 

EcZ  - 

c 

CLP  - 

L 

CMC  - 

L 

CNR  - 

C 

S 

T 

SRP (>) 

C 

UST( 3  > 

C 

c 

EST( 3 ) 

L 

wST( 3) 
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prorrop 


r 


DSA( 3,3)  -  3c  AT  TO  AlRPLANc  DIRtCTlUN  COSINES 
SRA  -  X,Y,Z  AIRPLANt  BODY  AXIS  POSITION  VECTOR  OP  THE 
SEAT  REFEReNCt  POINT  (FT) 

RON  -  SUSTAINER  ROCKET  FLAG  (1=0N,0=QFF) 

************************************************************* 

DIMENSION  TAE(5 ) »F(3) ,T(3),XEM(3) , SRP ( 3 > , UST ( 3 > , 

.  EST(3),WST(3),DSA(3,3),SRA(3) 

DIMENSION  ALF(72) ,BET (6) , AMACH(4) , 

.  C0EF(6) tCtNT 13) ,DES(3,3) ,UW (3) ,UWB(3) ,U0(3) , 

.  XI(3),C0NS(4),DC(3),XEMA(3),ESTIR(3),TCZ(20) 

COMMON  /C1CCAL/  ICCAL 

COMMON  /COVRLY/  INST 

COMMON  /CIO/  IRcAD,IWR1TE,ID1AG 


COMMON  /RKTON/ 


ICX0N(18,6,4) , 
ICY  ON ( lb  ,  6 , 4 ) , 
1CZQN(16,6,4)  . 
ICLONl 10,6,4) , 
IlMON( 18,6,4)  , 
ICNONi Id, 6, 4) 


COMMON  /RKTOFF/ 


1 CxOFF (10,6*4), 
ICYOFF (10,6,4), 
ICZOFF( 18,6,4) , 
IClQFF(18,6,4), 
ICMOFF( 10,0,4), 
ICNOFF ( 16 ,6,4 ) 


DATA  RPD.DPR  /  .01745329,  57.29570  / 


DATA  ALF  / 


0.0 

9 

5.0 

9 

10.0 

9 

13.0 

9 

20.0 

9 

25.0 

30.0 

9 

35-0 

9 

40.0 

9 

45.0 

9 

50.0 

9 

55.0 

60.0 

9 

65.0 

9 

70.0 

t 

75.0 

9 

00.0 

9 

05.0 

90.0 

f 

95.0 

9 

ioo.  o 

9 

105.0 

9 

110.0 

9 

115.0 

120.0 

f 

125.0 

f 

130.0 

9 

135.0 

9 

140.0 

9 

145.0 

150  .0 

9 

135.0 

9 

160.0 

9 

165.0 

9 

170.0 

9 

175.0 

100.0 

9 

1B5.0 

9 

190.0 

9 

195.0 

9 

200.0 

9 

205.0 

210.0 

9 

215.0 

9 

220.0 

9 

225.0 

9 

230.0 

9 

235.0 

240.0 

9 

245.0 

9 

250.0 

9 

255.0 

9 

260.  0 

9 

265.0 

270.0 

9 

275.0 

9 

260.0 

9 

205.0 

9 

290.0 

9 

295.0 

300.0 

9 

305.0 

9 

310.0 

9 

315.0 

9 

320.0 

9 

325.0 

330.0 

9 

335.0 

9 

340.0 

9 

345.0 

9 

350.0 

9 

355.0 

DATA  BET 
0.0 

/ 

9 

5.0 

9 

10.0 

9 

15.0 

9 

30.0 

9 

45.0 

C 

C 

C 

c 

c 


NOTE  -  8Y  CLASSIC  DEFINITION  OF  TERMS,  BETA  HERE  IS  ACTUALLY  PSI, 
WHICH  IS  ALSO  (-BETA). 

this  peculiarity  mas  adopted  to  accommodate  conventional  table 
LOOK  UP  ROUTINES  which  uEMAND  that  the  independent  variable  be 
LISTED  IN  ASCENDING  ORDER. 
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c 

DATA  AMaCH  /  O.o  ,  0.9  ,  1.2  ,  1.5  / 

L 

C  ==*^==*=========================================================== 

c 

C  Tut  AERODYNAMIC  DATA  HERc  ARE  PACKED  IN  OCTAL  INTEGER  FORM  AT  THE 
C  Rate  OF  FOUR  LUEFFICltNTS  PcR  COMPUTER  WORD  ACCORDING  TO  FOLLOWING 
C  RATIONALE  AND  PROCEDURE. 

C 

L  1.  -  ALL.  COEFFICIENT i  Lit  WlTrtiN  THE  RANGt  OF  -1.5  TO  1.5. 

L 

C  2.  -  THE  MAXIMUM  PJSITIVt  OCTAL  INTEGER  AVAILABLE  IN  1/4  OF  A 
C  LOMPUTER  WORD  IS  37777.  (16333  DECIMAL) 

C 

C  3.  -  AN  INTEGER  VERSION  OF  EACH  COEFFICIENT  IS  CALCULATED  AS  FJLLDwSD 
C 

l  a.  let  the  coefficient  total  range  of  3.0  correspond  to  the 

L  AVAILABLE  IN  TEotR  RANGE  OF  16383. 

C 

L  B.  THtN  THE  INTtGtR  RtPRESENTAT ION  IS  06TAINED0 

C 

L  1CX  =  C(CX  -  (-1.5) J/3.0 )*16383. 

C 

t  THE  RESULTING  INTEGER  IS  AUTOMATICALLY  STORED  AS  AN  OCTAL 

*.  NuMbcR  AND  IS  an  ACCURATE  RE  PRcS ENTATIUN  OF  THE  COEFFICIENT 

C  10  APPROXIMATELY  FOUR  OtCIMAL  PLACES. 

L 

L 

L  C.  THE  VALUES  OF  ICML.ICMN  AND  ICY  HAVE  BEEN  bET  EQuAL  TO  ZERO 

L  WHERE  BETA  IS  EQUAL  TO  ZERO. 

C 

c 

DATA  (KICXON  (I,o,R),I=l,lb>,J=l,l>,K=l,l)  / 
.06120063040670207*5*6 » 1UC22 105451 115111 56 2B, 121461306613540 1373 2B  , 
. 14 12014320 15031 16363B, 202 3421043 2100o20323B,203o62055621 12 7216366, 
.23436*417324644*50018, *4733245452 5 12 7263758,2 722627340272 21 267378, 
.  2o4l  3257632555 12 5o57 6 , 256  362 57 662567 62554 66,2531 2247 67 2*, 343 2 35 30 B  , 
. 234652271222172*l34*b, *0330 173141 5 7241500 58, 141601345512706 12137B, 
. 1121 0 102530755 1070036, 0630405 7550 560405 55  IB, 0555705 7250o042063 148 
./ 

DATA  ( ( ( 1CXQN  ( 1,3,10 ,1  =  1, la) ,J=2,2> ,K=l, 1 )  / 

. 06070Oo30306563u7255B, 07763105431 1113 11700B.1 24561277613526142476, 
. 145041467015203 17 12UB, 2024520733207652065 5B, 207 152 101321 22421736B, 
.2351 1242022461325 116b ,2524125 1412 5344 26 56  IB, 273772741 22731 2270606, 
. Z645G260162565226G76B, 261 742623626 142 26 0078, 2 550525 133244672361 23, 
.2357 12*7 172221421364b, 20420 1 7262 160 51 14725B, 14061 132441256711 737B, 
. 1106610* 110 754 106 7*3b, 0622 l05 740056130 5456B, 05561 0561 o062240o57 IB 
./ 

DATA  miCAON  (  I,  J,K)  ,1  =  1,  16)  ,  0=3,3)  ,K*1, 1)  / 

. 0601306357 070«307363B,10w03 10 37510 7 77 116376,1247413 16313534142 128, 
. 1477 115547 1663*176136, 203602G6722 1005 21026B, 2 112021 17421731222538, 
•  2345 o241432471 2253 12B ,2 5714  20 15626770275258,3 000027742275 12 2 72 358, 
. 267072623426302^65 146,26665 27 13527 040264048, 2 575525 32 224o7324070B, 
. 2372523135222342 1216b, 2005 1 170441 6007147768, 140441327212450 lio25B, 
. 1071  CIO 13o074o 507 164B, 06431 06 06 10 560 105 53 7B, 055310562606 157063306 
./ 

DATA  ( ( ( ICXON  l I,J,iO ,1=1, lcl , J=4,4) ,K=1, 1)  / 

.0611 2oo340066200734ld , 07b t5 104ol 1 1112l2207S, 1 2 545 13 244 13 7 C4 144 14 8 , 
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.15213160141706620041b 
.235O12425625024256758 
.271362661726666270128 
.243132366222433211 72d 
.  107241030707775073148 
./ 

DATA  {(UCaON  (1,0, K) 
.070250735007614101608 
.  1 627  5167 50 <lU  10521 11 68 
.233272417024720254348 
.273312734127546300528 
>  252o42433323504225428 
.120571142411062102668 
./ 

OAl  A  KCICXON  (  1 ,  J  ,K. ) 
.112013141011770123206 
.17025176352045621245b 
.232072347024120245648 
.270672721327260274168 
.262512516524064226118 
.137151313612470120158 
./ 

DATA  ( ( ( 1 CXON  (I,J,K) 
.0425 704660 053 0306073d 
.154771567716516177138 
.231562366724441225218 
.  270312o5502o43126617d 
.250402407023 13222 104B 
.100430720406306055448 
./ 

Data  ( ( ( ICxun  ( 1 , J ,K ) 
.04230046000 51 70057 73B 
.155331020417131201768 
.  23353240*,424j4422603d 
.27116^67432664127 151d 
.250752406723207221678 
.0777  1072CC06*:  46  056568 
./ 

DATA  (((ICXUN  (1,J,K) 
.0421 104624052440o020d 
.136011656717562203308 
.  23643244162474622740b 
.27572271 72271o427451b 
.252322417223304220168 
.076760710506336056548 
./ 

DATA  ( ( ( 1CX0N  (I,J,K) 
.043330467705301057518 
.  155^416575 17475203438 
•  23754246522546723341b 
.  3w0iH27570276o23o02 78 
.255122451523413221358 
.076430727006476060058 
./ 

Data  ( ( ( 10ADN  (1,0, iO 
.  05301u56050o2420o54l8 
.  157741674717525204115 
.235302454225445263718 


2C5e721 1422 1 32021 50 7B, 2 16 1221 642 22 147 223428, 
263572717627607301728,30205301012761527372B, 
273442765527563270678,264334565525177243428, 
200 32ie622 15655 147258, 140441 31 5 1123 26 115768, 
066770624005 67505532B, 055130563106072062238 


1=1 » 16 ) ,0=5,5} , K=l, 1) 
1056211 1611 lb56 124468 
215342213322454225728 
262372665027152273228 
302 103036030  5703044  IB 
210711750216163147718 
076170733007043067418 

1=1,18), J=6, 6), K= 1,1) 
123131273413567141108 
216742232622720233458 
250662532625634260066 
274542752427761300738 
214152033217451165758 
113731110210736106358 

1=1 ,16) ,J=1 ,1) »K=2»  2) 
066210746510253110148 
2101321 1372107721U0 78 
2^7212363224644255758 
2742l2733o27211271618 
20760 17 54616006 14627B 
O5031 0446304355044248 


,131471372214624154418, 
,230322304223432241 10B , 
,275232753227535275128, 
,301752740026370254348, 
,141321340712664122408, 
,0664106 7060705707241B 


,  1465615417 lo02217073B, 
.23706241232434224730B, 
,262642645126676267573, 
,276162730026676257628, 
,  160751553515243144378, 
,110511101611156112318 


,11732127631406714705b, 
,211112124121430217078, 
,262362633126266273748, 
,265732574725311243258, 
,134021256311677 107328, 
,044570455505 1220533o8 


1=1, 18) , J=2 ,2 )  , K— 2 , 2  ) 

066430752710231107558, 

207362104421012211263, 

23130242 1225054257138, 

274752735727253272058, 

210221 7331 15o7414443B» 

047230447504244042758, 

1=1 , 16  )  ,  J=3 , 3  )  ,  Kv=2»  2 ) 
067250743 71 0227 10745B, 
207542071220772211538, 
235722477725o6726537B, 
276062753127456273073, 
<10536 1 7 44416014146048  , 
051360443*0433704  27  28 , 


115661272713757147158, 
212572144641565221268, 
26340264322767027555B, 
265432575725277 24357B, 
133461234511550107208, 
042530443005014052158 


115641253513467145468, 
213542176722267226218, 
27157  2703460271301 008, 
266442614325364245458, 
134231240111450105458, 
043110455505013051638 


1=1,16) , J=4,4) ,K=4, 2 ) 
065400 734510 1U41 103 7B 
2102U11522101721436B 
243262550026553273268 
277  245000027  7  47  27  5468 
204571715716047147018 
053 t 004 7 25044 120443 18 


,116731256013472145268, 
,217412225722554230678, 
,276562761530550304068, 
,271152642025654247538, 
,135401252311403105158, 
,045100465 1050biJ5255B 


1=1,18) ,J=5, 5) »K  =  2  »  2  )  / 

072350777110732115748,125161324714217150678, 
212062173022316227058,227132304523645244458, 
2707 72745o3005330270B, 304763054730460303738, 


•  3026  130236302453021*.8  ,302053017530107300178  ,2 773427 37726 7022566 IB  » 
.261o525007236522*:6348,2l23G17  3l6l61G714721B,i37l713121i2343114376, 

•  i.  103 01 0457  1002507^348 ,0oo050d20 10  5  77005o663,05600056600o00306l  726 

./ 

0A1A  II11CXGN  I I»J,K) ,1=1,18) ,0=6,6) ,K=2, 2)  / 
.0/5310761210124102736, 105 701 1226 11 765 12466B, 1326114202 1475015442b, 
.162531 71 15 2007620 7348, 216542 10642223 1226248, 233432400424425251548, 
.237002431324676253438 , 2555626143264632667  IB , 272452740627  570277773, 

•  27724276oo276542  7o05o ,2753627  5322737427 1478, 26772265 1025 76525101 B , 
.262472522024033226118,214762025417231163558,156021463014154136138, 
. 1610012363117 04i 11408,106451065310117 100258, 100421006410023100358 
./ 

DATA  ( ( ( 1CX0N  II, 3, X), 1=1, Id), 3=1,1) ,K=3,3)  / 
.025430300603421041278 ,050 73060020 70G21C06 68 , 1 1 12 112037 13016 14022 B , 
.14o7515331l60o2 17 047 8, 203 2621 15021 57322 1408, 2 lo50 21 7362205522435 8, 

•  24 7722547 3262o7  2o007b , 263 162  7270302643 10108, 312223102431266312 178 , 
.3 102 73U635306573u 5 116, 603533027530 137 2763  lb, 27 1452636725463244606, 
. 25241242002323622 1 >26, 21024175671 6404 15 11 28, 13b 11 123741107507773B, 
.067750611305625046668,034130302003066034158,035050402104442050338 
.✓ 

DATA  III 1CXQN  II, J,X) ,1=1,18) ,J=2,2) ,X=3,3>  / 
.02545031450347404245b, 050 7006O2o06774 10 0708,11007 11764127 25 1371 IB, 
.14521152 741 6201 17274b, 203062 12652 163 122 1038, 2 2262222 122245 1230 51B, 
.250502565426335257078,264222747230475312168,314263107031555314128, 
. 8l256307443052480405o, 303 12802073006827526B, 2706026361 254o7245 2 18, 
.  2521 724250232532*.  141a,  21004 17562 1623614  5648,132451206  711000077058, 
. G6726G57230504i.044l  lb,  08555032O60307503 15  4B,  034100401604444050568 
./ 

L*A  TA  UllCxON  (1,J,X),1=1,16),  J=3 , 3  )  »X=3»  3  )  / 

. 0278403321036700432  lb, 05222061130 7021 100078, 1101012024127 14 136508, 
.1454215363165001 7518b, 203362 15132170622 070B, 22 1142226322604 232548, 
. 25 l6l2ol422o77325664b,2o73? 300303074531 53 28, 3 17063 146132303320448 , 
. 3146  53 1150307033053*16, 3O434302653012427540B,  271  lo2635225  544  246  208, 
. 2532724317232i722 150b, 20741 1744616110 14556B,132o5 1206610657076708, 
.06700U57730  5 1370433*18, 037  32034350  3300033  158, 03  55304  14404444050  7  5b 
./ 

DATA  III 1CX0N  II, J,X) ,I=l,lb) ,0=4,4) ,X=3,3)  / 

. 03 io203401 040 120445 16, 0524o0ol 7407075 10 13 1 8, 110561200  012  6  74186368, 
. 14570 155 17 1652217 5576, 205252 11712 17 2222 15 16, 2 244022757 233 2223o038, 
. 2 5254263652737o26416b,273o5303543 126731 77 36, 3 2 1663205532405320428, 
. 31 548313423107030o*.5b,  30504303673 006227  52  lb  ,  271 1126436256  57251056  , 
. 25465244232326222 1636, 207 13 17307 16021 1451 28, 133181214b 10 73507o368 , 
.06to37060000533404bl58, 041 5608680034 71034568, 037 1604276046 1405 171 8 
./ 

DATA  KCICXON  (  1,0, X)  ,1=1,16)  ,J=5,5)  »K=3, 3 )  / 

. 0442004552047 7205375b, 0ol020b 7 140 7 703 10o6bB,l 1602 12500 13440 143 2  ZB, 
. 15 16016102 17 125^01228, 207052 146422 2 2 122 7628, 23224233 122376224526b, 

•  252232617727 1332 7 7*.5b  ,3053  531 2163 1611 3  17648,3  17 23 3 173231  77 13 16 6 48, 
.31474313303 112730 7006 ,804073025030 107276606 , 274272703 1263 21 25501B , 
. 2602224617 234oC 22 2 17o,20742 17 302 16001 144668, 13872 12337 11336 10476 8, 
.  07  7100722506610061 738, 057250  545  7052560580c  6, 0536605 -,3205ol5060748 
./ 

DATA  KIICXON  ( i, 3,X) ,1=1, 16) , J=6,o) ,K=3,3)  / 

. 0667406765073530 786 lb,07772 1038 11 12801 1733b, 1c65413 520142 801 51 326, 
.157311661417476204136,210682146822040224628,231672364724324250553, 
. 243732514325667  264018 ,27040274212765230 1 1 06, 302253035430446303 12B , 
.3052 230466303 1530 1138,2/6602737327 136267558, 264472606225403245528, 
.255542 45022332722 146b, 210 27 1776 11 6746 15775 B, 150631425413525130328, 
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10**50777507646075*78 

1=1, lb) ,  J=l,l)  ,K=4,*) 
047310605107 13510207B 
20163212U32200?2242ob 
2 7145*7775306303 13506 
310 123063730334 27744B 
207101760716537 154156 
032500233o0 23 130235 16 

1 - 1 » 1 o ) t  J=2 1 2 ) ,  K=4*  4 ) 
030 17O60770 7041 102306 
202162116222026224666 
272163010730700315176 
307653052430252276746 
206321761416460151748 
062740260302406024226 

1-1,163 ,J=3,3> ,K=4,4) 
050760607207 12x10 1006 
2037021 15522117225046 
273563026731134320116 
310703065130344277646 
206271746316314131076 
034110275302641026436 


075120755407703077578 

/ 

113201223213156140356 
227172315423633237038 
316643174331613322548 
272752645725541246136 
1*2601277711563102746 
024660307606466041 126 

/ 

111631215416121137436 

227272326124022242226 

317563175?316343232o8 

2725126427*555*247113 

137541255611377101026 

025500311703506040538 

/ 

11112120701300113660b 

230752356124073244318 

322033222332547324616 

273122632125671250136 

167331250611176100308 

027330320203562042368 


•  12x.62i  16331116*105548  , 

./ 

OATA  ( ( ( iCXGN  ( 1 , J ,K ) 
.0**310247203057037126 
.146531540716110167736 
.253132611026520267438 
.322453207431621313066 
.250312377122762217226 
,G703o0o0 1305104042026 
./ 

OATA  ( ( ( 1CX0N  (I,J,K) 
.022320251306146037078 
.146151542416226172226 
• 2536226l342662326o0o6 
.322453207131533312146 
.25057240332302721 7526 
.0o?5 7060*205 1330418 16 
./ 

OATA  ( ( ( 1CXON  <1,J,A) 
.0241 302730033440*0466 
.14570153071645117*706 
.25*72263322711*26*048 
.323413206731537312666 
.*51732412123037217366 
•067*0060050514204215d 
./ 

DATA  (UICXUM  (l.J.K) 
.026120304503421041076 
. 146o315727l653017526b 
.255222654227457271426 
.32403321 7531660314006 
•2530324167230422 17648 
.0702 2061020 525 504 3o5b 
./ 

uATa  (  (< 1CX0N  ( I, J,K) 
.043770460105173057046 
.13603165671755520*736 
. *3234*3466237o224440b 

•  3 1737.il  5*03 131531 1*16 
. 2663625331 24*55233306 

•  10*120 74530660uoo03 18 

./ 

OATA  ( ( ( 1CX0N  11, j, A) 
.Oo 5^70665 20 707  5074218 
. 1637 11727620065206216 
.2423*2470625227256036 
•307583065430534803786 
.26173251*3*4253231536 
• 1***011615 1110 1108356 
.✓ 

Data  (((1CY0N 
.177771777717777177776 
. 177771777717777177776 
.1777717777177771 777/6 
.177? 7*7777 17777i 77 776 
.17777177771777717777b 
.177771777717777177776 
./ 


1=1,16)  ,  J=4,4)  ,K.=4»4) 
050330602*070741012  IB 
*05052127522 141226556 
276163055431460321408 
3121 73104o30*6 13000*6 
2061*17*0516156150273 
036350322503133031018 


/ 

,111001176*12710135608, 
, 233462375424333245748, 
,3*4423240532652325248, 
,27356266242607625234B , 
, 137021250211274100608, 
,03137033o3037720*370B 


1=1, 18) ,J=5,5) ,K=4, 4) 
064700741010355113658 
21331 22 13022O4023320B 
*5204*573426*0427  0148 
310873057730466302056 
220202057417215156146 
052430507104677045216 

1  =  1 , 1 8  I , J=o ,6) »  R=4  »  * ) 
1010010667114661**776 
*137722077225*0231356 
2o20 72 70 27 2 7 45 7 30 1106 
80w 7430 0462 7674273706 
2*1122103517732166508 
077G*U73io07l800?041B 

1=1,18) ,J=l,i) ,K=1,1) 
177771777717777177778 
177771777717777177778 
177771777717777177778 
177  77177771 7777177776 
177771777717777177778 
177771777717777177776 


/ 

,123401321514113147108, 
,236252*0442423224412B, 
,272052772280222305438, 
,  3021027 5302b7712bl448, 
.14426132221220511175B, 
,044150447504652051038 

/ 

,  13 152 140 1314 705 156058, 
,2  3432236  7624 165244  548 » 
,3024630770311 15310378, 
,271222660126151253566, 
,157 1514704 1401213300B, 
,070030703207203 07*006 

/ 

,177771777717777177776, 
,177771 777717777177 77B, 
,  177771 777717  777 17777B, 
,177771777717777177778, 
,177771777717777177778, 
,177771777717777177778 
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... 


DATA  It (1C  YON  (  1,J,iO  ,1  =  1,18 ) ,J  =  2, 21 ,K=1, 1 )  / 

.2 11532054540614^07*06,20756210072 151222 1708,2232321 75822205  222078, 
. 22 10 12 16502 15?  121042b, 20147  174421&54615744B, lo200 1655517 030 172448, 
.1702017402 1773520*360, 2114321 3372 122 42 12548,211552 100320760207748 , 
•2 10, 22056620306204246,2047420556211 522 1543b, 21 6342 161 221 406213278 , 
•2 16572143021243412678 ,4147341 5472 1262 207608, 204722047 120205  200663 , 
.17506l74452000320221o,201052025020303200256,17753172721766420402b 
./ 

OAIA  (  (  (  1C  YON  tl,J,K.»  ,1=1,16)  ,0=3,3)  ,K=1,1)  / 

.2 145 32 174722040223 106,2247022731 2325323562 fa,24142240462434724361o, 
.2437 0237012274021 767b, 21046200621 7274 16652 B, 167 101744017 loOl 73 14B, 
.  1 7731203162102021 5726  ,  ^.2461 23077  23  16  1  22  67  08, 2  2402  22  0  7421 672  215238  , 
.21243210442074721 1576 ,212 21 21 434221 33 2322 4B ,234222353323144227066 , 
. 2303222670231 1 123^206, 2333423233227 1322000B, 2l4ol2 121421024206236, 
.205622035320552210716,211322116021044207438,206522067521052211123 
./ 

DATA  (IIICYON  (I,J,lO,I=l,l&),J=4,4l,K=l,l)  / 

.22 7432314623424237238, 241 3224310244762502  IB, 265462570 1260 17 257528, 
. 2353 725124*441023 25ob, 224222124620277 17o7 38, 176 562005020 142 20252b, 
.210472156622306231138,236172425024301240018,234562317322627223443, 
.2206 12 16532137321612b, 220052235e230372401 68,243672436 524236 240716, 
. 24064241362461224727c, 2467 1245412355 1 23 036 6, 2 2542 222 5722066 220 10B , 
. 216072153321665220358, 217 6622054221 1222075 B, 2213322 1222222322343B 
./ 

DATA  (({ICYON  (1,  J, 10,1  =  1,  Id),  J=5, 5),  K=l,l)  / 

.27216272562741430^ 77b, 30603307743 124 131 52 6B,3 16253171 131770 31553B, 

•  3 1 15330421 2  773327  046b ,260 532 52 51246 12 2445 Ob, 2437 o2434l24  325242l6b, 
. 2503025073  25236253  338 , 2o5 1025625255 102546  38,254052520525142  251 14B , 
.2475524541 2444624410b, 24546250672554025742B,26603274353031230630B, 
.314503 1325 3127 130**  76d ,2753527641274072711 38 , 267202663626  5  75265508 , 
. 266462670426722266118, 26034265772654526541 B, 2640720 51 22oo6o27012B 
./ 

DATA  (((ICYON  (1, J.K), 1=1, 18) ,0=6,6), K=l,l)  / 
.340663423434474344358,343133415334145334526,335353375533752336016, 

•  3346O333003307062524B ,522 10315753 1277311538,3 10163064430437  302276 , 
.3U0443050630700306238, 3047530 21630 13 130 145B, oO 14330000^7764 300 126, 
.277342 /7312765327644b , 27740  30 15030522311236,315543  217 232ol532744B , 
.3360 13353733310334026, 3340 133241330703304 58,330413310333250333308, 
.33356333 13 3332 7332 50o, 333063346233423335038,3364333 7 11337 1233735b 
./ 

DATA  (((ICYON  (1,J,K) ,1=1,18) ,3=1,1), K=2, 2)  / 

. 1 77 771 7777 1 77771777 ib, 177771 777717777 177778,17777177771777717777b, 
.1 777  7i./777  177771 77? 7d,  17777 II 777 17777  17777 6,17777 17777 17777  177 77B, 
. 1777717777 17777 17777b, 17777 177771 7777 17777B, 17777 1777717777 177778, 
.177771777717777177776,177771777717777177776,177771777717777177776, 
. 17777177771 77771 7777b, 17777177771 7777 17777B, 1777717777 17777 177776, 
.177771777717777177773,177771777717777177778,177771777717777177776 
./ 

DATA  (((ICYON  ( I, J,A) ,1=1,18) , J=2,2) ,K=2, 2)  / 

. 2065620656207052 1030b, 212 13 213552 1457217200,2 20302 1 /6021623413 538, 
1336413422077540  3568 , 17413 2673? I653v*  1655  16, 16773 17  llol?  1 56 1740 5B  , 
.172571763620255203740,20445203742050020 70 5b, 2Go 3 1207 5621203210308, 
.205222045120421404578,204164072021123211533,21313213142120121347b, 
.2 163421 5042 145 #214406, 213722 1243207 14205378,2036 12030620 37420 127B, 
.  a.  77* 5200121 7525400*56,2026420327  2021 1201246,1 771 117774201 57  202 125 
./ 

DATA  (((ICYON  ( I.J.IU  ,1  =  1,16) ,J=3,3),K=2,21  / 
.220302442222454424746,226362305023220233416,233564330323250230768 , 


308 


.280672244121547207508 
.203472075621526216408 
.216502133521170214476 
. 2335 62631 123177230456 
.203352050o20754*.lG73B 
./ 

OATA  (((ICYON  (  1  ,  J  ,  K  ) 
.23506236432407U24350O 
.243342374623126221406 
.217052234122752234466 
.230152246422126223456 
.250172501724o53243/26 
.215042150122026221736 
./ 

DATA  (((ICYON  (I,J,K) 
.302413032730301303476 
.303452775627074^63408 
.2623726312207542711  /6 
.200532551525461255226 
.3172 1317263 112030370B 
.271112713327203271206 
./ 

OATA  (((ICYON  (I,J,K.l 
.34727347253^634345056 
.340233355633237327160 
. 3 lo2 031637 3 16543 i65uo 
.3l3oo3l43431521315546 
•  343^63452334500344546 
.342113424134302343216 
./ 

OATA  (((ICYON  (lyJyK) 
. 177771777717777177776 
.177»7177771777717777d 
.177771777717777177778 
.1/77717/7717777177776 
.1777 717777 17777i777  Id 
.177771777717777177776 
./ 

DATA  (((ICYON  (lyJ.K) 
.213412143021465214778 
.2206 72167721572214368 
.211372124621505214228 
.218522120 12 1 1422 11268 
.213022115421154211276 
.205372025220174205026 
./ 

OATA  (((ICYON  (i,J,K) 
.2^646^75123050231068 
.2833  72326023050226138 
.2*2542*55523056231640 
.226652257122265223608 
.231022302322701226036 
.215* 0*144021*61 215/28 
./ 

OATA  (((ICYON  (ItJyK) 
. 244032450 1 2406424 7ooo 
. 24752247*324*70*401 7b 
.2351 62405624500283408 


*.03371751217 25617072 By  1 73561715317  133 173768 , 
2163122000222 7222617b, 22463225772252 122 1068, 
215o621 756222 1 1 224448 , 224622244622  511 22644B , 
230oj*.23752  17012 1463B » 212172100120657204528, 
211442121721 126207568»20774211032124721365B 

1=1,16) , J=4,4) ,K=2,2)  / 

24406 244 3224 51o24 730 6, 247752472224606244658, 
214022G 5442006 l 177o7B, 201232024020273204516, 
235  602377 22 434 5 24 77 3 B  ,247472  442  523  6  51 23367 B  , 
225032276223311235078,236352365723614240368, 
2407o23 575234362310od, 2 252322 16521 7432 16016, 
2**742*3122*263222558,223572243022557227138 

I=l,la) ,J=5,5),K=2,2)  / 

3108731 1803 10773136  IB, 3 14013 136531234307 108, 
255222510224671245518,247272511325304254008, 
2720527 3Go2 72642732 56, 272 2727 101 266362633 18, 
257 132o0272 6305265278, 2670 12676027 362303428, 
303463034130004274658,273132723427111271228, 
27 106 270 7 12702 32o737b, 2oo66267532723027420B 

1  =  1 , 1 6 ) , 3=6 , 6 ) , K  =  2 , *  )  / 

346233**27344133*1458 ,3*2343437634427342608  , 
3246032 1003 1741 3171 3b, 3 15633 147631 35231257B, 
31o32 31 0163152 131 5266, 3 17333 163531402314108, 
315*131 033316773 165 38, 3*02632 344327 16 332068, 
844213410133713336378,336413370633714341178, 
3422234241 341 663402 7B ,3 404633 76 234063341 47 B 

1=1,16)  ,J=1,1)  ,K.=3, 3)  / 

177771777717777177776,177771777717777177778, 
17777 1 777717777 177778, 17777 1777717777 17777B, 
17777 17 77717777 17777 B, 17777 17777177 77 17777B , 
177771777717777177778,177771777717777177773, 
17777 177 7717777 177778, 1 77771777717777 17777B, 
177771777717777177776,177771777717777177778 

1=1 , 18) ,0=2,2) ,  K=3, 3)  / 

21547216132 16132 1702 B ,2 1761 2 174522  003220708 , 
213342072620377203413,202721755717355174558, 
21264*130721572217338,217072200321557215218, 
211332123721346212778,212772126621241212148, 
211472120021174211538,210402066320713206638, 
*:053420  50o2 045 6 20356a  ,202  252025220337 20321 B 

1=1 , 1 6) » 3=3 ,3) ,K=  3 , 3  )  / 

i232  7  2  28  4472342*23  32  08, 23*52232702327**33256  • 
*.23422157721050206728,2073420361201 17 200618  , 
232352352124124243408,243402410323450231208, 
224142263122713227208,227412264022474223048, 
226 *.62263522713226 16  8, 2  234322  11 62 17  4 12 16  548, 
21o30216432l6l0215448,2 141 22 14262 1461 2 144od 

1  =  1, lo) ,0=4,4) ,K=3, 3)  / 

25U6 525 l 102 5 1652 5 2 108, 2 523525 l 2424 7 5624 77 16, 
234622**5722074*1*426,213*02115221 146213136, 
2546025 7032b2032636 38, 263 52260 1225 16724621 8, 


.24441242602373423700a 
.24714246702453224  3  5uo 
.23 1642323723 14123 U42d 

./ 

OATA  ((UtYON  (1,0, A) 
• 3i2Go31224312ol3l4o5o 
.306423032427704272450 
.27456277033005 130 161o 
•27570273 53 2 73 142713o6 
.31426514535104030630a 
.3056o3045  730342301358 
.  / 

OATA  (  (  (  ICYOU  (i,J,K.) 

•  3551 1352543514434727b 
•336&3333 533302032 4646 
.331233307433073330336 

•  3 a21 332 164 32 15632 1576 
.34076342023417  3  34  03  >6 
.343033430334170341036 
./ 

DATA  (U1CY0N  (  l « J  «K) 
.17 77717777 17177 17777B 
.1771717777177/7177776 
.1777717/77177771777/6 
.177771777717777177776 
. 177771777717777177776 
.17777177771777717777b 
./ 

OATA  (((ICY  ON  (1,0, K} 
.214072150321447215118 
.215302145721465213258 
.213102 14 502 l 564c 152 7 8 
.215772157121535218206 

•  21 25 121 1602 llc62 10856 
.207?4c07722104321047o 
./ 

DATA  (((ICY ON  (1,0,10 
.231752316623221232478 
.23170231 i8230512270ob 
.2  *.53  6227  3  12320423^.036 
•23130231 1423040230456 
• 22 76 122661 22 5c62 24146 
. 2 *30 42 2250 2230 o2 2400b 
./ 

OATA  (U1CYQN  (I,J,K) 
.246442472524777250186 
.2 44 1024413 2447724*026 
. 2400  5c4231 24504250558 
.247 1 22467 1 24655247056 
• 245u 324400 2420724033a 
.236152357223642237176 
./ 

0A1A  (((ICY ON  (I,J,K) 
.3 a4073 1506 3 157031 7406 
.313443107130521301246 
.275112751327851277376 
.303563003327465274178 
.320523170231426314440 


240 202420a 2 42 13241626, 2413623  73623646234658 , 
243502433124142241736,237622350023323232226, 
250o723o3o23Gb722755o , 227112265122670227326 

1=1,18)  ,J=5, 5)  ,K.=3,3>  / 

320  3031 7 163 180431 42 6b, 3 14363 140431  2  77  310718, 
26564*62342b02025632  B  ,254  7  52546525446255  53  B  , 
30 5243 10363 11 033 116 bo ,30765 30 707 30 2 76 30 122B, 
267772 70ol2 7 175272046,2722327 14427 275 30046B , 
3100030765306363051 7 6, 3042 130 5 0030 60430620 B, 
27754276602  7473272466, 2716327 1242714127263B 

1=1,16) ,0=6,6) ,K=3, 3)  / 

347078462134514344746,344163432134404341068, 
322 7731 7733 1 4 753 132 7b, 3 12o03 122 13 llo3 31 1758, 
8277432702825608266b6,32630325273242132312B, 
321623206032101320718,320163212332513327258, 
33o2033 6043 360 633575 6, 3362033 66 134021341706 , 
33743336223346233257B, 3314633 166381 57 332 168 

1=1,18) ,J=1 , 1)  , K=4*  4 )  / 

177771777717777177778,177771777717777177778, 
17777177771777717777b,17777177771777717777B, 
177771777717777177778,177771777717777177778, 
17777 17 7771 7777 17777b, 17777 17777 17777 17777B, 
177771777717777177776, 17777 1777717777 17777B, 
17/771777717777177778, 177771777717777177778 

1=1,18) ,0=2,2) ,K=4,4)  / 

2150421423214742147  38  »  2 147521 55021 o43  216356  » 
2 12 022 07752 057 52045 56,20606205 3 720 540 2050 l B , 
215 1221 55021662217468, 2 1751220 1421 773 21o2bB, 
2151 52146521503215308 ,2 1 5552147721 35021257B , 
210032111721230212368,212542127021277211738, 
210212104421036210436,21057210432065520670b 

1=1, 16 ) ,0=3,3) ,*=4,4)  / 

233422833623233233008 , 233 7 3 23 36 023 3ob 233 248 , 
22617223152 1744215766,2 17262166221520211758, 
232062330223465236706,237042364623505232328, 
230432307623106230658,230572301222655224318, 
2247 12237 1227212300 16 ,230042267622  605  224  746 , 
224052242422373223448,223212227622232221658 

1  =  1,16)  , J=4 , 4 ) *  K=4 , 4 )  / 

24/872505325075250446,250462502024713246406, 
240022347023064227246,230572304422610223206, 
251 /02523325410255566, 25673 2553 225220250176, 
250 1624747  2462424  52  7  8 , 244472436224247  240638 , 
240662420024244242268,242322427124155237346, 
237442371723706236268,235722356 123501234148 

1=1,16) ,J=5,5) ,K=4,4)  / 

320123172431611315846,3166031663315/6314748, 
2750027 1522o7462fa 5268, 262202577025747280378, 
301263021530255303028,303723044130446304508, 
27435c  7  3l 12  7703302308 ,304723063030  7 10306436 , 
3132431 2143 1 1 2531063b ,3 104331 20531 14231367B, 


310 


itaaiMiiiiiBBiU 


.  31365314263  14443l43lb,31.»453l  070307  53  30o7  5b,  3064730  5053042330405B 

./ 

OaTA  (((1CY0N  (I, J.K)  ,1  =  1,18) ,J=6,o)  ,K=4,4)  / 
.356443561335547^53776,35372353043 32233534GB, 35313351 723505334751 8, 
. 34540342763402533 1»0  70,3324533  24732361 3207  26,315733132531204311746, 
. 3271 73 j02433 147332406,333 7433 51 13 3 5663366 IB, 337 143365733451 332 16B, 
. 3307 13273 13264132620D, 326 1532704330 3433072B, 3315 1332 57334 17 33577B, 
.35062351233520  2352176,3511335071350403500  76,3  50323503335165  352438, 
.3544 1355623557735 5546,35520354673534 13541 36,350573471 034 72334556B 
./ 

DATA  ( ( ( IC20N  ( I, o.M ,1=1,16) ,J=1,1) ,<=1,1>  / 

.  2337  6224*»52 1663207566, 17742  160421 5o26147346, 141 51 13420 12  722  122  57B, 
.120241 1773 11423 112506,10712 1130 11 1502 11704b, 11732 117741177612043b, 
. 11 3o31137 01 12701 1446b, 1223013o06l 50341 5 5426, 161 1616455 16761 174 10B, 
.1773040237 20044176476, 17601 17634202332061 16, 2 13372233523256241 72B, 
.2271 32337 123464 23627b, 237 002440624477247048,25007246732462425037B, 
.25 16 1..5 16 72 52 5024 7  506 ,2454024  54624^652422  26 , 240012353623264227366 
./ 

DATA  (U1C20N  (  1,  J,K)  ,1=1, 16)  ,  J=2,2)  ,K=1,  1)  / 

•  234062246221 723210416 , 1776416633 15715147146,1 37501330412s 13 121706 , 
. 116671 16431 1552 106436, 10753 11 1341 1241 11 40  IB, 11 544 11 63011662 11662B, 
. 11 1411 1425 113261 l4l4b,1203713224l464515413B, 1574516365167461 73666 , 
. 2004720371200311 7 447b, 174161761720 112206776, 21442223422323424133B, 
. 2^6562542 123560237o3b,2402624212243 5 12503 16, 25 15 125 130250 1625 1246, 
. 25 17  225^53252 1225 1136 , 2 5040246562 4507 24266 6,2 400323 57623 2 70227 46B 
./ 

DATA  1  ( (  ICZUN  <I,J,A)  ,1=1,16)  ,J=3,3)  ,K=1,  1)  / 
.233272254121674207706,177221667515663146216,136561312312432120138, 
.11673116441 1005104126, 10560x076311141 11 1626, 114571146611411 113523, 
.111201120611260113536,117171263113672146246,154521617716704173508, 
.177432013017362174676,172371723417703207218,215052233123154237416, 
.227342332623733242556, 2441424364244714510 16 ,25364253 3 32532**253 166  , 
. 2544  34  535025431250676 ,2502624  733246022430  36, 240422360623403230 14B 
.✓ 

DATA  ( ( ( IC2UN  (1,0, K) ,1=1,16) ,0=4,4) ,K=1,1)  / 

.253442267 52 176640767b, 17767 16761 1 5750 1 5037 6,13753 132 17 1237o 120 50B, 
. 1 162ol 1542 10o30103 116, 102 16 10571 10bo7 1066 76 , 1 1055 11300 11305 114448 , 
.11055111 171 12071 13576, 1162512 277 13273 143046, 1525016 13410726173436, 
. 1 7670201231 7460173608, 17240 1 7 3171 7731 20606 B, 2 13052207022766236346, 
. 22 <40433602370 124 2506, 44461246442 50 56 2533 5 B, 2 5451 25513255 63 255306, 
.255202545725362251716,250302471324617244168,241672374123500230636 
./ 

DATA  ( ( ( 1CZ0N  (1,J,K) ,1=1,16) ,J=5, 51 ,K=1, 1)  / 

. 253502245421724410606, 2U1 50 17 1301 6 124 15 177 8, 14356 13bb0l50oll235-,b, 
• 116751 137 51 07 25105136, 10553105 20 1072011 10 66, 11236 11252115 04 1176 36, 
.H44tl  1563 11770144406, 125  57 13  273 14057  147566, 157  141666417  512201438, 
.2U4142U4002035220 I31o,20023 177621 7755202406, 2055521235220114236 16, 
.  4<ul272257023244237056, 2460745  17  12 54412 564 2B, 2 56 512 56 14255 7425 544b, 
.2541  l45*»07c  5336^33  156,2  52332511 12474424443  b,  2421023  75423474230436 
./ 

iMl A  (K1C20N  (I, J,K), 1=1,16), J— 6, 6 )  »K= 1,1)  / 

. 227t0i256324l53<:13036,  i0566  1770216700  lo002b,  153 1414667 14251 134608, 
.1330612760 li65012400o, 14427 12402122471225 28, 12256 1234212441 125426, 
.12644130411330613  542b, 141 54 147161 5441 1605  lb , 16432 17057 17462 17773o , 
.203154051520512405436  ,*063 7206432 02 16 2007 7B ,202722060021 1 72216606 , 
.212344210042613432506,436462412524166243113,244242453124545245348, 
.24 5472452 52442 7243 5<d,243 1624 17 124000236006,231 1422 75522 546223658 
./ 


DATA  ({(ICZQN  (I,J,K)  ,  1  =1  ,  1  o  )  ,  J=  l  ,  1 )  ,  K.=  2 , 2  >  / 

.2*07  7238862  24784l52:>b,204871726ololl8l5  005B,l877412o341l621113  26B, 
.  1 107  510605 103051 013t>B,  1022 1 105731 1015 11 153B , 1 1251 1 1 30 1 1 1337 11405b , 
.1042410443 1036O1 11308, 122o‘tl‘,J47 16  32 71 7 24iB,  1757020 15020 5 22 203 346, 
. 20 5544063420747208  15o, 17373  17 £>76 2 02 32 2066  IB,  2  133022  13024566 23364B, 
.230312355523761235500,437*04426324777253476,255732554325567256766, 
.2611 02 624426424463556, 46041 4562 32 33 4125006 B, 2 4440241 2 223 334232268 
./ 

DA  1 A  (((1CZ0N  (1, J.lO ,1  =  1, lb) ,J=2,2) ,K=2,2)  / 

•  240  5  32344  54..  4352 15  24b  ,40857  1/22 7 1610114 77 6B»1  36 761265711701 1125*6, 
. 107541064510255077156,1016010 54* 10725 1102 5B, 1116411 13  111 16711270B, 
. 1O34010402104701 11360, 12322 14216 162 26 17 127B , 174642004 1176 17201 376 , 
.203532046220552200276, 17414177452033 120714b, 2 13 772213722663 233306 , 
. 2^02 32352524065240866, 24237244522 5 1 552560 4B, 2 37522576425 703 257436, 
. 2oQ i 7 2ol 122 034626 25 6o , 260o7 25  54625345 25  04 16, 245662423 823 6 16 232 72B 
./ 

DATA  I ( ( 1CZ0N  (1, j,K),I=l,lfa) , J=3,3) ,K=2,2)  / 

. 237 4623226 22370214506, 20323 17 177 16003 1463  IB, 135221256411 711 112636, 

•  1071 010570102160  77763 , 100341083310500 10 5576, 1072310728107621103 OB, 

•  10307 1033610452 11  <: 446 , 12443  140001 5575 16 522B  ,1716717653173 77  177  7 48, 
. 20 330203762034017o 140, 1751 117 7672032120o51 8,212732 176722562233263, 
.2275 12343724045244063 ,24634^5052253 16255743,260562610226130261456 , 
. 26 2o 22626 126261262066 ,2606 12 57332 5421251268, 2461 124 27 7 23o46 23 2 47b 
./ 

DATA  (KICZON  (  1,  J,K)  ,1  =  1,  Id)  ,  J=4,4)  ,K=2,2  )  / 

. 2371 0481 35223 122 1426b, Z0244 17063 18746 14770B, 13643 12 7021 1747112658, 

•  lxll 7x0624 10 150 100o7 6 ,077  77 lOOoO 10301 103740, 105761066010736110443, 
. 103171041 11050411260o,122o3 1361715 126157548,165731740417 156 176066, 
.20 14420205 17455173650, 176322001520250 20650B, 213522204o2253223254B, 
. 227472334624010245736, 25187254222557025733B, 2606 1262402632726266B, 
•268254632726277461653 ,26017456302 5456251408,246142426623673232 16 B 
.✓ 

DATA  ( ( ( ICZQN  ( 1 , J ,K) ,1  =  1,13) ,  J=5  *  5 ) , K  =  2,  2 )  / 

. 23537227 13220412 14346, 20534 17602 16402 1542 58, 14401 13*4212625 121 45B, 
.114051 10571061610431b, 10365 105u5 104  77 10660b, 1107 11 111  7 11 215 113 7 16, 
.ll0421ll671137lll631b,1220J127001345014272B,152121b07517043i7ol4B, 
.  20354203452014720  265B  ,  x.03  75  20  45 12  05  76  207458, 2  10772 141022  003  22564B, 
.423002803623731244056 , 4506225457257 34 26 13 2B, 2617326 23 1462 11 262 768, 
. 262362617326130257548, 2553025314250o5 247018, 24A55241242381023042B 
./ 

DATA  ( ( ( ICZUN  ( 1, J,K) ,1  =  1, 16) , J=6,6)  ,K=2,2  )  / 

. 2334622711223 ll4lo77o, 210O620 2041 7401 lo45 lb , 15o5515G 1 2142 17135336, 
.131071455212305121108,120211210112124120458,120011200514153123268, 
.116041 20261232212661b, 1331513 75314421 15 12  OB, 1562616326 166  54172648, 
• 177304031620656210148 ,211 7421 30321 5 07 21 62 6b, 214 14 21 36 121 7 05 223073 , 
•2l6o0223132300 723457b, 240622447024637 25006 6,251 15253 13253 15 25263 B, 
.252152514625052247553,245242432024072236768,234042321622755224113 
./ 

DATA  (KICZON  <1,J,M  ,1=1,18)  ,J=1,1>,K=3, 3)  / 
.441022331522422214316,2021217  024156461447  lb , 134101232411 327 105658 , 
. 10341101220 76320 74540, 0730007 554076 io077468, 103301046610e401l040B, 
.076760760307635100086, 10602 12253 141 11 15224b, 160 141645217073 174578, 
.1 7721200321773317444O, 17663202132055721 1708 ,2 16272223 12256223102B , 
.  23883237202404724017b,  2416224  672452  5325  72  3b, 2632626  577267  43..7173B, 
.272512730047347274538,271012664126206255060,251402443723766233238 
./ 

DATA  (((ICZQN  ( 1  *  J  ,K  ) ,1=1,18) , J-2 ,2 ) , K=3 , 3 )  / 

. 2406448254224084 1*21B, 2030717113186 36 1452 46,  13403 12352114  10106778  , 


312 


.103661023710003074546 
.0?o25G75070763410017B 
. 176a  420057 17371173716 
. 2325 o23ob 5 2407 2 24 1568 
.2733027347^736627^238 
./ 

data  (uiczoN  dtJtio 
.2*»G5  62324722314213360 
.10334104o7 10 17 3074246 
.0753707550076 13 1U0748 
. 1736620075 17626177458 
.231632337324135244656 
.  2?2o0a:?2742726?27234o 
./ 

DA 1 A  ( ( ( 1CZQN  (l.JtK) 

. 2371 123 130 2 H l 52 12438 
. 107101065O 10146075476 
.075O5076140 7763102028 
• 17 41220050 2004020 11 36 
.  A.3055234742424424762b 
.274052732427166271246 
./ 

0 A 1 A  ( ( ( 1C20N  (l.JtK) 
.234422264622002212106 
.114331101210451101728 
.102431033410516110476 
. 173462 U000203732U6558 
.22673233262421324o5oo 
. 27 1422701 1 26570^63138 
./ 

DATA  (111 C  ZON  I  1  I J(H) 
•  23 16422  542  2  2204  i.  14046 
.131511256112310120476 
.113411147511646121418 
. 172741772320363207306 
. 22 1o422o5 7 2334 5237600 
.255042544025333251336 
./ 

DATA  (((ICZCJN  UiJfK) 
.23675231522227121200b 
.111611056710154076368 
.014040746 107 503100366 
.  17  25217530  1776320^.248 
.25^0 525o01267 5 5240036 
. 274402757627537274578 
./ 

DaTa  (lliaON 
.23723231O12224021317B 
.  1  1a.60i07o5  10374077766 
.0742 107454 0747 010 0646 
.172001752120033201668 
.262122660024026241518 
.275o 12 76342 760 32 75*58 
./ 

DATA  (((1C2QN  (i,J,K) 
.*374  12  6060  22156^1  a.  166 
. 115^11121210673101456 
.0744^:07466  07566 10 1050 


07^430734007640 1006  IB >1020310471 10537 106568 t 
lOo 34122621 3 704 150656, 1506  516436  loo 77 173056, 
1775220  245205702 1167  6, 2  1523  220742a:5  04  22761B, 
244622501625531263228,266702701527101272248, 
^676626  43626  144  a;560  78, 262  502454624047  233  5&B 

1=1,18) ,J=3,3) ,K=3,3)  / 

202 43 17 llal5o7414513B, 134001 2327 11 417 10756B, 
0727007O77074O 1100648, 103071045610542106358, 
106541206013366144278, 1 55 13 1624 7 1623 1 17 1 126 , 
200432032520616211568,214512200122347226648, 
250602544026057264228,267462712527245272558, 
267 42264502 o 10325 553B, 2 52052453724022233048 

1=1,18) ,J=4,4),K=3,3)  / 

201U2 17000 15575 146056, 13523 12442 11635 11 1640, 
072730742307623100036 , 10201103031044610o318 , 
1070111 72212 7oll372 28, 15051 1 5636157*6 16636B, 
2030020473207 70 21 223 B, 2 144521 7 1622243226368, 
2545126054263662661 18,267432710027274273558, 
a.67  102640526 1052557  06,25151244502376023207B 

1  =  1,18) ,J=5,5>  ,K=3,3)  / 

20343 174301 6650163038, 1425513356 12531 120378, 
1015210 137 1 0246 10345 6, 105331066611012111528, 
113261173412347131708,142041510115767165646, 
210562122121326214048,215422167222103224618, 
25321257o72625b2o60aB,2b7202704727 1622723  IB, 
26063256322  53472502  58,245052414023  5  04230066 

1=1,18) , J=o,o) ,K=3,3)  / 

2075 120 10317324 16477B, 1 6041 150 16 14 164 13515B, 
11727 11706117 2011 712b, 1 16b4 1 1 7301204512252B , 
12406 13055 13543 141 71b, 1500415503 16 174 166468, 
21171214232 16002 1702B»21776221052230222574B» 
243532467025106253368,25534256542566625627b, 
2466424434-2  42  2-4  240 1GB  ,2357  22324o2274322401B 

1=1, 18) ,J=1, 1) ,K=4,4)  / 

20063 166601 5o20 1457 2B, 134741 2 5141 17 511 l 5046, 
0733507o2007 60707302 6, 0746307 55 207 646 102028, 
10707 120431 34141444  IB, 1522615722 16424 17022B , 
206732060621144215018,221252260623062232428, 
241 7024547251 1125502B ,2ol 0326 54327074272 566, 
27336270312644626031o,254312500024235235346 

1  =  1, 18)  ,  J  =  2,2)  ,K.  =  4,4)  / 

201o 1 16 76 115o27 145308, 134701 2 53 312 021 115558, 
0742507 ^  7  2  0  7  2  6  2  0  7  22  6  3, 0  7  3  6  4  0  7  4  6  1  07  6  01 1006  IB, 
10727120441330314321b, 15171 1572b 163 53 I6660B , 
204212062421 1 522 14746, 2207522373226 16 230438 , 
24407247312  53 6226 12 7B ,2  66702  70772730427475b , 
2734126  7772643426046B, 2546  3247 74243 11 236 106 

1 = 1 , 1 6 ) , J=3 , 3 ) , K=4 , 4 )  / 

20 100 16 77 61562 3 14512b, 13505 12 5 lo 1205 lllo5od, 
074 3407 1630707 107 1406, 072 71 0740007682 101228, 
10661116641 o02 71376 18, 147 50 15 522 1607 1164746, 
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. 171251755020141203076, 2G51&2077321 25721 520B, 217562226522534227368, 
.231412353124051243508,247342535325752263338,2666527205*7436*75018, 
. 2757 427o232760127473d, 272O2267512635426002B, 254 3725003242&1235&2B 

./ 

DATA  (U1LZ0N  (I,J,K>  ,1  =  1,161  ,J=4, 4>  ,K=4,4>  / 

.  23670*303422 11 22  J.  0708, 17705 166661  666414637B,  1 361 712  704122  25 120G6B, 
. 1*77 111363107 121022 /B, 0752007 21007 12007205B, 07 2660743007631 10147B, 
.0750 707547 076 16 10 1106, 106301 16171 246413332b, 143361525515621 16341B , 
. 170471754220233205668, 207362 11222 133121 55  IB, 21745222722266523027B, 
.*305523465241 77245736, 252122556O26242265708, 27075273 1727466275508, 
.2 761 32763 5 2755 2274278, 27 17 7 26 64726 304 25734b,25371247232416423540B 
./ 

DATA  (  (  ( 1CZ0N  Cl,J,tU,l=l,l6»,J=5,S),K=4,4>  / 

. 23026*2*622 1441205436, 17o031o62 11 56161452 2B, 1352712 662 120 20 11331B, 
. 1057 510062 07567073668, 072 740731107357074628,076351000210100102318, 

•  1051311323 12034125636 , 1640414207147671553  28, 163031667717367 176608 , 
.  77752034120637210368,214432147321677221568,222552257123037233258, 
•227402336724036245166 ,251 60*56772 633 7267408, 2717 12 733427 3 7427437B , 
.2732027*7427l46266706,26452260542553425215B,2t721243542373223250B 
./ 

DATA  ( ( ( 1CZ0N  (I,J,K) ,1=1,16) ,J=6,6),K=4,4)  / 

.2253 12206121356206058, 20030 17 2431 64041 551 08, 146041 3760 13 176 125148, 
.12036115121123410770B, 10660 1062510644107048, 1104511242 114 101 1532B, 
.  1*077 11407  117521*5376 , 13021 13 5 101 -,0661446 58 ,151761  554216243  167478  , 
. 1745 1*007120504210306,213632155322067222458, 22425 2253722 o 1723021B, 
.2237 5*30342337 5237 526, 24335247122 52362547 SB, 25657 2602326064 260278, 
.2600 52574125601254776,25253247752454724254B, 2 37312336322765223538 
./ 

DATA  (  (  (  ICLONl  l,J,K.),I-l,18J,J  =  i,l),K=l,l)  / 

.17 777 17777 1777717777b, 17777 1777717777 17777 8 , 1 777717777177 7717777B , 
.177171 77 7717777177778, 17777 1777717777 17 7778, 177771777717777 177778, 
. 1777717777 17777177776, 177771777717777177778, 177771777717777 17777B, 
.177771777717777177778,177771777717777177776,177771777717777177778, 
.177771777717777 177776, 1777717 7771777717777 6 , 177771777717777 17777B , 
.17777177771777717777B, 17777177771 7777177778.17777177771777717777B 
./ 

Data  ( ( ( 1C LON ( lfO,K), 1=1, 18 ) »  J  =  2»  2 ) ,K-1»1 )  / 

.200421 7750l775ol775o6, 177752002220 122201658, 201742012420 157 201268, 
. 20 1562015220351205 526, 26^0720 *172 J20620 l 538, 20041200352006720 1168, 
. 20*302020220157*0121 6, *0060*004420020177458, 1766017o2ol7 620 176408, 
.177031766117653175768,176351773420216204428,205742054420473205228, 
.205262030720066200636,203202037420304203148,203032032620263201628, 
.20 10**0034*0024*006*8, 20 12520 1752013620013 8, 1 773317613 17 o55177olo 
./ 

DATA  (UICLON(l,J,K)t  1  =  1,18),  J=3, 3),  K  =  l,l>  / 

•  1774420633*0040200468 ,20073  2013220212202068,202242023720342204508 , 

•  204*0*030120740207248 ,*0542204032  03 15202528,202232017220204202008, 
.20352*0337 203l62027ob, 202122016020042177 148,175771751617502174718, 
.1745417477 17664177576, 20O672O2552054321 107B, 2*2032124221 210211 778, 
.2 1023205512046420454O, 2050 120 5702 062520606 b, 206072060220 53720472B, 
.203432022620151203006,203172034020246202048,201212002017756177318 
./ 

DATA  (  (  (  1C  LON  (  1,J,K),1=1,16>,  J=4,  4  )  *  K.=l » 1  )  / 

. 20076201352015*20 17o6,201oo20 131 2006 1200676, 202272037420467*05328, 
. 20664*0705 *1040207558 ,206 102040 12032320243 B, 2 022 520221 20205 201408, 

•  2C  36  7 *04442 044  520 3  5ob  ,202  7  1202342007 1 176306, 1753417522  17445  1745  18 , 
.1745 117542 1775720 lHob, 203472037520777214178, 2 14772 1 503214552 1361B, 
.21150*105621071210746,21126*113721110210658,211112100721003210178, 


•  20&7  5205232044520432b  *  20377204222041520350b » 2032 12024620 153201028 

./ 

DATA  l ( ( ICLQNl 1 , J,K) , 1  =  1, Id ) , J-b,  5)  ,K=1,1 )  / 

.  2c 37 520333 2C.»66204l0b,  20451 2Od432J36620443b, 2 041720520206 1021004b, 
•2 106 121040 2 11 13210 73S > 2G70620 52220 3432023 28 ,202062024020200 201 lbB , 
. 203372032520322202776 , 20263202202016220101 8t 201032007720 137 201 74B, 
.20 175203572042 1^03728, 2o76G2122221 50521645b, 2214722404225532256  IB, 
.227  f 422647 2260422433b, 221 73222 142222 122 235B, 222372222722 17622147B, 

•  22  Oo6<:  2033  2 17722 1632b, 2151 12 137121  25  7  21 143B  ,2 103320  71 4206  342057  IB 

./ 

DATA  ( ( ( 1C  LON ll,J,K), 1=., lb),J  =  6,6) , K=1 , 1 )  / 

•  215662  j.447 <114212 1463b  ,^.122  1 21 06  7 207  ol 2073  3 B  ,  20673  20 70 5 20 7 63 2 1040B, 
.21l43cilo021 12221067b, 210 102070520602 205236, 20407203 1720252201678, 
. 20424205 lo2054320537b,203062u4462044520503d,20523205422060020657B, 
. 20716210452122121355B, 2152121 7012212422423b, 2 262323017232 2423274B, 

•  236 3 2c 33732347 123444b, 2333323 25323232232 12 B, 231o7 23 170 23 161232 16B, 
.23 106231 C42304322  73  5o,22637 /125462244522320b,  22 15522 11 122  01 321 756B 
./ 

DATA  (lllCL0N<l,J,K),I=l,lb>,J=l,l),K=2,2>  / 

. 1777717777 17777177776,17777 17777 17777 1777 7B, 17777 17777 17777 17777B, 
.17 77 7177 771 77 7717777B»17777177771777717 7776,1 7777177771 77 77177 77B , 
.177 77177771777717777b, 17777 177771 777717777b, 177771777717777 17777B, 
. 1777 717777 1777717777b, 17777 177771 777717777 B, 177771777717777 17777B, 
.1777717777 1777717777b, 17777 i7 7771 777 71777 7 B, 177771 777717777 17777B, 
. 1777 717777 1777717777b, 177 7 7 1777717 77717777b, 17777 1777717777 17777B 
./ 

DATA  ((  ( 1CLUM  I,  J,K»,  1=1,  18)  ,0=2,2)  ,K.=2,2)  / 

. 2 00041 7 75 3 20000 17 766B  ,<£0004200 762 012720 13 3 6, 20 146 20 10520 172 201 07B, 
-20 17 7201ol2025o20253b, 2017120011 1773417740 B.17753200032002520053B, 
. 20203202 15 20 174 17 7 5 lb, 2000720 0112 00252003 3 B, 177371774317  621 1761 OB, 
.175231 76 15 176241 7655b »2u007 200722 022220467b ,2060120607205462055 3B, 
.<1047 720^6020160201038, 201022010420 16320222b, 20234202632026320154B, 
•200672o 055 2003020 074b, 201 1120 101200552000 3B, 17726177341772517736B 
./ 

DATA  (  UlCLaN(l,J,K.),l=l,lb),J=5,3),K=2,2)  / 

.2003 12006220 13120103b, 2005320 136201 15201273,20145202122032320434B, 
.2051420461204 102027  lb, 20167200532U0042002 18, 2002520053200 77 20066b, 
.203462040220434201 lob ,202202020020156201248,200201776417511 17447B, 
. 17355177222003320 166B, 20334204422065021 133B, 2 12302120621 157212 10B, 
.211322071620466203358,203252034520431205048,203252050620450203558, 

•  2026  7<.u2  42  20 176204  lbB  ,202352022220165201256, 201 152006020042  2004  IB 

.✓ 

DATA  ( ( ( ICLQNl I , J , K ) , 1=1, 18 ) • J=4 ,4 ) ,K-2 ,2 )  / 
.202142022220247203078,202562020020216201648,201662031320453205518, 
. 2061320604 20514403078 ,2022220 1 122  00322003 1 B ,200672012420 132201 00B , 
. 2037  42045620503203668,2051620445203752025  7B, 2 01 162002617622 175623, 
.177 10200512031520464b, 2057521 00021 222213578,214732151 121453214 16B, 
.215352127621071207338,206654067420754207638,210012077220713206638, 
.2056 74045420 36620333b, 2035220 356203362033  IB, 20326  2027420247202448 
./ 

DATA  (((ICLQN(l,JyM,l»l,ia),0  =  5,5),K=2,2)  / 

. 20723206702063220600b, 205ol 20 552205442053 08, 205362067720704207458, 
.2 10362102321000206508, 2050720 30 120 150200738, 2 0126 2020720213 202 168, 
.20444205402057 120 551b ,2053520 5202045620446b, 20437 2044620461204558, 
.20452205472101321 1138, 21267214552 io40 220008, 2212122 17122 32 1224308, 
. 23054227302241022226b, 22cl4222372222622224b, 2224122230221 56221 10B, 
. 220252177021 71221 577b, 215152 14252 132021 166B, 210512100621 045210458 
./ 
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DATA  (t(lCL0N(I,J,K),l=l,16),  3=6 , 6  )  ,K.=2 , 2  )  / 

.  2202021733  2i651215oob, 2 150 7214472 1 3352 13 106, 2 12432 122621 242213  25B, 
.2 1356213432 1323212028 *210732075420664206330, 2060020544205 1020440b, 

•  2071 7x10242105 1210506  ,21031210412 1051211008 ,21 12521 17021  231212738, 
•2 13622x470 2162 12 1762a, 220 76 222 27 2 23 54 224448, 225242270523053231468, 

•  235402354423 50 123443b, 23_>55 23 20323 1602321 18,232272320623174231728, 

•  231372313523074230240,2274722675  22  555224168,2226322 16422147221428 

./ 

DATA  ( 1 ( ICLONf 1,J,K), 1=1, 18 ) , J=l, 1),K=3,3)  / 
.177771777717777177778,177771777717777177778,177771777717777177778, 
.  1777717777 17777177 /7fa, 17777 17777 17777 17777 d, 17777 177 7717777177778, 
.177771777717777177778,177771777717777177778,177771777717777177778, 

•  17777 17777 17777 17 7 77a, 17777 17777 17777 1777  78,1 7777 1777  7 177  77 177778 , 
.177771777717777177778,177771777717777177778,177771777717777177778, 
.  17777177771777717777a, 17777 177771777717777B, 177771777717777 177778 

.  2 

DATA  ( ( ( ICLQN( l,J,K),I=l,ld), J=2» 2 ) ,K=3 ,3  >  / 

.20036200 2220032200458, 200o520 12720 15320 1768, 201772024220264202708, 
.202602020220171202018,201302006720070200638,200572006120073201118, 

•  202472031220275201 266 ,201462013320 127  200718 , 200202002417720177518 , 

•  17751177622013720  2148,202742035120471206008,2  06052056720516204518, 
.  20  36 1202 15  20 12  220  0618, 20G02200 1^:2  0u7  5  20 1708, 2  022220  21 120201201638 , 

•  201442010720030200348 ,200202002320031200208 ,1774617763177  5217761B 

./ 

DATA  IUICL0NII,J,K),1=1,  la),  J=3,3),K-3,3  )  / 
.201422017220175201436,202252030120303202746,20325203642041320427b, 

•  2043  7  2036 1 2032  7z.G30 16 , 2020020 175200742007 18 , 201152012020 112201208, 
.204522053120535203646,204202044320373202736,20171201071774217745B, 
.20027x013520356205048 ,206 34207442 111021 21 36, 21 27 321 26021 155210178 , 
.207612053020347202448,202102024320335204246,204742050220462204608, 
.2042a2033420241202 lib, 20155201562012720113B, 200622006 120071200628 
./ 

DATA  ( ( (ICLONII, J,K), 1=1, 18 J ,0=4,4) ,K=3,3)  / 

.2032220335 2036420354a, 20374204152041420352 8, 204212047520 53620564B, 
.205742054520553x04258, 20333x020720120200548, 200702010720 12320173B, 

•  205462061520637207036 , 206o 120 66  7205522045  IB, 2033320 2 5220 137201ouB , 
.20261203652053720752b, 2113521 34o2146 121 5438, 2 161 12 154121454213508, 
.213132110120712205758,205552057520645207208,207672101220773207418, 
.2067 2x0ol320462203668, 203372031220276 20 25 5B,20244202352024020235B 
./ 

DATA  ( ( ( 1CLQN( 1 , J , K ) , 1=1, 16) ,J=5,5) , K=3 ,3 )  / 

.21 1532 11342 115021 loOa.x 11 5421 1162 1043207766,2 10022106U2 105 12104 58, 
.21 047210 152073220o27a, 20440 20 3 1/2023 1201448,20 11220 1402016320226B , 
•20622x071320716207046,207452077020742207128 ,2 0705207 122066&20722B , 
.2 101 52 11272 12452 1 345B , 2 14 70 21 641 2 20 1622 117 B, 221 55 22 2 32 22274223678, 
.2x5612245722222221368,221542217122215222378,222362223322200221538, 
•22121x203721743216358,21521214112 132 021213B, 2113 12 11 06 21075211078 
.  / 

DATA  ( ( ( 1C LON ( I , 3 , K) , 1=1, lo) ,J=6,6) ,K=3,3 )  / 

.2223 2221122204722020a, 2 167321 6172 1 53021 4468, 2 14122 140021451 21437B, 
.214162134221263211728,210552071220623205776,205642055220543205348, 
.2x20 1212412124521240a, 212402125321254213028, 213302135021413215038, 
.215o 12164421751220648, 222072230622420225348, 225672260722723227O0B, 
•233052330723256232028 ,2312223 126231 57 23 1668,23162 23 13223 114 23 1156, 
•23076230452275522705b ,220542257522455223268,2223222 13422061 22 0426 
./ 

DA 1a  ( ( ( 1C LON ( I, J, A), 1=1, 16), J=1 ,1 1 »K=4,4 )  / 
.17777177?71777717777o,17777l777717777177776,177771777717777177778, 
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.177771777717777177776,177771777717777177778,177771777717777177778, 
. 177771 7777 17777177776, 17777 177771777717777 B, 17777 1777717777177778, 
.  17 7?71 7 777 17777177776, 17777 1777717777 17777b, 177771777717777 17777b, 
. 1777 717777 17777177776, 1777 71777717777177778,177771777717777177776, 
.1777 717777 17777177 77o, 17777 17 7771 777717777b, 17777177771777717777B 
./ 

0A1A  ( I ( IC LON ( I,J,K) , 1=1, lb) , J-2,2 ) »K=4»4 )  / 
.2C0762Gi>74200732007lB,2011720131201452ai67B,2Q157202102021520172B, 
. 2012 12010220133*0 172b  ,20 12120040200 10 17 7536,20027 2004720055201 02B , 
•20220202642026520132b , 20i 7620 17720 i7 620 16 6b, 2 01 55201 4720 130201 07 b , 
. 201372017220241203 l*b, 2033220 377204h020502B, 20517205172045020402b, 
.202732020320 107200 53b, 200 1U200252005220112B, 2014120 13720 156202 11B, 
.2020620170201322011 lb , 20054200  v*2 003620 05  lb  ,200602006020022200256 
./ 

OAIA  (  ((lCLUN(I,J,K),l=l,lb),  J=3,3),K--4,4)  / 

•  20*.. 62021620*07202 1*6 ,2027220 3 122031220304b, 20341 2041 62042 1203 526, 
.2027 4*023420233*0*7*6, 202202015o200632005 38, 201012010320127201436, 
.203672043220457203256, 20373203542034720336B, 203152027620204202 136, 
. 2027720^5120437205376, 20637207152077721060b, 21 13021 1402106520747B, 
.  20626*046720361203048  ,  2023320  2352027520337B ,  2041520460205 1420532B, 
.20^,7  52042520336203056, 20251 20  2352021320217  B,  2020720 17320 155  20150B 


./ 

OAIA  C  U1C10N(1,J,K),1  =  1,16),J=4,4)»K=4,4)  / 

. 2037  3203722036620372b , 20400  20450204422042  2B , 20505205602055120500B , 
.204072044020462203736,203062023520146201366,201512015320153201746, 
. 2051 020531 2055420 553B, 2056620 55420540205146, 205042045020356204166, 
. 20V7  420565206642077 16, 2113121 27121355214446, 2151221 50521427213036 , 
. 21157210212066720t»0^b, 205412055420600206203, 20655207412101321026B, 
.207612064320565205236,204622042620405203636,203472033420323203116 
./ 


DATA  ( ( ( ICLON( I,J,K),l=l,18), J— 5 ,5 ) »K=4*4 )  / 
.212312125121254212778,213172131121247212448,212652127221275212636, 
. 21237211462102520707b, 20o04204672042020335b,20272202562026420257B, 
. 206722074721025210746, 2112421 1372 H2621141B, 2116621 1762123321262b, 
.2 12142 12472133621453b, 215752172622107223266, 22445225032247522417B, 
•22452223262216622130b ,22075220672204422074b, 2210422 14122 14522 177B , 

•  22204221542213022061b  ,2176721660215332145  46,2  137221321212(>421251S 

./ 

DATA  ( ( ( ICLON ( 1 , J ,K ) ,l-i,lb),J=6,6) ,K=4,4 )  / 

•  22263222432222322161b ,221 1522  0342 17o621 754B»2 17572 17442172521665b , 
.21576214742 14042 126 5b, 211^,52 12322 07402063 76, 20540204742045420465b, 
•21132211462120721 2430 , 2132421 4002 144421 5 14o ,2 15512160721633216538, 
.217342200422067221560,222772244322600226768,227722305223126231438, 

•  2331 723267232462323*6  ,2321 123434232602326  IB ,  2  32672326423  2  56232  50B , 

•  2326  4.232332321123131b  ,2305323017 22742220426,2254122451 223  oo223 1?  B 

./ 

DATA  ll(ICMONCI,J,KI, 1=1,16), J=l,l),K=l,l)  / 

•  205232061320660207 14b ,2074020  7752 103421077  b, 21207212302132621576b , 
.**015**12222301*23518,222062200421724216133,216352160621516213406, 

•  20 71 6205772 0V7  220401 B, 2033217 71 116775160308, 1 551315 357152o5 15226 6 , 

•  15 15 115054 1467*1<»513B ,14402 14*66 1<*2 13 141758,  142241424514365146448, 
.1546516020 1640116721b, 171 751753320156205508, 2 10632137 121o31 216638, 
.2 175622054221 1 122231b, 22223 221062 17432 1604B, 2 14072 120621040206558 
./ 

DaTA  ( UlCM0N(l,J,K),l=l,lb),J=4,2) ,K=1,1)  f 
.  2051  o20o052064020703o,207522075<»2 10002 1064b,  2 11 7021 34521437215368  , 
.* 1745*2121222 10*22356, *21u32*02021 732216528, 2163021573214/6213 173, 
. 20763206162045 I2033ob, 202161767717003160458, 15543 15374153041522 18, 
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. 1515715053 14627144048, 1430414 16414136140538,  14101 1416414343 1463  IB , 
.154741600316317166068,  172351756  220165204728,210112132221552216708, 
.2x7  5 ‘,2/025  22 116221  o5b  ,221322204221727  21  5703  *213752 1224207  6520b  143 
./ 

DA I A  ( ( ( ICMGNI 1 , J ,K ) , 1=1 » 16 ) » J=3 1 3 ) » K=1 ♦ 1 )  / 

.2062 120561 2060520643b, 207 302101 121 1222 1177B, 2 12432 136021 577 220026, 
.22015/1764220162 17738 ,2171 72  1  6412  1  64721622b  *216232 155 2 21 435213 2 lb , 
.207072056620372202018 , 17730 174231 6664 lb 166 B» 156651546215332 152268 , 
.151401501614520143218,142041402013744137338,140261417214411147648, 
. 1545315750 16 12416447b, 1704017 5132016020433B, 207072114421372215348, 
.216532200622133220506,220352175421665215518,214272127521042207668 
./ 

DATA  (01 ICMONt I , J , K ) , 1-1, 18), J-4, 4) , K=1 , 1 )  / 

.2060 3/053520565/06448 ,207642105521137211248,212512137421644220348 , 
.221032177122041220158,217312162121603216228,216062147321414212758, 
.2064 12046320240177308, 174 74171471 66121623 58, 1577015573154/5153028, 
.151511500214452142748,1407513714136411367 28, 13772 142101444415041B, 
.154061555216045164328, 1704017445200322034 18, 206 152 105421233213508, 
.215/721644/1704217518,21706216642 1 62 22 1 51 4B, 2 14 172 12602 1063 2 10358 
./ 

DATA  ( ( ( ICMONt 1 ,J,K) , 1=1, 18 ) »  J=5»  5 ) , K=1 ,1 )  / 

.20477205 1620545205678, 20631 210032 1 10021241 B,214432154221b60/1747B, 

•  220622/ 1302 177 12 16618 ,216502 1606214/62135  58,212742116321027206326, 
.206/3/036l20105176l5b, 17270 1705116633 164228, 16202 16025 15620 154368, 
• 152/614737 1434414/446 , 142 15 1415 11 57631370 IB, 137251411514416146658 , 

•  1523315565  16136164/36, 1665117/1517 577201328, 203542053520667 207628  , 
./ 1 12 1/1/07/ 121 1213 l6b,/1345 21 82321 31 12122/8, 2 113421 07020760207 508 
./ 

DATA  1 ( ( ICMONt I,J,K),1-1,18), J=6 ,6 ) ,K=1 , 1 )  / 

.2030020156/0114/01658 ,20446/0603207402107  26 ,2115121227/1366  212628 , 
.21631/167221636216108,215342143321362212748,211772107620723205348, 
.  204742Q23/17747174'l58, 17262  17  07516657164328,  16171 1576715543  15363B  , 
.151711475514603145108,14467 1445614437144578,1456014660x5010152418, 
.1544115703 16215166008, 171011734617535177558, 201542024220265 20407B, 
. 205172061220650207 1/6, 2U722207302074220725B,20640206112056620536B 
./ 

DATA  ( ( ( ICMONt 1 , J , A) , 1=1, lb) ,0=1,1) ,K=2,2 )  / 

. 207062062020701210/io,  211  32212072130721413d,  21‘.3O2l462214  5l21504B, 
. 21504/157621601216048 ,2x5 3621 547215332156  IB, 21d072163521d432157 18, 
.2127621124210042134/8,207322004616746160068, 1530514664X4434145368, 
.14516144251434414/356,1417514115140661400  IB, 141201435614422 147348, 
. 1525215601 162 12 167048,17/13 17 4632 005 1204038, 210522 144321 773 22203B, 
. 2222 2222l72221/2//768,/22 712/201220422166 7B, 2153721402212 142104^8 
.✓ 

OaTA  ( ( ( ICMONt I, J, K), 1=1, 18), 0=2 ,2), K =2, 2)  / 

. 20725/ 067420755/10346, 2111421 1652126321454b, 2157721553216012 1605B, 
.215652151 2/150121 5/5d, 2 L3262 153021 53421 5648, 2 161421632216 1221476B , 
.21/6021062207602 12778, 20641 17702167161e075B, 15331 1467514723 1463 18, 
.1455614415142771414dB,141151405414012137758,141221433414460147408, 
.15216X5621 161621660  IB, 171 12i7 456200 14203658, 20777 2143021 7 53 221428, 
.222132/23022/612/2458 ,2227422175/2075217158,2154421 372212 16/106  73 
./ 

DATA  ( ( ( ICMONt I,0,K),I=l,ld)«J=3,3)«K=2,2)  / 

. 20770*071320764210518, 21135/12252 13522151 76,2164521707*2 045220338, 
.217/7/ 156 1/1476/143 lo ,2147/21 574/1 61421 65 18, 2 1653 2 16 17/15 25214 16 8, 
.2111220724/0557211708,20327X742616642161538,154141502715067147728, 
.1465/ 14452 14272 141/06, 14041 13 77413750137678, 1412314306 1452014750B, 
. 15 1671561 1 161/21 637 2B, 16653 17 2751 774420344b, 207332 1344/le 56 220 17B, 


•2205 2221 24222562 2 237 6,22 16022 1302202721700b, 2 154C2135521 247211736 

./ 

OaTa  ( ( ( lCMONi  I , J ,K) , 1=1, 16 ) »  3=4,4) »K=2«2 )  / 

.2 101 320757 20770210518, 21213213262 144 121 5256,216172173622070221456* 
.220302162421557214556,214242152321627216306,216152154121442213046, 
. 207772050720232207556, 20U31173061660616 1606, 155161516015230150716, 
• 1472ol4463 14170 140436 , 14010137311 3740137566, 140661423414471151 126 , 
.151641560616043162166,165321712317546202176,205752106121426216276, 
. 21744217 342215722206b, 2213022054217732164o6, 215032134421263212 17B 
./ 

UAlA  ( ( ( ICHONi  1,J,K.)«1=1,18),3=5,5)  ,  K=2 ,2  )  / 
.210172103421074210718,211022114421206214036,215562176222033220626, 
.2201.72173721672215608,215122140021371213346,212612115421051206766, 
.2072020374201 12175666, 17^541702016527 162766, 16021156051543 115256B, 
• 1505 1 14554143 14 142 1j6 , 141651421514221142206, 142371434714532147778 , 
•1515515317 1600216245b, 165021706417433 1772 OB ,202 17 2 037520 546207 73B , 
. 21136^126221324214336, 2147721 503214242 1304B, 2 12522 12432124121257B 
./ 

DATA  (tllCMQN(I,J,K|,I=i,iai,J=6,6>,K=2,2>  / 

. 204732054520541206056, 20707207712 104521204b, 213172 143521571216536, 
.217052164321553214766,214432136121274212068,210562072620560203566, 
.205332026420044176036,1731 717047166 17 1636  IB, 16 1261565515420152136, 
.150751474714624145410, 145121447714527146236, 150101515315272 154666, 
.155061515316227165226, 167641722217446176246,177272014720303203706, 
.205122060420647207256,20744207612101221 0238,210162101121021210476 
./ 

DATA  U(lCMON(l,J,lO,I=l,18),J=l,l),K=3,3)  / 

. 21273216312145221570b, 21701217622 177321770B, 2 1763220 142203321767B, 
.2 172 6217 20217 17 2 16736, 2164621 6452 16 102 156 4b, 2 15742 16372 16 33 21 534b , 
.21 136^067720473202068, 175361711016373156476, 152561500 114552 14436B, 

•  1434014141 137  2513  7*»4b  ,  13742 1370613717 137736 , 1 413  5 14  374 1*,  7  01 152206, 
.1540315734l62761o733b, 1722717451 1773720265B, 206332122121621220308, 
.221552222322 L7322237o, 2225522 17622076217216,21576214572133321200b 
./ 

OATA  ( ( ( ICMQN( 1 • J,K) , 1=1, 16 ) , J=2, 2 ) »K=3  ,3 )  / 

• 21304213342144 121551b, 216 5321 71521 755 220068, 2206122 06 522116 221 17B, 

•  2^:07  5217  54  2  lo57  21 65  73, 21664  21  o5021601 21 5476,215352161721 577  214618, 
.2106 12056120374202266, 17404170211631 515652B, 152361500214627 145366, 
. 144001423314007 13766b , 137  57 13  7411375414027b, 141o3 1436214661 152 156, 
. 15401157241630416675b, 17107 173651765720 174b, 2060521244216 16 22023B, 
.22 131222542226G2226.>b,  226 162226322 1322 176  56, 2 15522 14152 13  0021 1666 
./ 

OATA  ( ( ( ICMQN( 1 , 3, K) « 1=1, 16 1 , J=3,3) , K=3 ,3 )  / 

. 2130521326214302 1547B, 216422171222001220508, 220632211222200 22201B, 
.22 1072176121621216416,21642215322162321564B, 2 15762162 121547 214128, 
.2067 42036020104203 13a, 173251667616275 156576, 152441501514730 146078, 
•1450014322 14013 13723B , 137011367513737 140616 , 141701441414702 152276 , 
.15346157341624016474a, 1665 7 17 155 1752720 1266, 204522106221464217406, 
.22 124^225222327223016, 22272221652207 121727 3, 215532141321 340 21245B 
./ 

DATA  H  (  ICMON(  1,3,10,  1  =  1,  18),  3=4,4)  ,K=3,3  )  / 

.21277,113552142721 3366 ,216  7421  7732204122007bt  2202722 1 1722204222356  , 
.22 1352176^^1653 2 16236,216032 156 121543215268 ,21533215342144121255b, 
. 20531*01 57 1761720031a, 17 171 1656ol 6231 15724B, 1536515133 15073 14746B, 
.  W546 14340 140*»6 13  7226 , 1363013633137301407 18 , 1424214471 147  13151748, 
.1537 715713 16126102746, lo503 1703617410200206, 204232074721323 21620B, 
. 22036222452 23o0 2 22  43a, 22 la 522 12122003217026,2 15632 144121 342213 108 
./ 


0A1A  (  (  (  ICMONt  I,  J,K.l,  1*1,  18),  J=5,5)  ,K=3,3  )  / 

.2  12232 1320214502144  36  ,  2l45G2i:>G  121 542216346, 2176*2204622076  220526, 
.220142 17462 165421o0ob, 214762142121325212446, 212302 116721 046207026, 
.  2O3332C010 1747317  175)0,16632  16  355 160t>6 15704b,  13347 1535415 127  14742B, 
.14546143671421314111b, 1412214 14014213 143076 , 1 4367 14533 14751 151 54B , 
.1532315631 160*4162576 , 16621170301 7322176363, 20 14 72042220 737211 71 B, 
.2141 5215762170421741b, 21651 215372 1477213656,213132132421330213378 
./ 

DATA  miCM0Nll,J,M,l  =  l,lbl,J  =  O.6>,K=3,3)  / 

.20634207262072721 1116, 2116121 17321252213556, 21412214762157021601b, 
•2162 12154521477214116,21350213032 122 421 1236, 2 10 1120654204762027 IB , 
•2026520003 1753517^746, 17037 1660216374 16 1626, 15750 155 54153 55 15 147b, 
.1477 21*633 14553145 156,14520 14533 1461 7 147056, 15045 1523515405 156 lib, 
.156431o07l 1633516575b, 170 16 1721417413175746, 17743201022025420426b, 
.2U6062U70020741210006, 21032 2105021052210616, 210742107221 10021 1166 
./ 

DATA  ( ( I ICMONt 1,J,K),1-1,  16),J=1,1) ,K=4,4)  / 

•  21511216052172  72201o6 ,220562203421 7 57 217G  76 , 216432162421605215516, 
. 2156l21ol02165121 olOa, 2104221 O342160121 553B, 2 15272153 1^1457 21417B, 

•  21011205o72045o200256 , 1747417 03*1631115550&,  152001463714450142  77B  , 
.14220141161374213620b, 135721361 1137 131402 16, 14176 1443*14742153066, 
.155621611416444170226, 17245 174611766020077b, 203212061021 100214 156, 

•  2172322100222562^3446 ,22374223422230522 1616,220242 161221467  2132  IB 

.✓ 

OATA  (  M1CM0N(  1,  J,K),  1=1,  id  »  ,  J=2, 2),  K=4, 4)  / 

.2 15122 16012172422014o, 220 1222 012220032 16566, 2 17202167321671216438, 
.216202157421551215566,216122165021621215756,215602154221430213546, 

•  2072  7<l05  12203652007 16 , 1742216  7711632215570  6,  152011465314456  143766, 
• 1431014141 1377713642b , lab  17 1365513735 1404 4&, 14211 1446014773 153016 , 
•1555416062 16426167346 , 171641733317551 17751 8 »  202462056221 055214046 , 

•  2 1.67  6220  57  222  2222  3  266, 223452  2a3o2  2247  221166, 2 17742 162021 435  2 133  IB 

./ 

DATA  UtICMUNCl,JfK),l=l,l8),J=3,3l,K=4,4»  / 

. 215132 156621666^177 5b, 2177021 776220l62201ab, 2 174421737217622 17258, 
.216332160621516215206,215762164221607215706,215372145121370212378, 

•  2061 02063020125202536, 1737 1 16  74716317156208, 152271473514557144  7  3B , 
.  14347  1 *21314062 aj7G*6,  a3577  13o0213  707 140356,  1*21314*52 14741 1527&8, 
. 1554 516053 loJ47 106078, 1673517 141 17420177236, 201672046221U 142 1357B, 
.216502205322200222728,223152226222164220436,217342157221456213228 
./ 

DATA  1 ( 1 ICMONl I, J,A) ,1*1, 18) , J=4,4) ,K=4,4)  / 

•  2 14 1 3 21 5&42 l6o5 2 20146 ,221 2522 1212  205722007  B, 2 175 122 00 121 7 7 72 175 5B , 
.6 16146 15332152 56 15G60, 6 152221 6012 157021 5106, 213722134021 24o21147B, 
.i0504co!4 1176251 765o6,172 77 16657 16273 1570 56,15300 15005 14674 145448, 
. 1437o14222 1405*137206, 1260713571 10703140356, 14225 1444614701 152318, 
.155371000016270104060,160151704417313176216,2012520*0720714212556, 
.2 15o*220 112214322 2328, 2225222 22222 1072201GO, 2 170 12 156 5214402 1340B 

.  / 

UAlA  ( J I iCMGNCI, J,K», 1*1, Lb), J=5,5I ,K=4,*J  / 

.  2  lAo  12 15352 156 16  160*0,*.  16  262 10432 16  52  21  725o,  21 762220  132200221760B, 
. 2*00321 7702 173 32 1 660b, 615 75 2 152*2 14452 1370B,2 13 132 126 72 12 2721 1646, 
.2 121 1207 742050720 1340, 175101707416506161256,155241515314567143356, 
. 14073 1404313750 136 7 16, 13654 107321 3743 1407 3B, 14060 142 56 14476 1500 18, 
. 152o015576160061ol ?2o, 10407 lo5o 7 1702 5 1751 56, 175562007420333206426, 
.2 104 161302214642 10006,2 1007^163 12 1543 21 5456, 2 152721515215 12215218 
./ 

0 ATA  ( ( 1  1C MON ( 1 , 0 , K I , 1*1, lb  1 ,0*0,61 ,K *4 ,41  / 

.21  i Of  211652126  72  13  530,613  7*2137321413214623,215122152  7215  32215566, 
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mmSaA am 
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•215742155221533215136,214332134621260211726,211152102220724206326, 
.205342032720110176566*17345 1674716451 16 146B,16U041542315207 150336, 
.1466614546144441437 5b *14423 14372 14423 1451 46*146101476615164154146, 
. 155661602316205164436, 166371702 717221 17410B, 1756Q177542012520257B, 
. 20^2120561 2066320? 60B, 2106221 16021202212246, 2 127721 322213262136  lb 
./ 

DATA  ( ( ( 1CN0N l l,J,K),l=l,16),J=l,l)«K=l,l)  / 

. 1777 717777 1777 7177776, 17 777 17 77 717 77 71777 76*1777717777 17 777 17777B, 
.1777 717777 17777177776, 17777177771777 717777B, 177771777717777 17777B, 
.177771777717777177776,177771777717777177776,177771777717777177776, 
.1777717777 1777717777b, 177771777717777 17777a, 177771777717777177776, 
.177771777717777177776,177771777717777177776,177771777717777177776, 
.177771777717777177776,177771777717777177776,177771777717777 177776 
.✓ 

DAl A  tl(ICN0N(l,J,K),l=l,18),J=2,2) ,K=1,1)  / 

•  20215^01742017120^.226 ,2021420167202172026  56,2030720246203 13203326, 

•  2030 72025720176200 5oS  *  17774177221 7d0ol750  26, 175361760417 637 177068 , 
.17t>36l7710 17726177628,200152004620065200746,20115201242013120126B, 
.20 1U72005720036201 51b, 201 2720 11320 135 20 1346, 20062200 5420047 177666, 
.177232000220023200506,200512010720074200136, 177451774217677177118, 
. 176601767 1 17760200378,200332005120063200378,200361777720061201436 
.✓ 

DATA  miCN0N(l,J,K),l=l,13>,J=3,3l,K=l,ll  / 
.204062041520405204306,204322045020470205206,20554205342056520567b, 
.206052047320301202048,201201777517707176336,176331772417673177046, 
. 177021772317740177708, 20054201412022320245B,2Q255202602025520242B, 
. 20203201342014020 1516, 201132007720124201566, 20143201062006617772B, 
.17737200 742020020221b, 202 43^023420170200526, 177771774217707176676, 
.1767 31773120030200476, 2010520 12320155201606, 20153201722027120345B 
./ 

DATA  ( ( ( ICNON( 1,J,K),I=1, 18), J=4,4) »  K=1 » 1 )  / 

.2061 1206132060320634b, 20647206672071020750B,21003207532100421006B, 
• 40 70 2205672046 12G334B ,2027420 1372003620007B* 177762000120000200078 , 
. 1776520002200 16200558, 2014620 24120336204008, 20414204102040120342B, 
•2027 5202242020720 167B ,201342013520167201608,202022017520132200736, 
.201052025020331203346,203532034420173201048,200522004220014177746, 

•  177102003720113201616, 2022 0202 5 12 02 70203 106, 2 03332 035020432 20536B 

./ 

DATA  (((ICN0N(l,J,M,I=l,le),J=5,5),K  =  l,l)  / 

.2 142021451 21450,:  16016,21474214712 14432144 16, 2  14602 147621 507214 176, 
. 2130 U1 1752107220747b, 4065220637206112057  IB, 205452047120471 204o2B, 
.2041 1204052041320414b, 204312047320504 20 5006, 204b52045220460204 706, 
■20 50120*1420 353203 2 18, 40304202702025 12026 1 6, 203072034420452205406 , 
.2041 12046 120542205258 ,204642047420454204456 ,204432045320456204556 , 
•2Q5302056720c>122G65Gb»2073021G032l05721123B,21l32211762151121377B 
./ 

DATA  (  (  ( 1C  NON  (  1  ,  J  »  K. )  ,  1=  1,  lb  ),J=6,6)  ,  KS1 , 1  t  / 
.220712215522205221066,220622200022003216676,217032173121732216576, 
.2157 1214722143221375b, 2134221 304212b 1212b 26, 2 12672 127 12 12452 12236, 
.207^5^075420767207506,207332070520665206248,205762054420510204646, 

•  204%  7204222041 4204 156 ,204152042620444204348,204502050120  553206118 , 
•<.05402055320567206338  ,207 202073420 751 2077 bb , 2  102421 10121207212368, 
.2 12572 12732 13262 13516, 214 12214562 1520216026,21716217552200722042B 
./ 

0A1A  ( ( ( ICNQN t 1,J,K), 1-1,16) ,3=1, II »K  =2  ,2 )  / 

. 17777l7777i777717777o,17777l77771777717777B, 177771 /7771777717777b, 
.1 #77 71 77 771 77771 77773, 17777 177771 77771 7777b, 177771777717777 177776, 
.17  77  7177771  777  7*777/0,1  /  777  i.7  77717777 17  7778, 17  777 1777717777  177  776, 
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. 177771777717777 17777b, 17777 1777717777 1777 7b, 17777 17777177 7? 17777B, 
.17 77717777 177771 777 78, 17777 177771 777717777b, 17777 1777717777 17777B, 
. 177771777717777177770, 17777 1777717777 17777B, 17777 17777177 7717777B 
./ 

DATA  ( ( ( 1CN0N ( 1 , J , K ) , 1=1, 10 ) , J=2,2) ,K=2,2 1  / 

.2021020214202052024. IB, 202362021020 17520205B, 2 022 12025620223202 328 , 

•  202072020520131201066 ,177671770717661 17637  b, 1766317702177 13 177  51 B , 
.  17677177^177762C036b  ,2010220 12420 116201 15B, 20104200672020720 175B, 
.20 1532010420101201 13b, 200522006 720070200136, 200142002220016177528, 
.1 773120007 20062200738,2010020061200 1717763B, 177401773017727177238, 
. 1771 51 7 7 461773 1200236 ,20060201002007 120 070B, 200552006120076201 20B 
./ 

DATA  ( ( ( ICNQN( 1 • J,K) , 1=1, 18 ) , J-3,3 ) *K=2 ,2 )  / 

•  2040 02 043 42044520^,2 78  ,2046 12043  7204602043  5b,  204352042020427 20376B , 
. 2O363203262023220166B, 201252003117764177308, 17755177221770617763B, 
.1776520007 20045^01166, 201642024220275203078,202472020620417203648, 
.20274201472006320137B,20O7320103200e720033B,20012200172001617755B, 
.177702010520234202358,202212012520025200018, 177531774117715176758, 
. 1770617 7512005620 1238,201 5220203202 15202158, 202162023220256203218 
./ 

DATA  (  (  (  ICNONi  1 ,  J  ,M  ,  1=1,  18  )  ,  J-4, 4 )  •  K-2 ,2  )  / 
.206142064520654206758,206642066320631206468,206762065520634206138, 

•  2053 12045520412203178  ,2022520 16 12007  02  0046  8,  2  00^,52004320037  2007 18 , 
.201342013320136202008,202602035020415204538,204412041220547205048, 
. 203552023020131201258, 2013020 121201 1120103B, 200652005320061200758, 
. 200452026620364203<»78, 202762 0 17320146201148 ,200632003220011 177678  , 

•  177752003620154^02458,20303203362036  7205758, 2040520426204502051 18 

./ 

DATA  ( ( ( ICNON( 1,J,K),1=1,16I, J=5, 5 ) ,K=2 ,2 )  / 

.2142 7214432 143021H416, 2151521 50021413214438, 21427213762137521333B, 

•  212562117721104210  lib, 207 27 20 7 00206 5620642 8, 206462063720642206458 , 
. 2055 7205432054520565B,205702062120o552065 08, 2063720633206 1520570B, 
.^0526204642036220 3468, 20327^0^.732025620251 B, 2025220254203232046  IB, 
. 20  506205542056120543d,  20557205552054120  540B,205-,12053o  20527205418, 
.205602062020663207178,207702104121077211378,211662122721301213528 
./ 

DATA  I (I1CN0N(1,J,K), 1=1,18), J=o,6),K=2, 2)  / 

.220 532.-063 22066220348, 2^05 722033220032 17168, 2  17 102 172521 7 40216668, 
•2162 12154421473214508 t21455214072137621377B, 2 1371 2 13602133 12131 58, 
. 21x342106121056210318,21045210242077620753  8,207 57  20  7 1320o27 206138, 
.206. 62057020551205268.20516205152047120455B, 205 132054120560206128, 
.2065  520724207652 101  lb,  <.10  522 10642  106721 1008, 2  112721 16421221213 118, 
.2 1354213762142321 450b, 214o321 50721 54121 566 B, 2 16652 17 13217 5421765B 
./ 

DATA  ( ( ( 1CNUN ( l,J,K),i=l, 18) ,J=1,1 ) ,K=3 ,3 )  / 
.177771777717777177778,177771777717777177778,177771777717777177778, 
.1777  7  x7,771777717777b, 17 777 1777 7 1777 7 1777 7 8, 1 7777 1 7777 17 777 17777B, 
.1777717777 17777177778, l 1777 17 777 1777717777b, 17777 177 77 177 77 17777 6, 
. 1777 7177771777717777b, 177771 77771 77771 7777d, 177771777717777 17777B, 
. 1777717777 1777717777B, 17777 1777717777 17777 8, 17777 17777 17777 177778, 
.1777 7 17777 1717717? ??b , 17777 177771 77771 77778, 177771 777717777177778 
.✓ 

DATA  ( ( ( 1CN0N ( 1,J,K),1  =  1, 16 1,5=2, 2 ) , K  =3 ,3 )  / 

.202412023520235202308 ,202 32 202 12^01642015 7 8, 20c 10 202012020b 202 34b, 
•202472025220^40202258 ,202  2520 13 12007720055  B ,  200^  17751 17720 17735B , 

■  2oO 342002 52 005 2 200  748 , 201 1020 14420 1 o720<.2 68 ,20235201 6320236  202258  , 
.20 17 320l562010420051o, 20023200162000 7 17772 8, 17762 1776417770177738, 

■  17  75420032200602010X6  ,<.0121201332013  5200758,200302001420024200278, 


•  2002 2200 12 2 0042 20 13 lb  *201322 012 120 12 7101216,20 11 520 10420 113 201 266 

./ 

OATA  ( ( ( 1CNON1 i,J,A),I=l,18), J=3»  3 ) ,K=3 ,3 )  / 

.204372044420443204248  *204142040120367  203538, 20402 20 35 5 20 366 20365B, 

•  20400204142036420365b *2035420251201542011  IB *2 012420053200 15200 14B* 
.200 172010320 123201468,202302032220372204508, 20474204322047220416b, 
. 203502027220144201156 *200622006120 03220 005B* 1777017772200 14200 27 B  * 

•  20000^016720430202566 *£02 7720  26 32025 120203B  *20  1  23  2  0  1  0  1  20  0  6  7  200  54B* 
.200? 1201032016520242b, 203022030 220305 2030 66,203012030020304203178 
./ 

OAl A  (  (  (  1CN0NC  1,0,10*1=1, lb)  *0=4,4)  ,K=3,3  )  / 
.206?320bo7206722066lB, 20640206142056720605B, 206052060520576205758, 
• 2 05o52 05542 05 2620500a ,204532034220271202158,201762014320133201 51 B , 
•2021 72022 12 02b 120 2 7 18 , 203672045 120 52 720 57 OB ,20642 20 660206 30205 5 7B, 
.204/52037720265201708,201462012120075200528,200452005420113201028, 
.201642031720415204248,204402041020321203068,204412020220171201748, 
.2021 22025320325203 70b, 20424204542047 520 50 08, 204732047220474 204 76B 
./ 

DATA  l((ICN0N(I,J,K.),i=l,18),J=5,5),K=3,3>  / 

.2 14562145721433214478, 2 I4e22l4l 72 1 364213478, 2 1335213 1621303 21262B, 
. 21232212052115121 107o,21044210142077320754B, 2073420723207 10207008, 

•  206c.42 06422065320 660b, 207 2220  75420755^.077  06,20772207752077120743B, 
. 2065 320567205 2 120H448, 20407 2036420341 2031 58, 203 11 202572030620407B, 
. 2057  72063420654206438 , 2064620642206342063  38 , 2064520&6520 7 1420740B , 
.207352077621020Z1035B, 2110321 1372 116121 1738, 2 12 102 121521234212608 
./ 

OAl A  ( ( ( iCNUN ( 1  ,  J  ,M , 1=1, 18) , J  =  b*  6 ) ,K=3»3 )  / 

.2206  12205422032217548 ,2<-O0222 01021 761217448, 217212166621660215658  , 
.2 1 5562 1 5072 1452 2 14058, 21423 21 4102 13 5521 33 7B, 2 13262 13 1721 2 772 126 48, 
.21240211722114421 1268,211 1621u7521060210468, 2 10202100 520764207428, 
. 20721207022065320620b ,20566205262 0510204658 ,204562051420556206178 , 
. 207342076521005210158, 210^02104121061210768, 2 113021 1602123321277B, 
.213462137421410214258,214202143021453214738,215072157321613216258 
./ 

OAl A  ( ( ( 1C NON (1,J,K), 1=1, 18), 0=1,1) ,K  =4,4 )  / 

.1777 717777 17777 17777b, 17777 1777717777177776, 17777 1777717777 17777B, 
. 1 17 1 71717717777 177778, 17777177771 777717777B, 177771777717777177778, 
.17777177771/777177776,177771777717777177778,177771777717777177778, 
.1777 71777717777 17777b, 17777 177771 7777 177778, 17777 17777177 77177778, 
. 1777717777 1777717777B, 177 77 17777 17777177778, 177771777717777177778, 
.177771777717777177778,177771777717777177778,177771777717777177778 
./ 

OATA  ( ( ( 1CN0N( 1,0, K), 1=1, 1B),J=2,2) ,K=4,4)  / 

.2023 3202332023220 2318, 202002016620 17320 1608, 2016620 lo32020320223B, 
.20^372025320244201748,201 /7 20 14620 110 2007 OB, 2005420036200 33200 34B, 

•  200562006320100201208  , 2014620  174202 142023  IB  ,202 1620202201462020^,8  , 
•2u 17 1201432012 120 106b, 20 10320053200^1 20 025 B , 200242001 220007200 22B , 
. 26034260432007520 1 12B, 20 1 1620 12720 14120 12 5 8,20 1 1320 100200©2 200628, 
. 2006620101201352015 18, 20157 201672 017520 17  IB, 20167201612015120164B 
.✓ 

UAIA  ( ( ( ICNONt I, J,K) , 1=1, lb) ,0=3,3) ,K=4,4)  / 

,204o7204©62045 1204238, 20401203622 03442035 5 8, 2036720361 203 70204138, 
.2042 52042320400203648,203742035120266202108,202122020120147201028, 
. 2014b201o22020720225B,^030120356204l 120446b, 204402041220405203678, 
.2034 62026620224 iGl 718, 201 3520 1242 01 07200648, 2 004620036200 33200 3 78 , 
.201 t 1201 75 £0£ 1720242©, 2027220275202762026 58, 2024020 17720 151201408, 
. 2015 l£0£07£0266203£5B, £03472037020374203738, 20374203672036520370b 
./ 
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OAlA  UIICNON(  1=1,13)  ,  J=*,4)  ,K=4,4)  / 

.20 7222G7 1220664*06408, *Goii  cGoG12  0566205548, 205452055 120551 205old, 

•  205452051120535205166  ,  205412050620411 20 334B, 2 034720 34320 300 202 *3B  , 
•c023 720*74203 152036*6  ,20*552053220567206218,  20a2*2Col720537  20502B  » 
.20*4 5*0*1620354203226, 20271*02*320 163201278, 20 11220 11220 12*2G143B, 

•  2 022 720 30 12036 120 3676 , 2040 5 20*1 32 04 1 3203? 3B , 20344203142026*202378 t 
•20*5 52 03332041 2204603, *0520205452 06652056 48,206642057120562205608 
./ 

OAlA  (  (  (  ICNONt  1  ,  J,K ) ,  1=1,  18),J=5,5  )  ,K.=4,4  )  / 

•  ^.14552145 1214352142*6 ,21375215412 131321305 B,  2126621 231 2i 21 1 2121aB , 
. 2122 52 12062116421 150o, 211 12210752105021030b, 20771207222070220 704B, 

•  20o5320666  207 1020747b , 210 10210322 10312 1036B ,2 10332 10042073320676b , 

•  206o42  06 1620535205008,^.0454*043020415  20407  6, 204062042220  44320476b, 
. *0655207032073*207648 ,2074620 7462 07 5220 767 B, 207762100321 0012 103 5B , 
.2104*2*1002112321 1546, 2122321 2462 1310 21331 B, 2 135321 353213652 1366B 
./ 

DATA  lUICN0N(I,J,K),I  =  l,lb),J=6,6),K=4,4)  / 

•  22  1032c07422037c20  106,22033220202176721756  8, 2  17 16*1657*16302 163 5b, 
.2*57 6215552152521524a, 215 03214522 14402142 2B, 2 137521334213 1021274B, 
.212c  7^.123 52 12362124GB  , *1232212302 1*1621 20 3B, 2 12 00 2117221144*11 05 B, 
. 210472*0072075220 7226, 20665 20 O412062420 605 6, 2 0577206 1220oa020o52B, 
.2103 02106321 121* 11406, 2il**cl 1532 116721210B, 2 12*12127321 3*621*1*B, 
. 214032 15362 1563cl6 136, *163521o5*2l66021o7 56,2170621 71721772*17576 
./ 


data  (((ICXUFF  U,J, 10,1  =  1, 16), 0=1, l),K=i,l)  / 

.0603606401 0711 7077776, 1055 1 114731*442 1342 7B, 14062 14737 15621 16237B, 
.16 533167 43 1722420014B, *1100213752 162021545B, 2222 12267723 34224176B, 
. *55012o06226325270658 ,2755530 22430442305746, 3U50o303633035630144B, 
.2745 126720*622  Lc6031o ,25660*5712255*0251436, 245272442*237  56231 7 6B , 

•  22 52 2*306 3 2*2*42 la*OB ,*0300 16  7401 60 27 15151 B, 1420013217 1*4*1 11773B  » 
.1127010626 103*3100356, 07*3607 10406730066566, 06622067 160666506703B 
./ 

OAlA  l ( ( ICXQFF  (1 ,J,K) ,1=1,16) ,0=2,2) ,A=1 ,1)  / 

. 060200636007045075536,1034711 257 121 5312646B, 1351 114 10515004156146, 
.1613016373 I67411726oo, 175022003 1201*32G432B, 20475213012232723107B , 
.2 5100256222636027054b, 27566300333021 130 3308 , 30-.413033630 171277338, 
. 2723**650*2617 1*37306, 25o37*56042544i25 1478, 245712440123 737231 578, 
.236642253422104211728,200271652315424144446,13564130101*267115746, 
.1076010275 1012607 3768, 071 350671 30 66420636 78, 063760630 506403064758 
./ 

DATA  ( ( ( lCxOFF  ( 1 , J,K. ) ,1  =  1, 16 > , 0=3 ,3 ) ,K=1 , 1 )  / 

•G*766u 5277 U566 1063558 ,07307 1023011 155117778,1262713133 13o70 1436 16 , 
.1521115516l6333lo734B, 17331 17577177732030 lo, 2 10142 170322723232648, 

•  cS 26526056*65? 127*466 ,2755030 166302  75304078,3  050 13 0452 302 65 2 77 72B , 
. 260*0*6773*655 1C6337B.C61 3326al52602025426B, 230 1624455240 13232318, 
.23*17226562*0602077x8, 17642 16561 154ol 145248, 13560 1272 112 130 114226, 
•I0o37 100830765307 5 116, 07 1730O64 0064060630 18, 063230605506 167063453 
./ 

DATA  tUICXOFF  (I  *  J  ,  K. )  ,1  =  1, 16),  J=4 ,4),K=i,l)  / 
.045240476605434055278,068640714707474108648,1101511502122*1131306, 
. 1377 5**36215506 16* 108, 166 761 7*1 7 1732517*6  IB, 210202136222057226 75B , 
.23 1**260*0 26533272*86, 276*330 152303 1*30*47 8, 3031 230* 1330201 27o266, 
.27445*724027114266366,264032627426357*60718,25310245052*24023*358, 
.23404**77*217 15c06*8d, 173 16 164651 5511 1*4658, 135441262411743 11241b, 
. 10 576103 1 70773 107 5 ?*B, 0752007 10206 24606*1 *6, 0607006U 11062 15064756 
./ 
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DATA  ( { ( ICXOFF  ( I  ,  J  )  , i  =  i ,  lb  ) ,  J=5,  5 )  ,K=1 , 1 )  / 

•  0457 604775G6^40056o38  *0637007041076031010  73, 1046111 13712050 12765B, 
.  13  30114407 1532216334B,170:>41?472203O521265B,  2 140621 25 12241623225B, 

•  253-302650126641  27231b  ,27522300203023 130377 B,  305033035030 27630135B  , 
. 3O141301523013730 103b, 300 1230052276072750 7B, 271672632125500 24705B, 
• 2470 52366 12260521 43b8,201 6 117 043 1561 2 15 00 IB ,141331337512651 12326B, 
.il65oil5l711l4510464B, 101 1U077140754707637B, 0752507510075730774GB 
./ 

DATA  ( ( ( ICXOFF  ( I «J,K) ,1=1, 16) «  J=6 , 6 ) , K=1 , 1)  / 

. 074o 7074320 765b 1U003B, 10563103001105111501B,1 1 65512453 13350133 77B, 
.14453151 55 16175167753, 172622012320 51 721 171B, 2 16332222722522230 16B, 
. 242452435124773254173, 260422643426o3727045B,27224273012742427330B, 
.273262733727313274003, 27335273342723427057B,26466257022515224537B, 
.2377 3231 15222562 1452b, 2076520 1201 7301 16 555b, 1606 11 5460 152 75 14o20B, 

•  1*»02  3 13400 12733 12427b ,  1204211  55 21141511 32 63,1111511 36 011  547 11 57 2B 

./ 

OAlA  (((ICXOFF  (l,J,lO,l=l,l3),J=l«l),K=2,2)  / 
.OB7750433705065057706, 065 1407 353103251 13543, 1204113760 1474415&54B, 
.1o27 11666317173176720, 20442 20733207622 11043, 2 1542222312306324136B, 
.2551 526366 27 122277 6^3, 305033 12 103 140531 55  IB, 3 16223 157631 463 31246b, 
.304242762226776266053 ,266o026 5232633 126 12 2B ,255362477424351 23422B • 
.  24 1G4C3 2 14 223 3421 4 32 8 ,20357 1702515565 1446  33 , 13422 1242 3 11640 107 53B , 
. 10 24oC7o2707 lo006673o ,0ol2705 541053 1505220B ,050140525705252055643 
./ 

data  ( ( C ICXOFF  (I, J*K), 1=1, 13), 0=2*2) ,K=2, 2 )  / 

. 035O1041760462505357B, 0632007 1750774611062 B, 1 175513 1 17 1406515065b , 

•  1 55 16160501 1>522 17 1663 , 17o^4^0230203772056 1B,2  11312  1  43  2  22  6  5  6  23  5  51B, 

•  2562 1265022 73433C 2358 ,30700312463 1 5363173  SB ,3201431 75031613312233, 
.3053027767 27 27727 137b, 27102266602650626 1450,254262473124261234633, 
.242502323122414213676,204451670015221141153,130341224711435111153, 
. 10310076520723306730O ,06167 05 54o0532 10505 BB ,051 11 05 10305322054 12B 
./ 

DATA  ( ( I ICXOFF  (I,J,K),1=1,18), J=3 ,3) »K=2  »  2 )  / 

.0417 1043760513105614B, 06405074201021411035B, 1203412766 136 12 14614B, 
• 155621635616644174423 ,201022042 12066121 05 OB ,2 146322544234 13 24261 B, 
.2b035266072751b30362B, 30771313233 151231547b, 32106320103154331164B, 
.3060 7302232761327354b, 27267270352652526476B, 256332507524336236 13b, 
.24356234272242521372b,20025lo  7431 5  5  3  2 1436  5B , l 33451240  511463 1 1003B , 
. 1006 10753 10707707 054B, 062 1605776054630523 33,053010525705366054128 
./ 

DATA  (((ICXOFF  (1,J,K),1=1,13),0=4,4) »K=2» 2 )  / 

.03  70 704222  04534052  32a, 06^,2407201 10204 11 162B,  1 1741 1265413654 14500B, 
.1534016022 16611 17341B, 2002 1203452065B21 16  lb, 2 17222263323554241 558, 
.25705266622747 1302653 ,310313136231 565320016 , 3 17573 16443 17 2731 Oo5B , 

•  30 57*00476 30 13 527650b, 2731527 241 2 6775 26 52 3 B  ,261402535324643241 123  , 
. 24425235742251221b21o, 17764166371 5573 14 545B, 135401243311407105203, 
.0  777 10746607303067678,063240606305533053348 ,05257  05237053  21 054753 
./ 

DATA  (((ICXOFF  (1,J,K) ,1  =  1, IB) ,J=5,5> ,K=2  ,2)  / 

. 0443  305071054450600  lb, 067330 742510252 11053B, 1 170112 50013422 14060B, 
.146441560516600174443,202112101521663227118,230712353024332250113, 
•2555526411273 1730070b ,30544310543 1232314163 ,315043 145631 251310173, 
.3067 1307043061630250b, 301 312777527 56027 2546, 27i002656*» 257 24 250076, 
.2400424056 2267221 555b ,20365170521 5660 14624b, 13723 13152 12302 11424B, 
.1111 310732 10356076553,0720 10670006 547062438, 060620606 50626706654B 
./ 

OAlA  (((ICXOFF  (1 ,3,K),I=1, 18) , J=6 ,6 ) ,K=2*  2)  / 

.0 1055071610732007 lolB, 10127 10476ll2o01201 /b, 122751 341414 260 14777B , 


.1554016357 17230201 53d 
. 24236*47 562536426 1 15o 
.277342160627525274463 
.2453 7*35042246 1214^63 
.13347x271112122115253 
./ 

DATA  I  (  ( ICXGFF  II, J, X 
.02**70254303145035473 
.151141564216161170013 
.265102755030512314563 
.3*2253160231230305723 
.24370*354222552215373 
.07 1* 70632305676053 153 
./ 

DATA  { ( ( ICXOFF  II, J, K 
.0*33*02657031170376*6 
•14662155161627517 lo53 
.266*52760030477314736 
.3227 13140631231305003 
.244042347222545215363 
. 071250632305664053063 
./ 

DATA  <  <  <  ICXGFF  <1,J,K 
.033200360 104131045443 
.146671547216654176666 
.26343276613032531510b 
•3 241 3520273 1530307463 
.24637*370322**7215048 
.070360631505666053503 
./ 

DATA  II (ICXGFF  (I,J,K 
.035450401404356050273 
.150351600517044177166 
. 2o47  6276715045531360O 
.325203*12331547311556 
. 2477 b*374 122&0 12 151 lb 
.07*140653306023054513 
./ 

DATA  (((ICXOFF  I I , J,K 
• 04 ?3o05 13305374060 733 
.154*51634517336203203 
.26*202724130155307516 
.320353166331540312213 
.241^6*274530314216243 
. 102640762607260066733 
./ 

DATA  KltCXOFF  (1,3,K 
. 072* 1073240754307  7  423 
.161541701317651206003 
. 246442546426251267243 
.30  66.4305133025 3300053 
.251012371422574215346 
.1*6*31220111556111753 
./ 

DATA  (((ICXGFF  1 1  ,  J  »K. 
•025420 272^032 15040566 
.150251561716260170243 
.2665227645306153156OO 


,20442207352150521771b, 
,26635*706127316275023, 
,27461 *723727 Ob326442B, 
,205*51766517076163708, 
,Hlo210o43104l  6103523, 

) , 1=1, ib ) , J=1 , 1 ) ,K=3 ,3 ) 
, 04 7 40 C  5  64506744 10 1268 , 
,175272052021210216743, 
,3*0533303233314335138, 
,302 30300442? O0627202B, 
,204771723516076146128, 
,046410436104114040213, 

)  ,1*1, 13) ,0=2,2) ,K=3,3) 
,050200572507004100513, 
,177 102056221321 21 7o5B, 
,32*573305233417335638, 
, 301612771 12 74 342? 06 7B, 
,2043bl7 2151 5734143708, 
,  046550427704153040228 , 

),l=i,18),J=5,3) ,K— 3 ,3) 
,0546706*4407363 104203, 
,203722102121541222158, 
.32326327743327733530B, 
,303462717627532271068, 
,20305 1705215b5114376fl, 
,0*7310441*04226042043, 

I  ,1*1,  18  7  ,  J=4»4  ),K=3,3) 
,056540663307470105138, 
,206072131322172226253, 
,  32*3432  636  3  3  26433  52  2  8  , 
,3065430*25*7672272238, 
,20214170171556*144328, 
,050730427304361042318, 

J ,1=1,16) ,0=5,5) ,K=3,3) 
,066210735210341112556, 
,2x1322175*22707235568, 
,31537321523240432627b, 
,306432776127370271348, 
,204451714015704145068, 
,064030621006036054568, 

) ,1  =  1,  18 )  , 0=  6,6) »K=3 ,3 ) 
,104021107411562122553, 
,213 1521 76622430231o 58, 
,274172774030241304328, 
,2751627247267502b4233» 
,20574177361701*161318, 
,106441035510106076678, 


),l=l,lo),J=l,l),K=4,4) 

,052110635007334104268, 

,201422123522112227548, 

,324453321733575340168, 


22734235 112430524756B, 
2 764430026300 71601 558, 
260712546324766242638, 
1 55 J714651 14607 13703B, 
103751013010470106148 

/ 

11212120531310014153b, 

221332263623643243478, 

335603346333357325518, 

265162570525000240653, 

134171222211063077648, 

040170423504501050408 

/ 

111031203512750136768, 
223042303523746244418, 
335503322233307326668, 
263462557124747240168, 
13067 1200 7 107 57 100 57 B» 
0401 1042510452605005B 

/ 

11*231213213073137538, 
225502346624276251238, 
3 3 55233 53333 3 3433 02 2B , 
263772565524737246458, 
131771202010740100136, 
042130441 70*650051 53B 

/ 

1152012271132441*1408, 
*34122430225076255118, 
335643352733277330638 , 
2646425667251 11 24376B, 
132741212310767077518, 
043140447605036053218 

/ 

121071275413640144658, 

243302462525436260648, 

330213272432574323448, 

265242561224747253448, 

134011*42311554110028, 

054720556206111063468 

/ 

131041375714543153458, 
236712445225246260248, 
305413062330715307038, 
2603525* 1024732241468 , 
1 521 21442 1 13757 13241B, 
075700775110143102458 

/ 

114421236113273141618, 
2 36072423 125 3242602 7B , 
341153411234004335348, 
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.332243273632403320058  , 3 130 2bO 6503 030 12761 68 ,  271322623025304243338  « 
.  2461 1435622255421 51  78, 2G:>  361 74021 02531 5 166B,  14002 12  566 11 353  100658, 
.0670  705734052150457  Its,  041 3503  51003  20103055B,  0  30  62  0  3  1  6  303  4  360  3  7  36B 

./ 

DATA  ( ( l 1CX0FF  (l»J»K)»l=l,ib)»J=2»2> *K=4 .4)  / 

•  02547027 1203301042 13b ,054 3006 5340 7  540 1041 3B, 11441124211322714065B, 
.1475 015345 163061730 lo, 201 6621 20222 11 722 7546,235222434425 17326003b, 
.266722761330645315643,3242033^1133627340346,341313406733545335118, 
.33217 32737 3 23743 177/d, 3 12 /630 06330307  27637  B ,271 17262232535624415b , 
.2461423573226722 1 546b ,20462 1741^1 623415026B, 1353112436110 75077578 , 
. 06744OO0100525 104534b, 04224030 150326103 13  lb, 0305703 12403377037O3B 
./ 

DATA  (  (.  I  ICXuFF  ( I  ,J,K)  ,1=1,  18)  ,  J=3  ,3>  ,K=4»4)  / 

. 0273 70ol66035310434^S,053o30b4340 7416 10416B, 114131230 1131 O414027B, 
.  1h720i5o3Ho455i7  5608, 204  2  3  2  1  2  5  2  22  26  0  231 136, 2366o24516253352603oB, 
.26 71 22773530707316300, 3241233 11633 5 1734024B,340643376o3d61133501B, 
. 33324327 53323403 17 508,314033 10543041427 o53B,27062262212537724535B, 
.24 7532 3o742255 52 1521b ,204121 7  25316 123 1476  58, 1 3543 1233 1 11026077328 , 
. 0672 1060 160522604525B, 041 15035630337 10322 2 8,03 1270325603503041 548 
./ 

DATA  ( ( ( ICXOFF  (I,J,K),l=l,ia), J=4,4) ,K=4,4)  / 

.0303O0 332 103o2 1043578, 053300633207451 104656, 113631223113072137 13 B, 
. 14 71 5 16003 16605 17531o ,20524214322231323245b, 24057 2 50 2225400 262 43b , 
.2666 5276423065631 4640, 32277330213334533O55B, 337273373733602335 118, 

•  3o  252.»5G45324463  20  228 ,314623  12053  05572775  oB  ,271702641 025630247618 , 
. 250622374222651 215530,^041417246 16012 1474 13, 13512124241105210021B, 
•071^70607705424045728 ,04141035740345203 2648,032770344503734043258 
./ 

DATA  (((ICXOFF  (I.J.Kl  ,1  =  1,18  >,J=5, 5)  ,K=4,4l  / 
.040270423004575052638,060460677407510104328, 1 12741215513050 13727B, 
. 147261571416700 17o7oa, 206702163522526235278,24345250132544126234B, 

•  ^642 64:71763 023430 7 268  ,3161  lo2 25432  57433  037B  ,331 253 3 150331 5633047B  , 
. 32 6673246 13 2207 317 5 5B ,3x46531 100 30 433 30 05 Ob, 27 42 126650257 45250258, 
.2520 7241202307 12 1774b, 20570 17445 1623 115024B, 13672 1274011 625 11045B, 
. 10 1320742 706645U6 1458, 0354005 24005 10604710 B, 047 130476305 1220540OB 
./ 

DATA  (((ICXOFF  (I,J,K),I-1,18),J=6.6) ,K-4,4)  / 

.0641 106416065460 70178, 0745b 10215 10 754 11 50 7 B, 12270 1313 51377414632B, 
.154671625617167200478,20045214612231023 104B,235342422024o7425364B, 
.25064256262642 127072o,275b230 15 130533 3101 20,311573125631343313238, 
•312363107130726305458 ,302652767527350267378,262742556324777240458, 

•  24603235162260521642b ,207  2617765170 241611  IB, 15261143401357313037  6, 

•  12 24411443110  <i410 446b , 10135076010732107 1723,071310713 107301 074738 

.✓ 

DATA  (((ICYOFF  (I,J,iO,l=i,18),J=l,l),K  =  l,l»  / 

.1777 717777 17777177778, 177 77177771 7777 177778, 17777 1777 71/7 77 17777B, 
.177771117717777177778,177771777717777177778,177771777717777177778, 
. 1777717777 1777717777b, 17777 1777717777 17777B, 1777717777 17777 177778, 
. 17  I  t  717777 177771 77778, 177 77 17777177771 7777B, 1777717777177  7717777b, 
. 1 77771 ?777 177771 7777b, l 7777177771 77771777 78, 1777717 777177771 77778, 
.X 77771 7777 17777x77776, x 7 777 1777717777 17 7778, 17777 17777 17 777 177778 
./ 

DATA  (((ICYOFF  (  1  ,  J,K  )  ,  1  =  1 , 18  >  ,  J=2  ,2  )  ,K.=  1 , 11  / 

.207 432 060120412^0o32o, 20652206314101 12101O8, 2056520 30o20 104177668, 
.17565175441 7375172148, 171 151672716 544 160758, 203012017716552 161 10B, 
.l/60l20l64l?6o51 7 5248, 17o0617 5541 7540 175508,1 76261 761017663 175438, 
. 1 775 1 17644 176471742 » 1735417 51020117203436, 1 / 1612061720502205038, 
.2 163 12122321054210 l4b, 2102721 1072072520464B,2031o20 16 1200O6202336, 


327 


202261772217617200078 

/ 

OaI A  ( ( ( ICYOFF  (1,J,K 
2  1  1j  7  <.1434216002  1  /60c) 
206352023*1772517  *0<d 
20653213402111520577b 
206442055520631205518 
22676^235022235223168 
203o2 202 o2 2 03 6020567 6 
/ 

Data  (((ICYOFF  (I,J,K 
2232 12250 7 230402 3 240o 
212132114520744205108 
215062157621505212158 
2io0 5 21 5^521 03521260o 
2343  22337  523327233 168 
213632125121207212418 
/ 

data  ckicyoff  (i,j,k 

257042601526334264618 
25437247532443224172b 
250602505424745247258 
2511 1250142476624663c 
26230264342616226117b 
25o2  7257 1225677235528 
/ 

DATA  C(( ICYOFF  tl.O.K 
31611320773217232007b 
307153054730345301356 
300418015230170302 15o 
277252774230026801 168 
302*73 102 5 30*50 3 10 1< 8 
320053^120320433167  <tb 
/ 

DATA  (((ICYOFF  (I  iJiK 
177771777717777177778 
17777177771/777177778 
1 777717777 177771777 7B 
i.  777  717777 1777  7177778 
177771777717777177716 
1777/1777717777177776 
/ 

DATA  (((ICYOFF  (I,J,K 
210242070320770207628 
i 7760177321764317 i30o 
202602031220374204548 
20107^017520067200028 
211262071320536205646 
2005617500  175^.2  177606 
✓ 

DATA  (((ICYOFF  U , Jf2 
22l41t22252237l223ol6 
205652036120046175546 
21172216522168221661b 
211622113020760207546 
224052223322110220286 
.201412014320315205406 
./ 


,201 53<026 720364177478, 20 1 571 76021772320057B 


),'-l,l6),J=3,3),K=l,l 
,2<.l*>  22  2002226  /221236 
,173031721 116725 lo513B 
,^06242074721176211628 
,206332103121153221558 
,223462205521614213528 
,205742073220632206006 

)  »  1 =  1  » 1 o ) , J=4,4) , H= 1,1 
,2321423 1542 3io023115B 
,201642012517502172328 
,211662114621622217058 
,  213o621 67422 051 22 44  5B 
,231552310223016225608 
,212432154021571215268 

>,I=1» 18  )  , J=5 , 5 ) ,K  =  1,1 
,26540266012652426374b 
, 23o07 23 4222 3432 2363 3B 
,2500025 1242530625437B 
,247062505025 17 125330 B 
,26173260572601 125667 B 
,234442537225346255228 

),I=l,ld),J=b,6) »K-1 , 1 
,3 164731 5173 152631422b 
,2764027 3642720127 305B 
,301152777027607276756 
,301613033030432306348 
,310743107731026307438 
,3 167431 o!23147431513b 


,214052130221202206618 

,171511664216571166136 

,212122110220631204436 

,222152222522175222318 

,212632110420650205258 

,207042020420575207168 

)  / 

,224172222622047215338 
,1750617o31 17564175178 
,216432154121500220718 
,  2320323345231 1023042B 
.22327221722167121520B 
,  215512 14052ib32220 313 

)  / 

,264602657626417260578 
,235602346423 575 2404 7B 
,2546325*0625231252238 
,2555025o3326 115263 138 
,2556425604256 1025615B 
,253162534025353254448 


,313053132431411311578 
,271322710126677267168 
,  27623275 1 527467276408 
,310043053030647311218 
,311103146031714320646 
,313143134731577315566 


),I=i,16J,J=l,l> ,K=2,2 
,17777177771777717777b 
,177771777717777177776 
,177771777717777177778 
,i77 77 17777 17777 177778 
,17777 1777717777 1777 7B 
,177771777717777177778 


), 1=1,18), J=2»2)»K=2, 2 
,210522112021021210138 
,170o3 170621 6700 16642B 
,20*752055020453205558 
,177412012520342205058 
,204032043620211200708 
,200232010220100175518 

),I=1,16) , 6=  3,5) ,  K = 2 , 2 
,22524225312253622335b 
,17420173351746317335b 
,  21ol 52 17022 17552166  36 
,207401.110721312221038 
,216 732 14772 123721043B 
,20704207732070420655d 


,  17777177771/777177  778 
,177771777717777177778 
,  177771 77771777717777B 
,177771777717777177778 
,17777177 77 177 77 i77778 
,177771777717777177776 

)  / 

, 207702043620241^01 IbB 
,1711*2051716646170716 
,  206 1320*562026*20 ibl 3 
,2062*2067*20565205678 
,200261775620161203168 
,176651775520115200038 

)  / 

, 220052 1*5521326207  7  38 
,17533 17*251751 117654b 
,215612142121174210628 
,21715216072140621653b 
,207402062420511203638 
,2066420 76721G2521071B 


DATA  (KICYOFF  1 1  ,  J,K>  ,  1=  1 , 18  )  ,  0=4, 4)  ,K=2 , 2  )  / 

.2337  52352223770240708, <.515^240432360  523  57GB, 230662263522451220608, 
• 21610214 172123020744a ,2052220^37 2 025720 21 48, 20273 20 61420 7 46 210 378 , 

•  2 *.606227  57  230  23230 148, 2305323201232702321  lb, 2  3052  22  54722721 22  3703, 
.223442230122172217578,220112216522447226018,225642263122526226663, 

•  24047237372361 4233220 , 227 o3 227032 2653  22421 6, 222562207021550  213078 , 
.  2123221051  <:123l2X523B,  21644220102203222 116  8, 22 17022 16222271223 138 
.✓ 

DATA  (  (  (  1CY0FF  (I,J,lO,I=i,l8),J=5,5),K=2,2)  / 

•  27  5oo3063130b70307138 , 277 133000327677275068, 274212733327 16427024B, 
•2641 32607 12 5644253 13b, 247 20244322 5 53 0256 156, 2611226 17626 340 2543 5o, 
.27 13227126271322? 1446, 27354275212760027510 3, 273662735227 172 26723B , 
.264332612325772257758,260162612626273263658,2636626467262?326705B, 
. 272053027727123272338, 27473275 1627120266318, 2663226 55626557 26614B, 
.26364263722642026305B,261732616526117260008,26026262012642326361B 
./ 

DATA  ( ( ( IC YQFF  ( I , J,K 1 ,1=1, 18 ) , J=6,6 ) ,K=2 ,2)  / 

. 333073347333502333538, 3345433317332133322  IB, 330343310233 16432622B, 
.324353222732042316268,314563143031302311216,310263106331060310608, 
.324223253732550324018,322123201331671316018,314503147231432315506, 
•314223136631326313778 ,3x5753 164431 6543166 18 ,316573170032052323566, 
.3223 23236732452324628, 3243332352324003240 28, 324413250732534 32746B, 
.3313o330 133307433 1078 ,3305332755326 1632 5348, 3250132543327 1032501B 
./ 

DATA  (KICYOFF  (1,3, K), 1  =  1, 18),  J=  1,1),  K.=3 , 3  )  / 

.1177717777 1777?1777?o, 177 771777717777177778,177771777717777177 778, 
.17777 177771777 #1777/8, 17777 1777717777177? 78, 177771777717777 17777B, 
.1777717777 17777177778,177771777717777177778,177771777717777177778, 
.1777717777 17777177778, 1777717777 17777 17777B, 17777 17777 17777177776, 
. 177771777717777177778, 17777177771777717777B, 177771777717777 17777B, 
.177? 71777717777177778, 177771 77771 7777177778, 177771777717777 17777B 
-/ 

DATA  (KiCYOFF  ( 1  ,  J,K  )  ,1  =  1,  Id  )  ,  J=2 , 2  )  ,A=3 ,3  )  / 

. 212172132621332212718, 213372132621337213668, 21360212742126721275B, 
.210552074620643205528, 20652204072023620362 B, 202732025620404176668, 

•  20702210752113621^.4<:6,21246213072131521170B,21212212332102321043B, 
.210152100221033207478,207142073321014211738,211372102420631204508, 
.2  1  36  4212  1  421152211548 ,2116  52  1  25  1  2  1  30  3  21 25  3  8, 2  1  02120  o3520556 205248, 

•  2047 520322 202 5 22034 30,20444204652 043 2 203668 ,203352041720445204158 

./ 

DATA  ( ( ( 1CY0FF  ( 1 , J ,K I ,1=1, 18 ) , J=3,3I ,K=3 , 31  / 
.234002277223051231156,232352326323257230518,230352262322453223668, 

•  2c 50622241 2 1756^1 5210 ,214342 1 10020473206028, 21165211 7321054206 158, 
•221o0c22662263222 7728 , 227402303423X462311 48, 2 30 56 227 64 225 3422400B , 
.2.42 7225012232 122273a ,2225022237223462246 18, 224312225 121 651 2137 4B , 

•  22716226242247622  4128 ,224^722 5462265 12253  36, 223362205621642216008 , 
. 214a721^6421206213028, 21413214752140721431 8, 2 140321 373214M32 14648 
./ 

DATA  (KICYOFF  (  I  ,  J,K>  ,1  =  1,  Id  )  ,0=4,4)  ,K=3 ,3)  / 
.250622520524567246708,247032477024735245728,244162425124010237228, 
•2o64 12351 123325230 120,2253422 1652 172 52 153 38, 2 17152166221644217278 , 
• 234o32o6 14241 2024301 6 ,2451324ol42500 2 247568 ,247072435 324 272 241 40B, 
•241.32415023702256050, 2365523766241 15240468,2362 12327622756224768 , 
. 2451 0*436124226241470, *41672426724 116240048, 237472356323320231778, 
.231x42303222752223348,226032257522614226018,226012257222706227478 
./ 

DATA  (KICYOFF  (1,J,K)  ,1  =  1,  18)  ,0=5  ,5)  ,K=3 , 5 )  / 

•  310163103131074312278 ,3 14723136631 1  *,730770 8, 3062730 64430 40 1 30 1168, 


.2 77042752427250267056, 26370 26 157 26 123260646,2 60 162 5 706256 552602  IB, 
.3000 13000330 157303160 ,30700310123 1 1233 12043,3 11403077  2305  213Q344B, 
. 301O3277542767027454O, 273 /0271712716327164B, 2706 12640 12700631074B, 
.310533041327256303336, 306 1530656304333033  IB, 303043031030325303 17B, 

•  3 02273016030042276046 ,27453273312721026771b ,267132670526670267  266 

./ 

DATA  (((ICYOFF  (  1  ,  J  ,K  )  ,  1=  1 ,  lo  >  ,  J=6 , 6  J  ,  K.=3 , 3  )  / 

. 3472534537 3442 5342536, 34263 34 23334161 34 1116,3366233 53 136516 33342B, 
.33 1443272532413320516,316213145031267311058,31060311243120631211a, 
.33342333 1333247332746, 3323533 14733 10633052B, 3304232 77 032 7 17 826246, 
.32600325433243032206a ,320013167231741317416,31640316273175732245b, 
.337Go33650334733-»5G56,3j43G333753334633370B,33421334553357633753B, 
.3411233  if  7  6  3  3  647  3  3  5  628, 334  6  73  3  3  343  3  2  2  2  330  6  2  8, 3  2  643  3  2  7  5  032  6  3  0  32  6  2  7  8 
./ 

OAlA  (((ICYOFF  U,J»lU,I=l.ie»,J=l,l),K=4,4)  / 

.  1777717777 17777177776, 17777 1777717777 177776, 17777 17777 17777 177776, 
.177771777717777177778,177771777717777177776,177771777717777177776, 
. 1777717777 17777177778, 17777177771777717777b,17777177771777717777B, 
. lit! 717777 17777177776, 17777 17777 17777 1777 78, 17777177771777717777B , 
.1777717777 17777 17 7776, 1777? 177771777? 1777 76,177771777717777177778, 
. 1777717 «77 17 177177776, 1777717 7771777717777B, 177771777717777 177 77B 
./ 

DATA  (HICYOFF  ( 1  ,  J  ,K. )  ,  1=1, 18  1  ,0*2 ,2)  ,K=4,4>  / 

.  2  i. 441214412141421 4G4B, 2136521 32  42  1366  21 405  6, 2 14 15214572 15 1421472B, 
. 213442126421253211306, 210o62100720o3420545B,20703207252070320646B, 

•  2 10652 11 772 12542 16366 ,2141021443214302137  2B.214222140521337  21315B, 
. 213332147621561216006, 215702152321555215 13B, 2 14652127 121 11&21000B, 
.213202122221177211206,210532121521322213236,213202130121254211136, 
•2101 1>207452077 1210056,207 1 1207312  07602 1044B  ,210722 100420  716207216 
./ 

OAlA  (((ICYOFF  (I,J,K),i=l,18)  ,6=3,3)  »K=4 , 4)  / 
.23426^.342523460234756 , 2313623045230232305  OB  ,2310426 1  It  23 1 22230  3  3B, 
. 22607230302241422223b, 2214322 0o02 16522 15608, 2 1616216 1021 5 122121GB, 
. 22352*25742301023 lalb, *315 1232352325 1232466,231762311123001230156, 
. 2305 52312623277233316, 23263232202325223 lo2B, 230 142261 122435222136, 
. 22744*272722555*250 56, 224  7322617227302300  IB ,230 2422 72022 571 22424B, 

•  22304226.47222302217  5o,  221 30  22 11 22  2 134  22  21 48, 22233  22226222  15  22 17  58 

./ 

DATA  (((ICYOFF  (I, J,K), 1-1,18) , J=4 ,4 ) ,K=4 , 4)  / 
.251012515425207252016,246012462 1246302453 13,2451 12445524417243406, 
. 241402376223754235606, 2340t23 ^7223040226408, 22 76022 76222 73722534b, 
. 2366 5*4071*450*240 468, 24 707 2502725 lbG25 13  IS, 24741 2464624622 245628, 
.2401 024703247352477 16, 247 74247262470624 57 2B,24425242332402323467B, 
. 24444244372430 124 1306, 2415 124221 243362425 6B, 2433t2434524 147 237248, 
•235362354523614236146,23544235222352323 4558,235122345023505234358 
./ 

QATA  (((ICYOFF  (I,j,K),i=l,l6» ,J-5,5> ,K=4,4)  / 
.314043147331565316608, 31716316033 1524al43 58, 312203 1040307 11 305468, 
.3044330243  3001.327  oOl  6,2  7  4  2  0  2  7  2  40  2  7  2  1  3  2  7  23  08, 27  2  0  5  2  7  0  6  6  2  6  7  4  6  2  6  6  30b, 
.30112JO3473O53030 744o ,3 12 163 14343 1 61231637 B, 3 15533 153031421 31236B, 
.31 055307 103055430 5218, 305353052 13043330 373B, 303 1230 17027630275578, 
. 310443100530605306506, 307 2431 03330o34305348,3057530o0731 065 310758, 
.3 123 2a 11 343 i 1 1 2a 1 0028 ,30653305 1030405302648 , 3 01 77 JO 1 0 130023 27765B 
./ 

U A  TA  ( ( ( IC Y  OFF  (l,J,A),Isl,id), 0-6,6) »K=4 1 4 )  / 

.3542 73543135306352506, 3523335 136351 15350276,3463434362342 12341 576, 
.3404 5336703351 133 167b, 330623t 7653257332410 8, 321633204332050 317 576, 


•335023356433703340156 ,a4l01 34241342533433 46, 343633435734276 341 61 B, 


330 


.$*0023371133760331*$*, 33667333513316233075b, 330263271 132632326G2B, 
.343573433 33442334357b ,344 12344x33443 534477b ,344513464 1347 7735142 B, 
. 351o6353403531135156b, 3475034577343733420  IB, 340 3033672336 55 33401B 

./ 

DATA  (  (  (  1CZQF  F  U,J,K.),I  =  l,lo),J=l,l),K=l,l)  / 
.236342274i2202021016o*20l4ll 71 131o07515137B, 14377 1352113 100 12600B, 
. 1251012426 12333122 56b, 120 3O120561174211654B, 1 153511542 11 347 1L306B, 
.1645710602 11022111316, 1144311 7141236413153b, 140 141471615551 1645  IB, 
.1731 617761 202 1420037B,177oo 1760317707 20 134B, 204762 102021 561 22 15 IB, 

•  2247 7230052317 0*30606 , 232 1624010241 50 2443 7 B, 2 464724 67 02 47 53247 57B , 
.*50*12475 12474024707a, 245 35*444624304241758, 23724*363323374 231738 
./ 

DATA  ( ( ( IC20FF  (1,J,K), 1-1,18), J-2, 2) ,K=1,1)  / 
.236742276222052212046,202431723616205153236,143771374413244127578, 
.  1*6<»1 12573 12347 123 10b,  12375 12400 12376 12 16  6B,  1231012 153 12  007 1161  IB, 
. 1072110741 107301106BD, 11b3011 67712421 131636,1372014556 15555 16437B, 
.  1733 l*0ul720125177078,  1760517  5521 766520174B,  20472207672143322073B, 
.224052273623171233428,2360624043245332515 18,252632515225142251708 , 
.252102502224675247768, 2462724 5272435424174B.23773237452352023144B 
./ 

DATA  ( ( { ICZOFF  (1,J,K),1=1,18),J=3,3),K=1,1)  / 

.24 17 2236422 24642 1557b, 205411 751716440154338,145161410313444130636 , 
.1271 51276312607 1240 7b, 123071237512350 122508,123351216211722117658, 
. 1100*1x0 1011053il220d,ll477l21701254313257B,13725146041563016515B, 
. 177231 76522002120034b, *001220*C71773o2u*44B, 2055021 1042155322204B , 
•223 102267423 17 323 5 43o, 2404224 34624641 2 5 17 38,253522536125327252708, 
.252032 51372 511 124737b,2463 1245622442424241 B, 2377024070236 33232 53B 
./ 

DATA  ( ( ( 1C2UPF  (1,0, K), 1-1, Id) , Js4,4) ,K-1 , 1 )  / 
•242612353022524217458 ,207  4120 10417 221 1627 3B , 15406146041410613434B , 
.132551340013033125556, 123631230212401 12404B, 122041243412453 12432B, 
.112*01 116311250114303,1163512 15312575 133168,1414015026 157351642 78, 
.1720217532 1774020110a, 201532006617740201656,20566210772144322107B, 
.2 22302245423205237158, 243122452625000 2523 1 B, 25354254452546725360B , 
.25264252032527225065b,245752451624520242l2B,24l5o24l3323557232148 
.  / 

DATA  ( ( ( IC2QFF  (I,J,K),1=1,16),J=5,5) ,K=1,1>  / 

• 245o224033 25322225 248,21626 20 720 177 15 17053B, 1627015647 15072 143 14B , 
. 13424134401316712 7 12B, 1254412  5571 25011237  IB, 1 24471245  712476 12560B , 
. 11*261141611667121718, 12400 126701325214003B, 144271525716067 165538, 
■1 675217520 1760a20G10b ,201632007 120 1742055 IB, 2 052121 11 621 3 72 21 7008, 

•  216122226122725235538,242662460x25037251208 , 252552530625367  253413 , 
.253072517725107247346,245342431324165240578,237702365423472231278 
./ 

DATA  I ( ( 1CZQFF  (l,J,K),l=l,lb),J-6,6)  ,K= 1,1)  / 
.237602364323254226018 ,*17442140420455175278 , 171171640315671 154758, 
.1472714423 14235140428, 1367013517 1352413527b, 135611351 113547137568, 
.124221274513070133268,136061417014576151638,154721602516410167608, 
. 1730017555 17742177606, 200112001120045201578, 203612074221 1502 1333B, 
.211762201322214226628,231552336123605237718,241322416624200241708, 
.24236*421124112237068,236452357623435232548,227312262222502224118 
./ 

DATA  ( ( I 1CZUFF  (l,J,K),l-l,ia),J«l,l),K-2,2>  / 

. 2432623550226462 1b7o8, 20650 1746416315 152448, 14252 13 16&12323 12076B, 
.1172111436113001 1450b, 114451146711452 114008, 11 354112 161x066107 158, 
.0775 11005310205103308, 10645112631 1776 126418, 1352614466 15555 166 178, 
• 1 750020337 2065320556B, 176701777220145203778,207362130221554221278, 
.22337230042321523063b , 232522404424  542251038, 2534525  4  7525  4  72256108 , 


.  2574526046260 15257  55o,*5o /4254162513  2246776 , 243722377723  53623342b 

./ 

DATA  (It 1CZ0FF  <l,J,K),I=l,i8),J=2,2>,K=2,2)  / 
.2443423:>3622642<:2Gi2B,4G6511755U651115444e, 14323 1343bl 2563 122426 , 
. 1116012000 1156111 326b, 1135611 61311 545114628, 115141 150711 213 11G77B, 
. 10021 1003610142102446, 10613 112621173212474B, 13444 143431546716500B, 
.174022010220454200726,200131776520105204236,20734212542161322070b, 
.22305230 162323123406b, 237 17243472 51052547  IB, 25727256562570325614B, 
. 260^22602026001257016, 2553625 364281 15246766,2  43622410523 56223272B 
./ 

DATA  ( ( ( ICZOFF  ( 1 , J,K ) ,1=1 , lb ) , J=3 ,3) ,K=2 ,2 )  / 

.2417 0235352257221605b, 205761735216301 15162b, 1417313352 12604 11777B, 
. 1  k767 1 176611756114606 , 11373 1141311 306 1126 3B , 11267 11 15011177 11075B , 
. 100231011310165103216, 1U660113061204312560B, 13306 14321 1537216447B, 
• 17 337 20034203 5 120 1636,20 10420 1062 0323 2042 2 6,2 0702 2 1267 2 1577 221 7 5B, 

•  2^3202270423324237706,244012471 22517 1254676 ,2 566626025 26040 25 751 B , 
.26156260632606725600b  , 255 1.325 2042 503  2 24636 B,  2435 124 14023 660 23233B 
./ 

OaTA  ( ( ( 1CZ0FF  ( 1  ,J,K) ,1=1, 18) »  J=4*4 ) ,K=2 ,2)  / 

. 24204234732271321 77lo, 2044517402162421523oB, 1427513436 12561 12172B, 
. 12055121371173211533S, 1141 11 13221 122011 22 16,113241131611167111558, 
.102461 G2231036210520O, 107 541 1330 12005 1261 56,135421460715374163728, 
.17361177352015720^3^6,203732025520850205406,210062135021665223406, 
. 223522261723355242740, 24725252502542225604B, 2573626 11626 170262 106, 
.262122614325724256446,254762520623022246628,244312422623725232458 
./ 

DATA  (UIGZQFF  lI,J,K),l=l,ia>,J=5,5) ,K=2,2)  / 
•240332320022414220436,211362022417 131161256, 15171 1432413642 131 6 5B , 
. 1^6241221411754115418, 114301140011335113108, 1 15111 14011 151211677B, 
.105451066311076114000,117641231612734134668,142151476715665164618, 
.17 170174202001220334b, 20566206642074221064B, 2 11662141321 746 22324B, 
.226732261225516242108,246542522425474256578,257702575626021261016, 
.2604223753256352544^8,231742501024555244638,242722404023456230428 
./ 

DATA  ( ( ( 1CZCFF  ( I , J ,K ) , 1= 1 , 18 1 , J=6,6 )  ,K=2 ,2  )  / 

•  2364.223247227 112<:555o  ,  215032073720135172358, 165621557514764 143418, 
. 13742134241317612773b, 12725125521264712707B, 1257 11251312 545 12676B, 
.116051201012271125378,130501346314040145328,151601560516152165278, 
.  1722 117560177432046.278, 2037720  537206702110  2B,  2 12542143621634222  216, 
. 22002.4241023033234408, 2o73424 153243042455 16, 2473525 10325003  250258, 
. 2474724607245o5244608, 243352422 U237712361 IB, 234552316522741224276 
./ 

DATA  ( ( ( ICZQFF  (I,J,K),l=l,lo),J*l,l),K=3,3)  / 

•  243074.345522325215346 ,20357  1711115642 145 14  6, 153  55 12416114  74  110156, 
.106141037210245 101740, 101 121021110 10 110 10  IB, 102 4310352103  50 104238, 
. 0752207415074500757 lb, 10141 104021 103211 344B, 1 236713341 14561156538, 
.lo51 11731617733202720,202 142033520613210068, 2 13012160522 074223478, 
.230042343523616235630 , 24020246342  52 432 372 3B ,2624026  53026724271320 , 
. 27172271662716226771B, 2647526 1032560625321B, 247652436223771 23303B 
./ 

DATA  (UICZOFF  (I, J,K), 1=1, 18), 3=2, 2), *=3,3)  / 
.24245^.342022540214130  ,20547 1  7 17715720145668,  .  344412421 11  554  111116, 
.1062610466 1030310152b, 10076 10 106 10071 101426, 10215 1024 110341 104208, 
.072510732 507452076046 ,10110104401 11051166 16, 124001347314501 155706, 
.165411755120116203416,203712054020725211446,218562157722050222656, 
•2^75 523417 23717240318 ,24572250332 552526236 8 ,265 7726736 27006 271 146 , 
. 27235271672705226704b, 2641726 1342555725241B, 247752441 724041234266 
./ 
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DATA  (KICZOPF  ( 1 , J,K) ,1=1, 18 ) , J=3 ,3) ,K=3  ,3)  / 

•  237632321122255212568 , 202041677015576 143338,134171233711502111178, 
.106*5 1057310366,100458, 077060770610042101408, 10244 10231 10345 10454B, 
.073370735207565076208 , 10124104561 1 104116458,124401341414507 15440B, 

•  1647  517331 1773520246b  ,20461206402074121 130B  ,2  135621o42  22004222  608, 

•  2271 2232  76  2403o2  43678, 2502125^-752606726422  B,  2  66702  7  06227  154271708  , 
.27 17 427142267 7426353B  ,^.635226137255722525  IB, 2 4747  24436240  23 23331 B 
./ 

OAlA  ( ( ( ICZOFF  (1,J,K),1=1,18),J=4,4),K=3,3)  / 

.2371 525060221262 1077b ,20006 1666615522 14430B, 13412 12 375116 06 11145B, 
.107601071610347100578,076740757407656100478,100771016310267104718, 
.  0752607455076^*2077338 , 10282  106031 12011 176  5  B,1 260213454145 15 15365B  , 
.lo325172331764720217B, 20557207252 103621205 B, 2 13612161422062223158, 
.  2270523302240542^*7006, 25461260502  641 126563B,26727270772722027240B, 
. 272142712326765265748, 2632026 13725565253108, 2**7  7224^*4223760232216 
./ 

OATA  (((ICZOFF  ( 1  ,  J  ,K. )  ,1  =  1,  18)  ,J=5 ,5)  »K=3 ,3)  / 

. 232772247121644210 168, 202261731116 163 15165B, 14226133541256312 140B, 

.114651102210505102528,102211017410134102548,104421056110706111138, 

.102151026510442107258,112031151412136126528,133211414415045156648, 

. 1640117145 17715204028, 20777212662142421570B , 21710221012240022502B, 

.23245240702120324 5758, 252332572026213265138, 2666726770270062672 IB, 

.266502655426375261268,256452533325030247368,244452412123513230018 

./ 

DATA  (((ICZOFF  (I,J,M,I  =  1,1S),J=6,6),K=3,3)  / 

.250672244121 763212278, 205602003217 140163328, 1 551214760141 61 13453B, 
.  1307412545 12314121258, 1200111 7501175711 7358, 1173011 73412014121418, 
.114161 1504116361207 18,123631276413453140238, 14520152 1215652162448 , 
. 1667517275 17765203208, 206 30207772 1152213043,2 144621 564217 7022276B, 
•221632270423337237268 , 24250245022473325 143B ,253272543525464254628 , 
. 25332^521425073247028, 24467242512410623733d, 23550231762270622375B 
./ 

UA1A  ( ( ( ICZOFF  (l,0,K),l=l,lo),0=l,l),K=4,4)  / 

.2360 72307422223211748, 1775516 5461 540414414B, 1340712401 11663 11457B, 
.11 1211055510167077678,075040732607244071008, 071330732407320075018, 
.0675 7070570715 1073558, 076451026610770117158, 1264313643 1464715522B, 

•  1 6223 16726 1745320 13  38, 2G5622  1  0542  1  341 21 37  5B,220‘»72240022  6  22  230 138, 
• 23 22 623542237 1623 746B, 24141 24o652 530 525 567 B, 26 l 55 26 61 127201 274108, 
.  27510276222  7514273108, 270232651226133255758, 25226246632427723637B 
./ 

OAlA  (((ICZOFF  ( I ,J,K) ,1=1,18) , J-2 ,2) ,K=4,4)  / 

.2b6242bG34222252ll26B, 177311655515376144268, 133771240311742115228, 
.  112421071410363100358,0754407  3110721 107U7B, 072070730207363075768, 
.06  77  30707  30721. 40  7  4218, 077 11 10  3301 10  60  U661B,  1257113633 14736 1545 18, 
.1623717002 1745120133b ,206 162 10632 134 121 5408, 22005222262243722606B, 

•  23 13423545  2402424 1468, 2<*432  2  5  02  12547  126 15 18, 26625  27 1452  74  32  2747  3B, 

•  2  ?5;.22763  627537  273358 ,267722643326073255768 ,253102503024364236658 
.✓ 

OAlA  (((ICZOFF  (l,J,K),I=l,lo),J=3,3),A=4,4>  / 

.2 360 123020221 13^10746 ,20002 16641 15462 143346, 1332 11 237211744 11563B, 
.1144011 1301062610 150b, 07503072170707 1070708,071700727707457077258, 
.0706407 12107230074228, 10^031040211122 116568, 126 3313735146 54 154208, 
.162411705517701202778,206672113721407216318,220202224222453226718, 
.  2306  7<.350  1  24 100  2  4  4378, 247712  54552  6044264148, 2d776  2726327501 275328, 
.216002761727546273578,2710626542261112561 78, 25335250302433623652B 
./ 

OATA  ( ( ( ICZOFF  (I, 0,K), 1=1,18) , J=4 ,4> ,K=4,4)  / 
.236012272522002206508,176261652315473144548, 134231251612056116758, 
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•116751131110707 10^576,  07561 07<£22Q 704707 1008 ,07233073240756 1 0776  58  • 
.0  72a  7072410733x0/5318, 10121105051 11321202 4b,  1302113676  14501154078, 
. 16347171 10 1766020346b, 20725x121 52 1441^l642b, 22006222372263522773b, 
•2302 12346424 17 324632 0*25303 25627 2 640426 6440, 2 720227 4 1327 535 275 52B , 
« 2 756227600 274462 7o0ob  »270o 126 53726 13425666 6,2533124 705242 14235 2 56 
./ 

DATA  CUICZGFF  (I,  J,lU, 1  =  1,  18)  ,3=5,5)  ,*=4,4)  / 
a 2336 1225 i 7 2172521 055o,201o21 7223 16273 1525 18, 14347 13522 130 15 1241 Ob, 
a  1 17361 x!27 1050710140b, 077 130757607547075416,076631010510302104236, 
.076121001510112104416,106771127011/07124346,132411411714 747155478, 
.1630117076176652034/6,207502134221627220308,222422240322545230058, 
.  227  70^46424226247066, 2537 1260442643427011B,  27212273 1527401273748, 
. 273622723027056265776 ,2631626005254642520  78,247072436  423727232208 
./ 

OATA  (  (  ( 1CZ0FF  (1  ,  J  ,  K. )  ,1=1,  18)  ,  0=6,6  )  »  K=4 ,  4 )  / 

. 2305 52x440217322 11 72b, 204171 767x17075 16256$, 15474147 321417o 135248, 
.130411245412136116738,114651135011302113148,113441150711564117128, 
.111271126311457116078,121131252713106135273,142071470415417160368, 
. 1661 1172101762120234b, 206402125421 5132164 6B,22052221542231022550B, 
.226272326323633241708,245152506125405256258,257612611326153261468, 
.26 15 52o00425e3026441b, 251 5 12470524 5 062427  3B, 2 40 152 3 55 o23 2 16225558 
./ 

DATA  ( ( ( ICLOFF (l,J,K),I=l,loj , 3=1,1), K=i,l)  / 
.177771777717777177778,177771777717777177778,177771777717777177778, 
. 1777 7177771 7777177 778, 177771777717777177778, 17777177771777717777B, 
.177  7  7x7777 177771 77776, 17777 177771 77771777 7b, 17777 177771 777717777B, 
.17 77717777 1777717777b, 17777 1777717777177778 , 17777 17777 17777 17777B , 
.17777 17777 17777 17 7778, 17777177 7717777177776, 1 77771777717777 17777B, 
.177771777717777177770,177771777717777177778, 17777 1777717777 17777B 
•  / 

DATA  H l 1C LOFF (1,J,K), 1—1,18} , J=2 ,2), *=1,1)  / 
.200262002220052200578 ,20066200732014120 1458,201342007420 16120141B, 
.20 15320 1672026620x546, 201712013720166201276, 200512005520036 17? 46B, 
. 1764617747176 1417506b, 17476 1747517503175028, 1753617 54017 540175 12B, 
.176041751117502174206,174321752120030201758,202172026320221203218, 
. 2062 7i03b0^012 1200428, 20037201652 022 1202428, 2 02 442024420227201 748, 
.20 120x0u4 12001 720053b, 201 3620 15120 1172Q004B, 177461 7664 17 730 17742B 
./ 

OATA  (  (  (lCLOFF(l,J,K.),l  =  l,lo)  ,  3=3* 3 ) »  *=1» 1 )  / 

. 17 764200 152011020 117b, 201 5620 15420 15520 16 36, 202072020320303203666, 
•203522026520243202526 ,202062020320 16320 104B, 2 00 13 1 7735177 17 1767 5B , 

•  2o0?420010200241?745b« 17o3417  60517630176328, 176451764117  530174478 , 
.174oll74601753ll7643B, 177372005420276206426,206562070120707206708, 
.20? 7320462 203732032/6, 20355x0406204302046GB, 204652045223377 203 21 B, 
.2023720 12320 105x0 156b, 2016020x1420 14G2GG74B, 20047 1 7644176 72 177 35B 
./ 

OATA  ( ( ( ICLOFF ( 1 , J , K ) ,1=1, Id) ,3=4,4 ) ,*= l, 1 )  / 
.200522005520060200728,200612002720026200578,201402027520401203728, 
. 2032 52032 42033320275b, 20237^0 1632010120056B, 200011 7707 177 14 176458, 
•xC 1x0x0037 17776176708, 1/6311/57 4176X017606B  ,176231760517  532  176258, 
. 17 556l7o0 1176 11 177658,2002620242204462065 16,211012120221 103^10458, 
.210312075520613206018,206122064220714207248,207142066720631205468, 
.204572041520243 20210o, 20l53203172G27020204b, 201522005 120036 20042B 
./ 

OAT  A  ( ( ( 1C  LOFF ( 1, 3, K) ,1=1, Id), 3=5,5),*= 1,1)  / 

.  x  606  6x00  31x0063X0  i. 158*20146x0  15120  166202043 ,202032024020323  203  776  , 
.204742042320377203646,202702016120053200058,177542000417711177368, 

•  2022  72 01622 02 12202208 ,x02 01201 51 20 17 120 170b, 20 175 20 16220 155 20 2 508, 


.203532042320464205058  ,20o4321  05721 21521347B, 2 15532166322012220608, 
•2l63o2 1743217252 17248,2 17332 17322 17552 17448, 2 17412 17 3021 701 2 1647B, 
.2 16142 153 52 152 72 13 7 5b, 2 12 6021 1522 103 120 71 6B, 2055 32044420 322202 528 
./ 

DATA  (( (ICLOFFCI, J,K> ,1=1,18) ,3=6,6) ,K=1, 1)  / 

.2106 1210522103320677b ,2060120 531204672042GB, 2043420421204 77 20515B, 
.2055 72060520575205458 ,205002040120301 20224B.20144200772003017751B, 
. 20432204512044420436b, 20432204402043120452B,20474205102052520621B, 
. 20675207342104321 175b, 21333215532 175422 12  lb, 223522242422571 22735B, 
.22 47 1226142250722566b, 225 o322 36122544225268, 2257222675227 1322715B, 
• 2262 02257 522506223 75B, 223072^.17622026 217068,2 15132 140221316212248 
./ 

DATA  ( ( ( 1ClQFF( 1 , J,K) ,1=1,181 »  J=l»  l ) , K=2, 2 J  / 
.177771777717777177776,177771777717777177778,177771777717777177778, 
.177771777717777177778,177771777717777177778,177771777717777177778, 
. 17777177771777717777b, 177771777717777 17777B, 177771777717777 17777B, 
.177771777717777177778,177771777717777177778,177771777717777177778, 
.1 #777 17777 1777717777b, 177771777717777 17777 8, 177771777717777177778, 
.1/7771777717777177778,177771777717777177778,177771777717777177778 
./ 

DATA  1  (  ( 1CLQFF ( 1 , J, K) ,1=1,18) , J=2 ,2) , K=2 , 2 )  / 

.200352 000420030177746, 200032005220057200768, 2014020 13020 1212010  IB, 
. 20 103201 03 20 lu320 10^8,^002420 00 2 17 736 177438, 177662003 0200 162003 lB, 
.200311##66 17661176266, 17632176171 7600176028,17574175511752217511B, 
.1751017502 17535175548, 1.76601774720125203048, 20437204762040320342B, 
.203452020020003177166,177231775120065200748,201202012120131200448, 
.1777217 /401777520006b, 200001774617736176568,176401765317713176768 
./ 

DATA  (((1CLGFF(1,J,M  ,I=l,lb),J=3,3),K.=2,2)  / 
.200532006320120200606,200442006420061201278,201472017020247203078, 
. 2024520162^00 74CGG72B, 200552001420011200048, 20004200322001617777B , 
•20033200442003117757b ,1770617 62617610176078, 17571 1755617544174458, 
.17 52.21757217632177656, 2013120 2062034320667B,20726207132060720672B, 
.206722046420334202138,201772023320326203638,204152037120300202208, 
•20 14020 13 320 11 020 07 38, 20 12520 10220062 20 0378,200171777517737 177468 
./ 

OATA  ( ( ( 1CLQFF ( I , J,K) ,1-1, 18) »  8=4 ,4) , K=2, 2 )  / 

.20 16320202202362022 lb, 2056320 14520 11320 1406,2013220230203 51 204008 , 
.203732030620225201328,200732010120047200548,200332002220024200438, 
.20 1^42012620070200278, 17/64177521 773417725B, 177011765317 725 177 118, 
. I# 7201775120041202166, 202502044120666210058,210272105121045211368, 
. 2124 72l0752074o206lo8, 205^7 20 56520661 20o768, 20707 20o6320 5 70 20507B , 
.204322032320252202248,202302026020242202438,202222015220121201138 
./ 

OATA  ( ( ( ICLOFF ,1-1,16) ,8=5,5) ,K=2, 2 )  / 

. 206122113021107210318, 20351204252 044020435B, 204242042220470205338 , 
.20577^061120557204578,203252021620540204438,204412052120454200668, 
.2037 320460204664046 5b, 2047520 51 120522205278, 20551 2061520577 205728, 
.206122071120764210638,212242134221521216378 ,217442205222012221208, 
. 221402457 12206422 0666, 2214322 21522 163221076, 22 11122 05622026220008, 
.2 16622161521552214478, 213  >,54123721130210028,207242067620705200048 
.✓ 

OATA  (UiCLUFFU, 8, 10,1=1,18), 8=6,6), K*2, 2)  / 

. 21464214132  j.375215208, 212342123o2 11172110 18, 210442102421 053210  778, 
.211152111321077210308,207552066320571205158,204502042320363203318, 
.207662074420763207728,210062101221030210558,211072114221204212558, 
•2 133 12 137 12 14542 1564&, 2173 12204422 172 22320b, 2 242 122 544226 56 227778, 
.227562305323064230428,230052276322747227538,227762275622727227308, 


.22734227032263&22547B 

./ 

DATA  (  l  (1CL0FFU,  J,K> 
.17777177771777717777b 
,17777177771777717777b 
.17777177771777 1177776 
.177/717  777177774.7  777  3 
.17777177771777717777b 
.177771777717777177776 
./ 

Data  <((ICLQFF(ItJtlO 
.200332001620025200326 
.20132201012012120x336 
.200102002317774177656 
.177251772317754200326 
.20373x023320104200516 
.20 12620077 20020177756 
./ 

DATA  (  (  (ICLGFFdtJtK.) 
.204162016620164201506 
.2u32b202fa320243x0231b 
.201602013320134201376 
.200762012720215203146 
.407562062320360202348 
. 20 3o 1203032 01 702 013 16 
./ 

DATA  ( ( (ICLQFFt I, J.K) 
.205564060420336203348 
.204434041020417203206 
.202672026220255203046 
.203312037320441205446 
.213542114620770206546 
.206502053520437203228 
./ 

DATA  (  (  (  ICLUFF  (  I  *  J  »K.) 
.2x11 1410752110041077b 
.207324072720635205246 
. 2053o2057420b3520663B 
.2 1 1442 12132 132021444b 
.223722217721610421216 
.22043217442165121547b 
./ 

DATA  ( ( l ICLOFF ( I  *  J ,R) 
.2207 I2200221725xlb66b 
.21304212362115221044b 
.411302113621137211546 
.2X62621/102173721 /73b 
.232024317623166231576 
.23U5o247742270022640b 
./ 

DAIa  I  ( ( ICLOFF  ( 1  , J ,K ) 
.177771777717777177776 
.17777177771777717777b 
. 177771777717777177770 
.177771777717777177776 
.177771777717777177776 
.17777X777717777177776 
./ 


224572234422241221206,220012170121621215508 


1=1, 16) ,  J=l, 1) ,K=3  «  3 )  / 

177771777717777177776,177771777717777 17777B, 
1777  7 1777 il 7777 177776, 177771777717777177  778, 
177771777717777177776,177771777717777177778, 
17 77717/7717777177776, 177771777717777177 778, 

177771777717777177776,177771777717777177776, 
177771777717777177776,177771777717777177776 

1=1,161 t J=2,2) ,K=3,3>  / 

200522006720117201436,20147201712021220170B, 
400734ol5520ll420026B,200o62007o20x20200olB, 
177401774517741177016,177241772117672177306, 
2O1322021720304204766, 205342050120426203756, 
177742001520117202026,202254020520164201516, 
200262001620012177666 , 177561776017765 177b 26 

l=l,lb) ,0=3,3) *K=3,3)  / 

402122026720274202636,203112034420353203316, 
2021320 1552007620 11 3B ,201272006520067201 12B, 
401102007x20110200746,20060200542004420047B, 
2041320  50620675210506,211252110320746  206456, 
201762o22620317204l0B,2046320465204342043l6, 
201412014020075201028,200612005520047200526 


1=1,16) ,J=4,4) ,K=3,3)  / 

20345 203652 037 120 32 5 B, 2 03 7 3 2044 7 20 44420444B , 

202342022620 116200776 ,200732005720066201 15B , 
202442023o2026420252b,202472022o2022020271B, 
20702210622126621402B, 213742 13 14212 1721137B, 
2U57720574206372071 IB, 2076 12 101420 770207336, 
202742025020246202346,202252020520220202138 

1=1,16) .0=5,5) ,K=3*  3  )  / 

2X0b0 21 04120773207326 ,2072020742207  26  207 17 B, 
20372202702022620142b,20064200672010520167B, 

207 122U7522077020777B ,2 1013210222101521034b , 

21473x1 7162200622070b ,221512205022 1 35 2247b B , 
221702220122172222228,222132217222146221026, 

21440213552 126 1211508,21066210332D76720747B 

I =1 » 1 6 ) » 0=6 » 6 ) »K=3 , 3 )  / 

215572150521424213716,213272124721276213166, 

207332062420522205018,204672046120461204456, 

21176x122621273213378,213672140721447215418, 

220 13 22 110 2 2230 223 5 08, 2 243322 5 1422 5 65 22 6 76B  , 
2313023x2623127231248,23122x307323050230636,  ' 

225 7 7 22 5 122 x 40 7223 1 06, 2 2 150220 542 17b6 2173 56 


1=1,18) ,3=1,1) ,K=4,4)  / 

177771777717777177776,177771777717777177776, 

177771777717777177776,177771777717777177776, 
177771777717777177776,17777177771777717777b, 

177771777717777177776,177771777717777177776, 

177771777717777177776,177771777717777177776, 
177771 /7771777717777B,17777177771777717777B 
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OAT  A  (((ICLOFFt  1 , J,K) 
•  2007  5200632006520070b 
.200662004320062201470 
. 200472 0066 20Q7 5200608 
.201312015620172202126 
.2027 12020320112200516 
.201772015620111200676 
./ 

DATA  (  ((ICLQFFdfJtK) 
.203772036620355203608 
.202052030620133202218 
. 2017520204202 12202028 
.203352036620422204648 
.206372051520365203008 
.204652040520317202538 
./ 

DATA  (<(1CL0FF(1,J,K) 
.2053320527205242052O6 
.2u 33 42 0326 2033 520 3 2 5b 
. 203302032 120344203526 
.205222057720631207058 
.212012105620722206138 
.2077 12063420562205068 
./ 

DATA  )  t  ( ICUOFFd,  J,K) 

.21222212302123121247b 
. 207762075120666206146 
.205732064020712207568 
•213152141621506216146 
.22407223142215022112b 
.221o0221 132206121766b 
./ 

OATA  ( ( l ICLOFF ( I , J, K) 
.  221o322l462<cl3322105b 
.214222134721274211578 
.211222115321226213036 
. 22lUb2zl6722263223466 
.232532322523234232146 
.  2322  32320623145230546 
./ 

OATA  ( ( ( 1CMQFF ( I , 3 ,K) 
.204272044620473205256 
.21163212302127521304b 
.203562020020056176628 
,13555154441532115151b 
.X6O4 716147 1653317 1128 
.217*32202521752217116 
./ 

OATA  ( ( ( 1CM0FF 1 I  ,  J ,K ) 
.203472041220466205018 
. 21 166212442124021 2546 
.2042 12023220026176358 
.157041555115340151706 
.156161630516573170576 
.22041^13222022217466 
./ 

OATA  IU1CM0FFJ  1,J,A) 
.2042 12043 2204o5^05438 


1=1,18) ,J=2,2) , K=4, 4 ) 
201 lo20 11620 12120 16  IB 
201^42006220031200178 
2004420034200322002  58 
202332027320347204158 
1777320007200442011  IB 
200352004120044200328 

1=1,16) , J=3 ,3) »K=4»4) 
202462025420300202738 
202342016620107200658 
2020320 1752017 0201 65B 
205352062420725210008 
202132021620262203308 
202 1320 1602016320176B 

1=1,18) ,0=4,4) ,K=4, 4) 
203572040720414203748 
202752025220202201568 
203322033420344203368 
2104121 1622 12632135  OB 
205 642056220561206178 
204472036120355203266 

1=1,18) , J=5,5) ,K=4,4) 
212602124321223211738 
205222046320432204158 
21022210532107221077B 
217062177622066221536 
221 10221172206522066B 
216562156421462213766 

1=1 , 16 ) , 6=6 , 6 ) ,K=4, 4  ) 

>  22032  2 17462 167  321 64 *tb 
2  i. 1002  07632  067  7  2062  OB 
21357214102 147121543b 
224302242722476225708 
23223232362326723307b 
227662271722626225106 


/ 

,201542020520205201536, 

,200372007020044200066, 

,200302004620061200708, 

,204602046120414203678, 

,201352013420156202038, 

,200442003320020200308 

/ 

,203202037420403203236, 
,201172005720053200708, 
,202002021020230202518, 
,  2 10432 1 0532 1033 207 36& , 
,  204112045 12050320521B, 
,201702015720142201458 

/ 

,204672053620533204528, 
,201432012020140201336, 
,203312034320367204658, 
,214402142621344212318, 
,  2 0664207 322 10 20 2 10 30B , 
,2032520 30620307 2030 IB 

/ 

,211602112421075210468, 
,  203332025720225201 77B, 
,21123211652121421247b, 
,  222452232722257  22247B  » 
,221212211722161221556, 
,213 07 21227212 07 211 66 B 

/ 

,216112152621462214678, 
,2055320523204 75204758, 
,216062 166 12 1735 22 01 58 , 
,22642227132275222777b, 
,232662327423255232378, 
,224012226622156220758 


1=1,18),J=1,1),K=1,1)  / 

205 122047620537  205538 ,2066420727207 13210628 , 
21340214042 136 521247 8, 2 12 122 117 32 10 77 21 00 28, 
1744117 1571675616567B, 16421 16277 16076 160008, 
150631500415020151216,152361512615264155628, 
174071771220273206065,210642140221646217626, 
21667216002 1453212738, 2 11 75 2 076220646 20465B 


1=1, 18) »  J=2 , 2) , K=l, 1)  / 

205 112050320  5142065  OB, 2U76221041210672U04B, 
213532142121347212478,212072116321 120207568, 
17407172001704216666B,  164601632616167  *.6G46B, 
150731502414770150456,151621512715303155618, 
173611776420246205506,210512137221626217318, 
217312161321453213778,212712107320716206368 


1  =  1,18) ,J=3, 3), K=l,l)  / 

2055120oG2206502102 08, 2 1130212 1421323213608, 
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.2132021307212*1212746 
.  2026220103 1770317 61 16 
.  1511216*55 1623016064O 
» 15  7*0  lo26  5  1.652*167548 
.  22 01 122x5 1220 5021 7o2b 
,/ 

DATA  (  (  (  IC.M0FF  ( I , J,K) 
.20*2*20* 14 20503 20 5b 76 
.  21551^1377  21326213*26 
.20250200*6 1770017*706 
.156*215*3615176150606 
.160531631710*611667*6 
.2172321716217*3210676 
./ 

OAl A  { (11CM0FFU,  J,M 
.20*6620*37^0*6*2052^6 
.2151*21*5621*20213216 
.200211757*17*6*172576 
.15321151501*7*71*5706 
.1535*160*616*21167026 
.  21 lo22l2362 1222213 10 o 
./ 

DATA  C ( (ICMOFFt 1« J,K) 
■  202o0202222010*202ooB 
.213*7213*721267212576 
.  20 1*31 77*2 17*6217  2666 
.15361X5203150711503*6 
.  16300165301700317230B 
.2053*2053220621206666 
./ 

DATA  lt»ICMOFF(I,J,.U 
.406532062520707210076 
.  21  25  *2x3  1  521625212536 
.40523203012010717644b 
.  1530315102 1*75*1*6*26 
.153731610216*7*171*16 
.242052213522077220136 
./ 

DATA  (KlCMOFFd,  J,A) 
.206702066720776210236 
.213*12131721311213126 
.20*2620411 177671/54*6 
.  1562113100 1*7071*5316 
.155351612316*60170466 
.  24 13 322071 2 20o2 220 266 
./ 

DATA  IU1CM0FFU,  J,K) 
.  2 066520653 207 **21 03Cb 
.21*332133*21276413**6 
.20312201251766717*216 
.15463151011*676X45150 
.155*016116 I6*05l65o7b 
.2205*42025220*2217766 
./ 

DATA  (((ICMOFFUiJtM 
.  21 00*2U?302u7o22 10**6 
.  216632 1**02 132*2 1 3360 
.20271200*11762517*036 


213312135021277212**Bt2 1161 21 11321 027207366, 
17355 17 10316 750 16560B, 16*0* 16265161 16 15774B, 
1*7 631*600 1*6*31*6656, 1*713150 77152 7515652B, 
172521761720 1/1205066,2100021 2o52152521675B, 
2171221631215*121*1*6,2131*21150210352071*6 


1  =1 , 1 6 } , J=* , * ) , K  = 1,1) 
206472D7272 101 *21 065B, 
216354132121320212536, 
172701707316732165356, 
1*71 5 1*6301*53* 1*  56  5B, 
171 73 17  3*6201262050*6, 
2161021560215532]  136, 


211702 lol 62 140321507B, 
2121*2106520770206716, 
16*031625616107160026, 
147051511715306157036, 
207672122*21*72216366, 
2133*2117521103207*46 


l=l,la>,J=5,5>,K=lvl) 
40555206*321012211516 
213 172126221215211106 
17066 16652 16510 1632 5B 
1*3121*3331**061*2726 
171o*17*37 1777620242B 
213o 7213562 126621 066B 


,213*621*3721520215016, 
,  2 103620760205*120***B, 
, 1611016016 15 7201 55 73B, 
,1*353 1*520 1*7521522*B, 
,2 0*6*206*12073521 01 IB, 
,207772075*20705207316 


1  =  1,16) ,3=6,6) *  K- 1,1) 
20*012051620612207506, 
21310212022111*210176, 
1/0 36 16 701163*6 1636  IB, 
150 31 15 0061 503* 1506 3B» 
17351175X/17707200356, 
207  2020o7620o7520 6756, 


2107621170212*0212726, 
206732057020*11202356, 
16162 1603 11565215533B, 
151331531515513157316, 
201572025*2035320*508, 
2 07 15 20 62*20 576 205*7 B 


1=1,18) ,J=i,l) ,K=2,2) 
4106021 16*21 25 72131 3B 
2133*214*221*6521*338 
17*10171151673*165526 
i*6 30 1*6031*57 6 1*6 106 
174/017672202*6206328 
22012217**21 6*221 5008 

1=1,16) ,3=2,2) . K=2,2) 
21073211*121231213128 
21*0021*722146121*556 
17313170O 11 6671 16*7*6 
1*51*1*52*1*50*1*55*8 
172671 761720 17420507B 
22U1221 717216*62156  IS 

1=1, lb) , J— 3 ,3) ,K=2, 2 ) 
21105212012130521451b 
2137021*5621505214516 
17 1721675*16o06l65*0B 
1*426 1**37 14*731**1 78 
1705117*252005220*5*6 
21773217452 1637215526 


,212662130*21263212*06, 
,2 13732136321 25621102B, 
,163771620*1577*155*26, 
,1*66715056151*1 15506b, 
,2 113*21*5221 755222 12B, 
,21**321331212362073*6 


,21*662136621*12213626, 

,21**021*16213172115*6, 

,16303161**1600*155336, 

,1*70015065152*6155213, 

,2111*21*6*220034210*6, 

,21*602135321211211076 


,215302 15522 163321610B, 
,  2 1*3*2133621 231 2106*8  » 
,  162*31610215705155158, 
,1*6231503*15271155066, 
,210222 137021 670220 10b, 
,214302131121135211*56 


1=1, 18) , J=*,*) ,K=2,2)  / 

211732130521*1021*338,215*72160721666217336, 
2136021*2221*7221*27  8,213  552127021 15*2103‘t3, 
171*1 16 /311654116317b, 16 173 16U46 15601 15*556, 


.  153111507014667144456 
.1556716110164301645*4 
.217752174221706210048 

./ 

OAT A  (  (  ( ICMQFF t It JtK) 
.210442105221114211118 
•216x42160421475214353 
.20155 1773 017453 17 2 13B 
.152241 50 17 14643 14517b 
. 155o2 1577316307 16 5618 
.2 1167212 542 132 72 1^1 18 
./ 

0A1A  ( ( ( ICMQFF ( 1 , J ,K ) 
.20 540205 742 060 2 2 067 Ob 
.215432x476x1433213558 
. 2025 520o36 17622 1736 18 
.1530215233 15201151308 
.1012416360 16612170708 
.2 053 22060 22 o67 1207218 
./ 

DATA  ( ( (1CM0FF( 1, J,K) 
.212222132521440215638 

•  2x5  / i2l 553 2i5o221 5248 
.203442007017625173378 
•15005146141440514220b 
.155601604616420170420 
.22167222212213722117b 
.✓ 

DATA  ( ( ( ICMOFFI 1 , j,K) 
.212522131721440215368 
.2172  52 161 1215362 1536B 
.203142004017550172548 
.1502514613 14446142668 
.15527160521640716754b 
•22x232217122177221456 
./ 

DATA  (tdCMQFFtl,  JtK) 
.21231212452136321505b 
.2^.0432172121525215138 
.202171771317446171740 
.147721463514406142478 
.154731602516344105526 
.221142216222233222078 
./ 

DATA  (  (HCMOFFU,  J,M 
. 2121 221267  2135o2l4o08 
.220552167221545215178 
.201531765717410x71476 
. 1472O146031437 1142278 
.154621602216246163578 
.217442205022176221563 
.  / 

OATA  ( ( ( 1CM0FF( 1, J,K) 
.21207213012141U21422O 
.217352166121556216138 

•  20  0.6174 72 17230 16 7 7 68 
.147501455314355142768 
.157521617014322166738 


144121434314374144378, 
lo7 45x7310177242032  IB, 
217512167521630215350, 

1=1,16) ,J=5,5),K=2,2) 

211052112721251213708, 

214172134521276211668, 

16755105331634716141 B, 

144351444214464145138, 

16772172761761020102b, 

214422144XX1330212476, 

1=1,18), J=6, 6) ,K=2,2) 
207202073521016211348, 
213362162021212211003, 
17130 166731 6511 lo332B, 
15055 1503b 1507 115 16 58, 
172741745617606176758, 
x07 40x0 7 36 2 076  5207566 , 

1=1, 18) , J=l, 1) ,K=3 ,3 ) 
21OO6217102174521747B, 
>210072155021565215158, 
170601661416414162208, 
14140141431417614272b, 
173251751120017203608, 
220532201621762216608, 

l=l,lb)  ,J=2,2) ,K=3«3 ) 

216002165221715217466, 

2x6112161721564214708, 

17017165521632616136b, 

142061416714232143108, 

17W7 1741017714202478, 

221132204521770217038, 

1=1,16) ,J=3,3),K=3,3) 

2l5olxlo3521 727220226, 

215432155421527215076, 

167271650516311161068, 

14173141601422514324B, 

167241721417566201778, 

220702202021761216648, 

1=1,18)  ,J=4,4)  ,  1^=3 , 3  ) 

21o20 2170422005220033, 

2*5252147721420214208, 

166521645316215160148, 

141101411214125142658, 

165621706317463200638, 

2x103x2046217322167  IB, 

1=1,18) ,J=5,5> ,K=3,3> 

213/62145321535216228, 

2X4332134121217211103, 

165271627416113157028, 

143071442214472145128, 

1662417 1061737017702B, 


145421474315206155038 
2065621 16521474217158 
214232127721201211558 

/ 

215232163021677217018 
211012072120576204408 
157421560315475153768 
14543 1464615061153138 
203612054120714211 13b 
212472124021211211548 

/ 

2122421357214612 1477B 
2  0?  262 05662 0400202 058 
161331574315542153078 
153071544715627157648 
200372023020364204408 
2  07  36  2 10  2  720  7  3  5207  4  IB 

/ 

2l74221771xl7372l670B 
214442137321262211 14B 
16030 15664155 161 53 54B 
144171465215134154168 
207232127221631220648 
2 1 5452 144 72 13 56 2 12 2 7B 

/ 

220152202322044220238 
2 14462 14 1 3213 20 211 30 B 
160231566315433152663 
14451 14655151 37 15460B 
206532131021660x20248 
215712144721331 21225B 

/ 

220372207722143221328 
214212132021215210278 
157411555615341 151 51B 
144511466415204154778 
205242113221514217448 
215562141721314212378 

/ 

21 7712210022 13422 160B 
213052121121072207278 
156301544615272151008 
145031473315156154318 
204542100121342216318 
215502142321310212718 

/ 

2173122013220552x0116 
2 100420675205 5320400B 
154531533315174150728 
146701516315371155008 
202022044520720211608 


, 


, 
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ttmm iuAma. 


■MMiiiMgnMiaii 


.2  13532  15102  156  54  1612b 

./ 

DATA  (  (  IlCMOFF  1 1 ,  J,iO 
.406bl4u7212075  721071b 

•  A  A  54221474 2 141*41  3  24d 
. 200o517o21 1737*171 56 B 

•  15 06 1147 70 1476 11 50 00 6 

•  16026162 30 16473167240 
.205672064720706207320 
./ 

DATA  ( ( ( ICMCiPF  ( 1 ,  J,K) 
•21454215562170521773b 
.2155021533416154 1563b 
.2036120070 1735617  246b 
. 1453  314532 14154140446 
.1355516106 1645 3 170 5bb 
.22002221422222222260b 
./ 

DATA  (((1CMUFPU, J,K) 
«  2 147  2<.  13742 167121  75  7d 
.216032156721550213250 

•  203 j2200*7  17506172  13  d 
• 14336143351417114036b 
.155561610016376167450 
. 21733221122217322242b 
./ 

DATA  (  (  ( IcMOFFT  1,  J,iO 

•  2147  221 5332 lo*6217*3b 
.216312157721537213010 
.202331773217427171240 
. 1451014343 1421514070b 
• 1? 55 116054 16352 165 75b 

•  2i.o7o220o7  22220222*60 
.  / 

DA 1 A  (l ( 1CMUFFI l.u.N) 
.214612134121664220120 
.216^02153421503214750 
.20  lb  117705 173 711 7 120b 
.  1447 714340l424el4lG5b 
.  1552oioO<:H6255  1643  lo 
•2 154222 07022 142 2^225o 
./ 

data  u*icmupf(1,j,k) 
.214302130121534215560 
• 216672. o422 156o 2 13450 
.2002317506 1721516777b 
.  1460214433 1432 1142  34  b 
.155341577216137163236 
•21135213062 147721573b 
./ 

DATA  ( ( ( 1CM0FF ( 1, J,iU 
.2103121122212422132OO 
.215132151221436214050 
.20107176731742417211b 
. 1504414757 1467614643b 
.1601 716237 I6420l6o06b 
•2041 1.06112070020 750o 
./ 


2 135221 5102 143421 367b, 2 13342 133 121 2 5721307B 
1=1,16) ,J-6,o) ,K=3, 3)  / 

2 111321 1412 123621 3336,2137021451 21521 2 1533B, 
2124621 1672 11 1220763b, 20o402046720301 201 05B, 
io730 16527163 15 16130B , 157461557415422 152446 , 
150321506115114151710,153051546015637160156, 
171111726717431176143,177712012420254204028, 
20766210232103721101o,21127210712105721063b 

1=1 » 1 a ) » J=1 » 1 ) » K=4» 4 )  / 

220032 17752 17642 17 146,2165 121 6542162621 560B, 
2 16 302 16042 1 5602147 5b, 2 137 1 2132321 124 207 57 B, 
Ib7b0 16475 16273 16062B, 136561543015141 147 17B, 
137 5b 13 74414014 141 3 IB, 14305 1454615036 153 746, 
17300 1746 11 7o 7220 150B, 204222067221 136214656, 
222412216222133220556,217512164221504213468 

1  =  1,  18) , J=2,2> ,K=4,4>  / 

4l7*32166l2175421721b,2167421677217032l642B, 
216 12216212 1572 2151  IB ,2 14002126021 1^220774B, 
16734104401 622 1160306,156521540315131147428 , 
137751376114020141320,142711453515031153576, 
171 23173371 7572200040,20337205762117321505B, 
222322217222125220360,217352162321470213436 

1=1,18) ,J=3,3) ,K=4,4)  / 

217302172721775217766,217362174721766217238, 
215332161221535214330,213322120121051207340, 
16071 1641516177 15767b, 15630 15341 15071 147 13B, 
13763 1374214020 14130b, 1432314575 15030 15337b, 
16744171361 743717740b ,202322032321 1 0021442  b  * 
222 11 221342207422012b, 2 17212 156621 476213 17B 

1=1,16)  ,0=4,4)  ,1^=4, 4)  / 

2205522062220262 1757 B ,2 17432177422  01221763B, 
213072152321510214018,212442111620765206336, 
166261635616157157236,155201327715073 14656B, 
14007137511400314115b, 14301145271477015303b, 
16607 170501733717623 6, 201 752041421015 21304B, 
222 A 32 2 1 47 2 204o 2 175 4b, 2 16642 15732 146 5 21 3 53 B 

1=1, lo) , J=5 ,5 ) ,K=4,4>  / 

2 13 7 221 6 032 16 i 5 21 70 5B, 2 176 122 0032400421737B, 
4.14  T321  3772  12o621146B,  21002206702056520456b, 
lo466 162361 604615637B, 154411524215 Obi 14722B, 
14167 14 1 62 142 14 1430 5 B , 14420 1461315043153 lbB , 
16347167271715517405b, 177002011120450206608, 
2160421 570214652 14566,2 14072 1367214002 141 2b 

1  =  1,18)  ,0=6,o) , K  =  4»  4 )  / 

21346213502 14052 1462b, 2 15 142 152041520215 110, 
2 13412 124&2 11 53210326,207212055220421202406, 
167341646716252 16045 6 t 156701551115334152048, 
146461471715005150726, 151741534615557 16032B , 
167671713717301174506,176021777620127202726, 
2 102621 1052 11 37 21 1458,211 742117421150212008 
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DATA  t  (  (  ICNOFF  (  1 ,  J  »K. ) 
•11777177771777717777b 
. 1777717777 17777177 77B 
. 1777717777 1777717777B 
•17777177771777717777b 
. 17777177771 777717777B 

•  177771777717 17717777b 

./ 

DATA  tUlCNOFP(I,j,rf.) 
.201522014220121201368 
.177511775417701176668 
.2002 4200 322 002 120027B 
.261042010120107201155 
.177001777220007200476 
.17736177141772520003b 
./ 

OATA  (( (ICNOFFU, J,K) 
. 2030520^4220 ^14203 13b 

•  20 12  5200  76200  <:6 17735b 
•20071201322010420067b 
.20202<-0j.64c0163c015oB 
.17737200562012320170b 
. 1772217741 17777^00376 
./ 

DATA  ( ( ( ICNQFF ( 1 , J,K) 
.20512205352055520362b 
.C0c6*2G2242Gltl2GlG2b 
.20143201372012720117b 
.20226202322020520 173B 
.20034201162024120257b 
. 20012200 1G200 6620125b 
./ 

OATA  ( ( ( ICNQFF U , J ,K ) 
.21270213402137121355b 
.207402063420562205136 
.234352044620406203438 
•202402020720167201 51B 
.202512027620262203016 
.204352052220543205728 
./ 

OATA  (((ICNOFFU, J,K) 
•2 16442 17 16 2 17 50c 16 75b 
.21 3c 1212342 11662 11 32b 
•CU7iGc070420702cOo53o 
. 20  33  7203342033020331b 
.20277203442037*»20456b 
.212012124021255212558 
./ 

DATA  (((ICNOFFU, J,K) 
.177771777747777177778 
.177771777717777177778 
.17777177771777717777b 
.17777177771777717777b 
.177771777717777177776 
.1177717777 17777 177 /7d 
./ 

OATA  (  (  (  ICNOFFU,  J,K) 
.2020020 17 12017420202B 


1=1,18) ,J=1,1) ,K=l,l) 
177771 77 771 777717777B 
177771777717777177778 
17777 177 77 17777 1777 7 B 
177771777717777177778 
17777177771777717777b 
177771777717777177778 

1=1,18) , J=2 ,2) ,  K=l, 1 ) 
20123201052007020104b 
1766517b2 117577 17 5138 
200512003220031200368 
20156201462012020104B 
CU066200602003  517757B 
20017 20043200 67 20042B 

1=1,18) , J=3 ,3 ) »K=1» 1 ) 
2032620323203412031 16 
177321771317637176178 
2012320 11 220 150 20 150 B 
•202622012620053201018 
202112012620060200168 
200652010220117201436 

1=1,181  , «J=4, 4)  ,K=1,1) 

. 2054620 5342 054720 524B 
200^22003217752177 17 B 
201402014320205201728 
20162201312007 1201056 
c022420l7o2016lc0145B 
20173202232024420 266B 

1=1, lb), J=5 ,5 ) »K=1 , 1 ) 
21323212722117421115b 
20442  20434204  7420  52  48 
203  34204032  03  62203ft ! 6 
20 146  cO  147  20 13  5  20 14  3  3 
203*4203552040020^28 
2062720702207422103  IB 


/ 

,  177771777717777 17777B, 
,177771777717777177778, 
,177771777/17777177778, 
,17777177771777717777b, 
,  177771777717777177 77B, 
,  177771777717777 17777B 

/ 

,201052010220020200028, 
,200302002117615176138, 
,200522006 120 103  20074B , 
,200222005020070200008, 
,177251767417676177213, 
,200632002620053201078 

/ 

,202272024220221201426, 
,177341770017677177158, 
,2016 120 15020 14420151 B, 
,  200522006520067  20074B , 
,  20002 1776017730 17723B, 
,  2017220 1322023020272B 

/ 

,204242033420322203178, 
,17776200 1717775200 15B, 
,  2017020 15620 16O20227B, 
,201262012320135201436, 
,201152007120036200148, 
,203042031520377204568 

/ 

,211322 116 121 135210 51B, 
,205142042720444204558, 
,  203362035020332202 77B, 
,  2014520 153202 21 20265B, 
,204022041120412204228, 
,2  10362 106621 144212413 


1=1,18) , J=6 , 6 ) ,K=1,1)  / 

2164321 6132 156021471B,21420214222145121405B, 
210722 10422 102 721 06 5B, 2 106321 105210 73210643, 
COo 13 20 9412 050 7 2046  7b , 204432041320366  203o03 , 
203352033220305203128,203002024720271203608, 
2052320552206 172064 18,286752075121075211518, 
213 02 213172135021 42 68,2146221531216162 16 26B 


1=1,18),J=1,1) , K=2 , 2  )  / 

177771777717777177778,177771777717777177778, 
177771777717777 17777B, 177771777717777 17777B , 
17777 17777 17 777 17777b, 1777717777 17777 177776, 
17777 177771 77771 7777B, 177771777717777 177778, 
17777 177 77 17777 1777 7B, 177771777717777 17777B, 
17/77 177 77 1 7777 177778, 17777177771777717777B 


1=1,18)  ,J=2,2)  ,K.  =  2,2  )  / 

2U17720 16120 1322011 lb, 201 162007020057 200516, 


341 


.200252002520007177248 
.20016200 20 2005420112b 
.20l312Ul232GllG2uG*,56 
.177152000120024200616 
.177661772117732200216 
./ 

DAlA  (UlCNOFFdt  J»IU 
. 20402 2043 3 2043 22G 40 ?o 
.2015 72014020 103^00326 
.201322015120143201476 
. 20 1722016220 12 120 1026 
.177442011220154202026 
.177271773117777200778 
./ 

DATA  (  ((lCMDFFdt  JtK) 
.206022063720647206456 
.203212027620244201756 
.202672024020254202656 
•20247202412017620130b 
•20052^021420277202oob 
•20007200262010520215b 
./ 

DATA  (  (  (  ICNOFF  (It  J«M 
.21362213562134321366b 
.210622101120753207066 
•  2064  220560^.0562205466 
.203412026120225202146 
.20356204542040620420b 
.205432057420641206646 
-/ 

DATA  1 1 l ICNOFF l I , J ,&) 
.21747217622x754217156 
.214472140121343213036 
.211532115021120210456 
.204^52040120370203726 
•20460 205 10 205o320640B 
.212742127321331213646 
./ 

DATA  I ( ( 1CNQFFI It J,K) 
.177771717717777177776 
.177771177717777177776 
.177771777717777177770 
.177171777717777177776 
. 177771777717777177776 
.X 17771777717777177776 
./ 

DATA  I  tIICNOFFI  I,  J,K) 
. 202162021520^13202006 
.2017 1201 o52014420x206 
.20060200762012 1201416 
.201272012720131201136 
.177462002120061201126 
.200142002020052201 156 
./ 

DATA  (((ICNOFFt l.6*iO 
•204262044420440204156 
.203342033420274202426 
.201462015320221202436 


,177421771317674176556.176752010217643177038, 
,2010520 1232 0133201356, 201352013320 120201 376, 
,200562004420030200178,200071777520001177616, 
,20Golz0G5520001 177456, 17727 177 17177432000  IB, 
,  2U042  200752  0 1 1020065B, 201 1020 11 32010720 1136 

,1=1, lb) , J=3 ,3 ) ,K=2,2)  / 

,  204  222040320403203406, 203062023420242201 718 , 
,2002 12001020003 177456, 200001774317  761 20007 B , 
,20167202x220234202276,202222017520170202176, 
,200712007120057200116,200042000320003 177606, 
,201 7020 1232003 12000 16, 177701 7752 17 727 17734B, 
,201402017420202202166,202262025120263203066 

,1=1,16) , J=4,4) ,K=2,2 )  / 

,206 I520ol720534205556, 205042042420412203706, 
,2015020 10S2007720037 6, 20051201 1520 124201316, 
,203 042032020332203206, 203 112025020267202 43B, 
,201052006720047200516,200572006620066200528, 
,  2022420 1662 0 1422013 18, 20103 200oU2002620002B, 
,  20254203062 034420373B, 204032042620472205028 

,I=1,16),J=5,5),K.=  2,2)  / 

,21405213602 13042 12346 ,2 12322 124121 21 021 145B , 
,206 3320601205772062 OB, 20647 2063220633206 20B, 
,205362054?205o720550B, 205072046020436204026, 
,2017320 17620 17020164B,201622017b2024l20306B , 
,204452047020474205106,205162051520523205436, 
, 2072020 77021027210568, 2 110421 147212 142 1251B 

,  1=1 , 1 6 )  ,  J=6  ,6 )  ,K=  2 , 2 )  / 

,2174X2172121701216436,215662157121577215158, 
, 21275213222 131 121274b, 2 127621301212712125  5B, 
,  2 10 042 072 32 06632 U62 3 B, 2 056320 54620  514204756, 
,  20413204202040520 366B.20360203552037320462B, 
,  20706 20 7302 07742 1 02 5 B, 2 105 02 11 02 21 137212338, 
,213772141621433214706,215342160221662216458 

,1=1,16) ,J=1,1) ,K=3, 3)  / 

,177771777717777177776,177771777/17777177778, 
,177771777717777177776,177771/77717777177776, 
,  1 /7771777717777 177778, 177771777717777 17777B, 
,177771777717777177776,177771777717777177776, 
,177771777717777177778,177771 777717777 17777B, 
,1/7/71777717777177776,177771777717777177778 

,1=1,18) ,4=2,2) ,K=3, 3)  / 

, 2017420 1552014020 123B, 2015320 15020 156 202006, 
,201532006220027200456,200242000320016177448, 
,  2015020 1562 0 161 2015 56, 2015320 15220 13120134B, 
,200522003420030200038 ,17762 177 5 7 17746 1772 7B, 
,2013320147201362010 /B, 200222000420003200078, 
,  20135 20 1452014020144B, 201432014220 1 40201 43B 

,1=1,16) »  J=3 , 3 ) »  K=3, 3 )  / 

it 04 002035520353203356,203532033220331 203316, 
,2024020 16620 114200658,20 1312012720104200508 , 
.20254202702030420303B, 203022026620253202406, 
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.2023 1202402G266201578,2011S200622002717?76B,1?760177541?757 17747B, 
. 1776420055202 1 120234b ,202o020260202422020 lb, 20133200 7420054200478, 
. 2uG7320ll320 137202 126, 202542027120277203068,203122031 120316203256 

./ 

DATA  (  (  (1CNOFF ( I , J ,K)  ,1=1,18)  ,  J=4,4)  , K=3»3)  / 

•206552065320661 20 043b , 20o 15 20 575 2 0 533 20 54 5 B, 2054220 5 32 20 5 22 205 178 , 
.2050 12046420435204066 ,203602027420233202048, 202 162021620161 20173B, 
.2026 32027020316203 578, 20401204132042120416b, 2041320401203632033  lb, 
.2032 1203 132025620213b ,2015720 12620067200266 ,200222002420037200258, 
.200662025 520343^03678, 20666205662030220262b, 202562 022320 17620 1758 , 

•  20^420252203072034^6 ,204012043120447204728,204752050420522205178 

./ 

DATA  ( { ( 1CN0FF (l,J,K),l=l,lo) »  J=5 ,5) , K=3  *  3 )  / 

.21442214332140521411a, 21423213552 1316212768,212552125221233211658, 
.21134211 122107421 031b , 210 1020  #62207562075 4B, 2075420734207 1720666B , 
.207102065220653206568,206742067720702206718,206372062120572205328, 
. 2045 7204232035620 2758, 2027620^4320234 202358 *2021420 225203 13 2053 56 , 
•205712057120254205716,206032061720613206338,206562066620701207278, 
.207362076421006210238 ,2106021 1052 1132211438 ,2 11622 120321225212518 
./ 

DATA  (  (  (  IC.N0FF  ( 1 , J ,K)  ,  1=1  ,  lo  )  ,  J=6 ,6),K=3,3)  / 

•  2  <.00221 775 2175421 7068, 2173421 7322 1702 21 656 B, 2 161121 5752156321 5038 , 
.214652143621376213330,213252134121326212738,212672127121260212468, 
. 21233212042115421 126B, 210o6210202076520 73 18,207022065020o 15205748, 
.205512052220501204468,204362042120417204068,203712037120421204758, 
.206432066020677207320,207562100421035210678,211122114621223212668, 
.213322135021367213768,214062141121430214478,214552154521560215748 
./ 

DATA  l((ICNOFF(l,J, 10,1=1,18)  ,0=1, 1)  ,K.=4,4)  / 
.177771777717777177778,177771777717777177778,177771777717777177776, 
.177771777717777177776,177771777717777177778,177771777717777 177776, 
. 1777717777 17777 17777b, 17?77 1777717777 177776, 17777 1777717777 177778, 
.177771777717777177778,177771777717777177778,177771777717777177778, 
.177771777717777177778,177771777717777177776,177771777717777177778, 
.17177177 77 17777177776,17777177771777717777B, 177771777 717777 177778 
./ 

DATA  I ( ( ICNOFF (1,3, K) ,1=1,18) , J=2 ,2 ) ,K=4, 4)  / 
.2U2342023020227202066,20157201532016420150B,201542015420174202138, 

•  202262023620225201638 ,2016420 1442 01u2 2 0066 8, 20067200 5320047  200528, 
.200762010520121201438, 2015320 164201 562015  IB, 201542014320 131201258, 
.  201i.  62012620141201328, 20121^010720062200378, 200171777517771 177728, 
.200252004120065201106,201202013420147 201356,201212010520055200518, 
.200642006620137201558,201572016720174202008,202002017220162201758 
./ 

DATA  ( ( ( 1CNCFF ( I , J ,K ) ,1=1, la) , J=3, 3) , K=4, 4 )  / 
.20450204452043020o766,20360203352031420334B,2034220331203412037lB, 

•  2040420367 2036020314a ,203 1720 32120 247202108,26 15620 16020 132 2006 28, 
.201672021620255202758,203032031620325203148,202732025720236202338, 
.202122022020234202258,201742014120115200658,200372001620010200148, 
.200772015520212202408,202632027520276202708,202432020020140201268, 
•2015020177202602031^6  ,  <;G33  520  346203552035  7  B, 20372  2037320372  203  7SB 
./ 

DATA  (  (  (  ICNOFF (  1 ,  J  «lO  ,1=1 ,18)  »  J=4  ,  *t )  »K=4»4)  / 

. 2067 720oo52063320603B,2U5702055120536 205236, 20517 2052220522205338, 
.2052o204o620477204530,20465204532040420313B, 2031220311202 73202338, 
.202722031520364204158,204342045320457204506,204162037520362203338, 
.203312032020314203006,202412020320155201156,200712006620077201048, 

•  20176202622034520356b ,203732057420406203778 ,203542033 1202  55202328 , 
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JJJJJU  OJJ  O  <~t  O  O  J  Ju  o  -J 


.20242*032420402204446,204762053520550205606,  2056620571205  77  205703 

./ 

DATA  ll  dCNCFF  (I,  J,K) ,1*1, id),J=5, 5),K=4,4)  / 

.214 73214562143521406b, 2l3o0* l 3252 12 7621274b, 2 12432122421200211648, 
.21 17321 156211322 11068**1105216642 104221 04 28,210362102621 01520766 B, 

•  207222073020757207358  ,  207  26*0  746  2075420  7468*  207262071 1206562060  IB « 
.20530204602041420360b,26346203432034620342B,203352033b203452036?8, 
. 2054 7206 112063520642b, 2064420O6220O7020707B, 207172073520 76520773B, 
. 210202104121067211 22o, 21170212212 1 23721275B, 2 13202 13322 13402 1344B 
./ 

DATA  ( ( ( 1CNQFF ( I , J ,K ) ,1=1,16) , 0=6 ,6 ) »K=4»4)  / 
•22065220572202021754b ,217 o3 21 75421734217148,2 1660 2 162421 600 2 156 IB , 
.2154221522215012 1430b ,2 14502 14352 14142 14048 ,21 35021 34121 333 21303B, 
.2 1232212 162121021 174b, 2114521 1262107 121036B, 210 132076520730207 03B, 

•  2064 1206132057620 5b 3B, 2054520 52U205U620 50  IB, 205052047620502205 13B, 
•20700*07 34207672 10126, 210412 10662 11 102 11358,2 11612123421 3 10*13668, 
.2141 4214712152021 5448, 2154 721 54121 5452155 7b, 2 1574216102167321647B 
./ 


**************************** 

*****  INITIALIZATION  ***** 

**********************  ****** 

IF(ICCAl.NE.a)  GO  TO  40 

SfcT  CERTAIN  ON IN IT iALlZEu  PARAMETERS  TO  ZERO  . 

00  5  1=1,3 

IFIXEMdJ.hQ. 0.99999)  XtM(II  =  0 
IF(SRAd). EG. 0.99999)  SRA  (I  )  =  0 
00  5  J-l  ,  3 

1 F I  USA ( J , I ) . EO .0 .99999 )  QSA(J,I)  =  0 

IFlOFF.fcQ. 0.99999)  OFF  =  i. 

1FI0P. tG. 0.99999)  OP  =  1. 

IFUrfS.fcu. 0.99999)  ZWS  =  0 
IF (COX. EG- 0.99999  I  COX  =  O 
lFitCX.EQ. 0.99999 )  ECX  =  1. 

IMfcCY.EQ. 0.99999)  fcCY  *  1. 

IFltCZ.EQ. 0.99999)  ECZ  =  1. 

IF (CLP.Ew. 0.99999 )  ClP  =  0. 

IF (CMQ.tQ .0.99999 )  CMQ  =  0. 

IF(CNR.tQ. 0.99999)  CNR  =  0. 

IF(RON.cQ. 0.99999)  RON  =  0 

SET  UP  CONSTANTS  FOR  THE  BOUNORY  LAYER  PLANE  EQUATION 

CONS ( 1 )  =  CONS( 2)  =  0 
CONS (3 )  =  1. 

SfcT  UP  Tht  CENTR010  VECTOR  . 

CtNlil)  =  COX 

CfcNT (2)  =  CENT (3)  =  0 

OtTtkMlNt  THE  HY0KAUL1C  OlAMfcTtR  . 
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HD  =  SQRT(4.*S/3.141B9) 

CALCULATE:  THE  CENTROID  TABLE  . 

00  10  1=1,20 
10  TCZ(I)  =  0 
WRITE (o  » 15 ) 

IB  FORMAT (//5X, * -  CENTROID  TAbLE  CALCULATED  FOR  COMPONENT*, 

.  *  AS  - *,//l6X,*LENGTH*,BX,*CENTR0ID*/) 

NT At  =  TAE (2) 

OU  20  1=2 , NTAE 
K=NTAE+2+l 

20  TCZIl)=(TCZ(I~l)*TAE(K)+.5*(TAt{K+i )— TAE  (  K  )  )  * 

.  (TAEC3*l)*TAt(2*in  )/TAE(K*l) 

WRITE (6, 30)  (TAE( 1*31 ,TCZ 1 1 ) , I =1,  NTAE ) 

30  FORMAT (16X,FB.2,L0X,F7.4) 

ALPHA  =  BETA  =  VMACH  =  Q  =  EXL  =  EXA  =  0 
CX  =  CY  =  CZ  =  CL  =  CM  =  CN  =  0 


ZERO  OUT  THE  AERO  FORCES  AND  TOR DUES  . 

40  00  BO  1=1,3 

BO  Fill  =  TCI)  =  0 

BYPASS  ROUTINE  DURING  STEADY  STATE  WITH  THE  RAIL  COMPONENT  IN  THE 
MUOEL  . 

IF  UNST.EQ.31  .AND.  OFF.EQ.O)  GO  TO  110 

IF  (OFF.EQ .1 . )  GO  TU  bO 

CALCULATE  XEM  IN  THE  AIRPLANE  SYSTEM  . 

CALL  VECXYZ  ( XEM A  ,XtM, SRA , USA ,2 ) 

CHECK  TO  SEE  IF  SfcAT  HAS  PENETRATED  THE  BOUNDRY  LAYER  . 

1FUMS*UP.LE.XEMA(3)*UP)  GO  TO  110 

CONVERT  FROM  DEGREES  TU  RADIANS  . 

60  DO  TO  1=1,3 
10  ESTlKil)  =  EST(I)  *  RPD 

OETERMINt  ATMOSPHERIC  PROPERTIES  . 

CALL  ATMOS  (VS, RHO, -SRPI3) ,UW, 0,0,0) 

PUT  THE  WIND  INTO  THE  BODY  COORDINATES  . 

CALL  UIRCOS  ( DES, EST1R) 

CALL  MATMPY  (UWB,DES,UW,3,3,1 ) 

C 

C  A DU  THE  WIND  VELOCITY  TO  THt  SEAT  VELOCITY  . 

C 
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UOll)  =  UST(1)-UWB(1) 

UO  (2 )  -  UST ( 2 )— UWb ( 2  > 

UO (3 )  *  UST ( 3  )— UWB (3 ) 

DETERMINE  THE  AERO  VE AR1 ABLEs  . 

lHuOl  1)  .EQ.G.0.AN0.UG(3)  .EQ. 0.0)  00(1)  =.01 
ALPHA  =  ARTAN21U013) *00(1 ) )*0PR 
CALL  COT  PRD  ( VBAR2,Uu,U0,3> 

VBAR  =  SQR T ( VBAR2 ) 

BETA  =  aSIN (00 ( 2 ) /V6AR)*DPR 
VMaCH  =  VBAR/VS 
0  =  .&  *  RHO  *  V&AR2 

PERFORM  TABLE  LOOKUP  PUR  AERODYNAMIC  COEFFICIENTS  . 

TBLALPH  =  ALPHA 

1P(ALPHA  .LT.  0.0)  TbLALPH  =  ALPHA  ♦  360.0 
TBLoETA  =  ABS(BETA) 

IF  (RON.EQ.O.  )  CALL  TLU  (1CX0FF,  72, 6, 4,ALF,  BET,  AMACH,  TBLALPH, 

.  TdLBETA, VMACH, COEF ,6) 

1 F (KON.NE . 0 • )  CALL  TLU  (ICXON ,72,6 ,4, ALF, BET, AMACH, TBLALPH, 

.  TbLBETA, VMACH, CQEF, 6) 

CX  =  LOtF(l) 

CY  =  — COEF ( 2 )  *  S 1 GN (L.tBETA) 

C/  =  COEF ( 3) 

CL  =  -C0EF<4)  *  SIGN I l.,BETA) 

CM  =  C  OE  F  (  5  ) 

CN  =  —COEF (6 )  *  SIGN(l.,BtTA) 

BYPASS  EMlRGE  CALCULATIONS  IF  SEAT  is  OFF  RAILS 
I F (UFF.EQ. 1. )  GO  TO  90 

****«.«..•***•****«**%******•*%♦*«****♦**♦********♦**♦»*♦***•**** 

♦*  CALCULATE  THE  AERODYNAMIC  FORCES  AND  TORQUES  ACTING  UN  ** 

**  THE  SEAT/MAN  AS  IT  IS  EMERGING  FROM  THE  AIRPLANE  .  ** 

A*************************** ************** ******************** 

CALCULATE  the  SEAT  L- AXIS  UNIT  VeCTOR  DIRECTION  COSINES  WITH 
Respect  tu  the  airplane  system  ...... 

00  bC  1=1,3 
60  OCU)  =  OSA  (1,3) 

CALCULATE  THE  POINT  OF  INTERSECTION  BETWEEN  THE  BOUNORY 
LAYER  PLANE  AND  THE  LINE  THAT  BOTH  PASSES  THROUGH  XEMA  ANO 
IS  PARALLEL  WITH  THE  SEAT  SYSTEM  L  AXIS  . 

CONS (A)  =  -LWS 

CALL  LlNEPL  ( XI , CONS, XEMA ,UC ) 

DETERMINE  THE  SEAT/MAN  EXPOSED  LENGTH  . 

EXL*SQRI((Xi(l)-XEMA(l)>**2+lXll2)-XEMA(2) ) **2* ( XI ( 3 ) -XEMA ( s) 1**2) 
CALCULATE  THE  EXPOSED  AREA  FROM  THE  TABLE  . 
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EXA  «  TBLUl(EXL,TAE(4l,TAt(NTAE*4) ,1,-NTAE) 


C 

C  CALCULATE  THE  AERO  FORCES  FROM  THE  AERO  COEFFICIENTS.  THE 

C  EXPOSED  AREA.  AND  THE  EMERGENCE  COEFFICIENTS  . 

C 

QAREA  =  Q  *  EXA 
FI  1)  =  CX  *  WARE A  *  ECX 
FI  21  =  CY  *  QAREA  *  ECY 
FI 3)  =  CZ  *  QAREA  *  ECZ 
C 

C  CALCULATE  The  Z-AXIS  POSITION  OF  the  CENTROID  . 

C 

CENT (3 )=X£M(3 l-SI GN| 1 . »XtM( 3) )*TBLU1 ( EXL, TAE (4) ,TCZ t I I , l ,-NTAE ) 

CALCULATE  THE  RAIL/SEAT  TORQUES  . 

CENT  111  =  CDX 
CALL  CKSPKO  IT, CENT, F) 

GO  TO  LiO 

✓/✓/////////////////////////✓//✓//////✓/////////////////////// 

ADD  DAMPING  TERMS  FOR  aN  AIRSPEED  GREATER  THAN  .1  FT/SeC 

>  IF (VbARaLEaG.il  uG  TO  100 

HDU2V  a  HD/ IVbAR+V&AR) 

ADD  ROLL  DAMPING . . 

CL  *  CL  ♦  CLP  *  WSTUI  *  H002V 

AGO  PITCH  DAMPING  . 

CM  a  CM  ♦  CMQ  *  WSTUI  *  HD02V 

AUO  YAM  DAMPING  ...... 

CN  =  CM  ♦  CNR  *  WSTC3)  *  HD02V 

COMPUTE  THE  AERO  FORCES  AND  MOMENTS  ABOUT  THE  SRP  . 

100  QS  =  Q  ♦  S 

Fill  a  CX  *  QS 

FI2)  a  CY  *  QS 

FI 31  =  CZ  *  QS 

Till  =  CL  *  QS  *  HD 

TIE)  =  CM  *  QS  »  HD 

TI3I  =  CN  *  US  *  HO 

C 

110  RETURN 
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SUBROUTINE  CS  ( Al L , AlLDQT , I  AIL, ELE « tLEDOT , I ELfc, RUO, RUDOOT , IRUO , 
.  COA,TCA,TOA»CQfc»TCE,TOE,COR,TCR,TDR,TRM) 

C 

C  -  EASIfcST  AIRPLANE  CONTROL  SURFACE  COMPONENT  - 

C 

C  DESlGNtu  bY  C.L.  McST 

C  LAST  MODIFIED  -  DECEMBER  6,  1980 

C 

c 

L  ***************  CS  OUTPUTS  *************** 

c 

AIL  -  AILERON  OEFllCT ION  FROM  TRIM  POSITION  (DEG) 

AILOOT  -  AILERON  RATE  (DEG/SEC  I 
1A1L  -  INTEGRATION  CONTROL 

ELt  -  ELcV ATOR  DEFLtCT ION  FROM  TRIM  POSITION  (DEG ) 

ELEDOT  -  ELEVATOR  RATE  (DEG/ SEC) 

IELE  -  INTEGRATION  CONTROL 

RUO  -  RUDDER  DEFLECTION  FROM  TRIM  POSITION  (DEG) 

RuOOOT  -  RUDDER  RATE  ( OtG/SEC ) 

IRUO  -  INTEGRATION  CONTROL 

***************  CS  INPUTS  *************** 

COA  -  A  ILtRON  COMMANDED  POSITION  (DEG) 

TCA  -  AILERON  TIME  CONSTANT  (SEC) 

TDA  -  TIME  DELAY  AFTER  WHICH  THE  AILERON  RATE  IS  CALCULATED  (SEC) 

COE  -  ELEVATOR  COMMANOtU  POSITION  (DEG) 

TCE  -  ELEVATOR  TIMc  CONSTANT  l SEC) 

TOE  -  TIME  DELAY  AFTER  WHICH  THE  ELEVATOR  RATE  IS  CALCULATED  (SEC) 

COR  -  RUDDtR  COMMANDED  POsTION  (DEG) 

TCR  -  RUDDER  TIME  CONSTANT  (scC) 

TOR  -  TIME  DELAY  AFTER  WHICH  THE  RUDDER  RATE  IS  CALCULATED  (SEC) 

TRMI4 )  -  AIRPLANE  THRUST  AND  CONTROL  SURFACE  POSITIONS  AT  TRIM 
TRM(I)  -  ENGINE  THRUST  (LB)  —  NOT  USED  — 

TRM(2)  -  aIlERON  POSITON  (DEG) 

TRM( 3 )  -  ELEVATOR  POSITION  (DEG) 

TRM(4)  -  RUDDER  POSITION  (DEG) 


DIMENSION  TRM  (4) 

COMMON  /CT1ME/  TIME 

COMMON  /C1CCAL/  1CCAL 

COMMON  /CiU/  lREADtlWHlTEflOIAG 

**************************** 

*****  INITIALIZATION  ***** 
**************************** 

IF(ICCAL.NE.l)  GO  TO  10 


IF (COA. EW. 0.99999)  COA  =  0 
IF(COE. EQ.C. 99999  )  COt  =  0 
IF (COR. EG. 0.99999 )  COR  =  0 
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IFCTCA.EQ. 0.99999)  TCA  =  0 
IFITCt.tQ. 0.99999)  TCk  *  0 
IFtTCR.EQ. 0.99999)  TCR  =  0 


C 

IF CIOA. Eg. 0.999991  TOa  =  G 
IFfTDb.EQ .0.99999 )  TOE  =  0 
lFCTDR.EQ. 0.99999)  TDR  =  G 

//////////////////////////////// 

*****  AlLtRON  ***** 

10  IF  (TCA.LE.O)  AIlO  =■  0 

IF (TCA.GT.O )  CALL  LAG  ( Al LD ,CQA, Al L ,TRM ( 2 ) ,TC A, TIME ,TDA ) 
IF (IA1L.NE .0)  AILUOT  «  Al LG 

*****  ELtVAT  OR  ***** 

IF(TCt.LE.O)  ELtD  =  0 

1FC 1CE.GT .0)  CALL  LAG  (ELED,CQttELE#TRM(3) , TCE, TIME, TOE ) 
IF  1 1ELE.NE .0 )  ELEOOT  *  ELtD 

*****  ROOutR  ***** 

lF(TCR.LE.O)  RUDD  =  G 

IF (TCR.GT.O)  CALL  LAG  (RUDD# CQRtRUD»TRM (4 ) »TCR» TIME  » TOR) 
IF ( 1KUG.NE .0 )  RUOOUT  =  KUDO 
C 

RETURN 

END 


i 
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SUBROUTINE  CT  (TCP, 

.  tF »EFDQT»1EF ,EL,ELUOT, IEL, WK»WKDOT» IWK, 

•  WB f WtibOT, 1 Wb , 

.  FL , FQN ,FCA ,TCA , FCS ,TCS  «CF,CEX«  CV«  TLO ,PC  «R ,CVH, TSO, 

.  FSQ ,SW ,UP, SAP , AAP, UCLtCSK, VI ,PA ,PT  »CBP  *  C, C I » PMW ,  SK  , 

.  CK,GAM,TF,C 1,C2,B,BXP, TI , TOE, SRPtUST, EST, WST,XAP , 

.  UAP,EAP,WAP) 

**************  EASltST  CATAPULT  COMPONENT  ********** 


DESIGNED  bY  C.L.  WEST 

LAST  MOO I FI EO  -  DECEMBER  6,  19B0 

FORCES  AND  MOMENTS  ACTING  ON  THE  VEHICLE  AND  THE  SEAT  FROM 

a  closed  Telescoping  tube  catapult 
***************  catapult  tables  *************** 

TCP  -  CATAPULT  PROPELLANT  CONSUMPTION  TABLE 

THE  INDEPENDENT  VARIABLE  IS  THE  PROPELLANT 
WEB  CONSUMED  (IN)  AND  THE  DEPENDENT  VARIABLE 
IS  THE  PROPELLANT  CONSUMED  (SLUGS) 

***************  CATAPULT  OUTPUTS  *************** 

INTERNAL  FRICTION  ENtRGY  . 

EF  -  INTERNAL  FRICTION  ENERGY  (FT-LB) 

EFOOT  -  INTERNAL  FRICTION  ENERGY  RATE  (FT-LB/SEC) 

1EF  -  INTEGRATION  CONTROL 

HEAT  LOSS  . 

EL  -  HEAT  LOSS  (FT-LB) 

ELDOT  -  HEAT  LOSS  RATt  (FT-LB/SEC) 

1EL  -  INTEGRATION  CONTROL 

CATAPULT  WORK  . 

WK  -  CATAPULT  WORK  (FT-LB) 

WKDQT  -  CATAPULT  WORK  RATE  (FT-LB/SEC) 

INK  -  INTEGRATION  CONTROL 

propellant  web  burned  ...... 

Wb  -  PROPELLANT  W^B  BURNtD  (IN) 

WbDOT  -  PROPELLANT  Wto  BURN  RATE  (IN/SEC) 

IW6  -  INTEGERAT ION  CONTROL 

FL  -  CATAPULT  MODE  FLAG 

0  *  PRIOR  TO  INITIATION 
1  =  CATAPULT  IGNITION  UP  TO  STRIPOFF 
C  -  CATAPULT  STRIPOFF 
3  *  CATAPULT  OFF 

F ON  -  STRIPOFF  FLAG  FOR  SUSTaINER  ROCKET  COMPONENT 

(i  =  ROCKtT  ON) 
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PCA( 3)  -  XyYyZ  AIRPLANE  BODY  AXIS  FORCE  COMPONENTS  OF  THE 
CATAPULT  ON  THE  AIRPLANE  (LB) 

TCA( 3 )  -  XyYyZ  AIRPLANE  BODY  AXIS  TORQUE  COMPONENTS  OF  THE 
CATAPULT  ON  THE  AIRPLANE  (FT-LB) 

FLS( 3 )  -  XyYyZ  SEAT  ttOOY  AXIS  FORCE  COMPONENTS  OF  THE 
catapult  on  THt  seat  (lb) 

TCS( 3)  -  XyYyZ  StAT  BODY  AXIS  TORQUE  COMPONENTS  OF  THE 
CATAPULT  ON  THE  SEAT  (FT-LB) 

cf  -  catapult  force  magnitude  (lb) 

CtX  -  CATAPULT  EXTENSION  (FT) 

CV  -  CATAPULT  EXTENSION  VELOCITY  (FT/SEC) 

TLO  -  INITIAL  LENGTH  OF  CATAPULT  PRESSURE  CHAMBER  t IN » 

PC  -  CIRCuMFtRtNCfc  OF  CATAPULT  PRESSURE  CHAMBER  (IN) 

R  -  GAS  CONSTANT  (FT-LBF/SLUG-K ) 

CVH  -  CONSTANT  VOLUME  SPECIFIC  HEAT  ( FT-LB F/SLUG-K) 

TSO  -  CATAPULT  STR1POFF  TIME  (SEC) 

FSO  -  CATAPULT  FORCE  AT  STRIPQFF  (LB) 

***************  catapult  inputs  *************** 

S W  -  FLAG  FUR  CATAPULT  IGNITION  (  1  =  CATAPULT  ON  ) 

UP  -  EJECTION  DIRECTION  FLAG  WRT  THE  AIRPLANE 
♦1  =  UPWARD  EJECTION 
-1  *  DOWNWARD  EJECTION 

SaPIs)  -  Scat  ATTACHMENT  POINT  FOR  THE  CATAPULT  (FT) 

C  AAP( 3)  -  A 1RPLANE  ATTACHMENT  POINT  FOR  THE  CATAPULT  (FT) 

C  UCL  -  UNLOADED  CATAPULT  LENGTH  (FT) 

c  csk  -  Catapult  stroke  (ft) 

C  VI  -  INITIAL  FREE  VOLUME  (IN**S) 

C  PA  -  PISTON  area  ( IN**2) 

C  PI  TANG  RELEASE  PRESSURE  (LB/IN**2) 

L  CBP  -  CATAPULT  BURST  PRESSURE  (LB/IN**2) 

C  C  -  MASS  OF  TOTAL  PROPELLANT  (SLUGS) 

C  Cl  -  IGNITER  PROPELLANT  MASS  (SLUGS) 

t  PMW  -  PROPELLANT  MOLECULAR  WEIGHT  ( LB/ ( LB-MOLE ) ) 

C  SK  -  CATAPULT  SPRING  CONSTANT  (LB/FT) 

C  CK  -  CATAPULT  DAMPING  CONSTANT  (LB/FT/SEC) 

c  gam  -  ratio  of  specific  heats 

C  Tr-  —  CONSTANT  VOLUME  FLAME  TEMPERATURE  (DEG  K) 

C  Cl  -  FRICTION  PROPORTIONALITY  CONSTANT 

C  C2  HEAT  LOSS  CONSTANT 

LB-  bURN  RATE  PROPORTIONALITY  CONSTANT  ( IN/SEC/ ( LB/IN **2 )  ) 
L  BXP  -  BURN  RATE  EXPONENT 

C  II  -  CATAPULT  TeMPEATURE  PRIOR  TO  IGNITION  tDEG  K) 

C  TOE  -  CATAPULT  FORCE  DECAY  TIME  (SEC) 

C  SRPI3)  -  X,YyZ  EARTH  SYSTEM  POSTION  VECTOR  OF  THE 

c  seat  reference  point  (FT) 

C  USTC3)  -  XyYyZ  Scat  BOOY  AXIS  VELOCITY  VECTOR  OF  THE 

C  SEAT  (FT/SEC) 

C  EST( 3)  -  EARTH  TO  SEAT  EULcR  ANGLES  (DEG) 

L  WST ( 3 )  -  XyYyZ  SEAT  BODY  AXIS  ANGULAR  VELOCITY 

C  OF  The  SEAT  (DEG/SEC) 

L  XAP( 3)  -  XyYyZ  EARTH  SYSTEM  POSITION  VECTOR  OF  THE 

C  AIRPLANE  (FT) 

C  UAP(3)  -  XyYyZ  AIRPLANE  bODY  AXIS  VELOCITY  VECTOR  OF 

C  THE  AIRPLANE  (FT/SEC) 

C  CAP(S)  -  EARTH  TO  AIRPLANE  EULER  ANGLES  (DEG) 

C  WAPI3J  -  XyYyZ  AIRPLANE  BODY  AXIS  ANGULAR  VELOCITY 
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OF  THE  AIRPLANE  (DEG/SEC) 

DIMENSIONS  OF  CALLING  ARGUMENTS  . 

DIMENSION  FCA(3) ,TCA(3) ,FCS(3) ,TCS ( 3 )  , SAP ( 3 ) ,AAP(3) , 

.  SRPC3) ,UST(3),EST(3),WST(3) , XAP { 3 ) , UAP ( 3 ) , 

.  EAP(3),WAP(3) 

INTERNAL  dimensions 

DIMENSION  DES<3,3)  ,OSE( 3, 3 ) ,OEA( 3 , 3),DAt( 3,3) , 

.  SAPE ( 3 ) t  AAPE(3 ) f DAL (3 ) , EXT ( 3) ,USAPE(3> , 

.  UAAPE ( 3 ) ,CDV( 3) ,FCP ( 3 1 , FSS ( 3) ,FSD(3), 

.  FC(3),CAUV(3),EST1R(3),WSTIR(3),EAPIR(3),WAPIR(3) 

COMMON  /  CTIME  /TIME 

COMMON  /  CICCAL  /  ICCaL 

COMMON  /  COVRLY  /  INST 

COMMON  /  CSSFLG  ✓  SSFLG 

COMMON  /  CIO  /  IREADf 1 WRITE  tlOlAG 

DATA  RPO  /  .01745329  / 

*****  INITIALIZATION  ***** 

************************  **** 

IF ( ICCAL .NE. 1 )  GO  TO  10 

COMPUTE  lHE  INITIAL  LENGTH  (TLO)  AND  CIRCUMFERENCE  (PC)  OF  THE 
CATAPULT  PRESSURE  CHAMBER  . 

TLO  =  Vl/PA 

PC  =  2*SURT(3.14159*PA) 

CALCULATE  the  GAS  CONSTANT  (R)  AND  THE  CONSTANT  VOLUME 
SPECIFIC  HEAT  (CVH)  . 

R  =  69475. 694/ PMW 
CVH  =  R/ (GAM-1 .0  ) 

TYPE  *  SHCAT APULT 
CF  =  FL  =  TSO  =  FSO  =  FON  =  0 
1F(0P.EQ. 0.99999)  UP  =  1.0 
IFdLE.EQ. 0.99999)  1UE  *  0 

DO  3  1=1,3 

5  FLAT  I)  =  TCA(l)  =  FCS 1 1 )  =  TCS(I)  =  0 

****************************************************** 


BYPASS  THE  REMAINING  CODE  IF  THE  CATAPULT  IS  PAST  THE 
STR1P0FF  POINT  . 

10  IF (FL.EQ.3. )  GO  10  170 

FCP(l)  =  FCP ( 2)  =  FCP ( 3 )  =  0 

CHANGE  ANGULAR  STATES  FROM  OcGREES  TO  RADIANS  . 
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00  20  1=1,3 

EST1R(1)  =  ESI ( 1 )  *  RPD 
MSTlR(l)  =  wST ( 1 )  *  RPO 
EAPlR(l)  =  EAP<1)  *  RPD 
20  MAPlR(l)  =  MAPI  1 )  *  RPD 
L 

C  ♦*♦**»♦*♦♦*»♦**♦***♦******♦*»»♦*********♦♦***♦♦***»****** 


c  *  * 

C  »  DE1ERM1NE  THE  VARIABLES  CALCULATED  FROM  THE  * 
C  *  EAR1H  POSITIONS  OF  THE  AIRPLANE  ATTACHEMENT  * 
t  *  POINT  AND  THE  SEAT  ATTACHMENT  POINT  * 
C  *  * 


c 

C  COMPUTE  THE  SEAT  CATAPULT  ATTACHMENT  POINT  IN  THE  EARTH 

C  SYSTEM  (SAPE)  . 

C 

CALL  D1RC0S  ( DES, EST1R) 

CALL  TRANS  (DSE,DES,3,3) 

CAL*.  VECXY L  (  SAPE  ,  SAP  ,  SRP  , USE  ,  2) 

COMPUTE  THE  AIRPLANE  CATAPULT  ATTACHMENT  POINT  IN  THE  EARTH 
SYSTEM  (AAPE)  . 

CALL  DIRCOS  (DEA , EAP1R) 

CALL  TRANS  (DAE,DtA,3,3) 

CALL  VECXY Z  (AAPE,AAP,XAP,DAE,2) 

CALCULATE  THE  CATAPULT  LENGTH  COMPONENTS  . 

DO  30  1=1,3 

30  DXL(I)  =  SAP  Ell)  -  AAPE (I ) 

DETERMINE  THE  DEFLECTED  CATAPULT  LENGTH  . 

CATL=SURT( DXL( l »  **2-n>XL(2  )  4*2«-DXL  ( 3>**2  ) 

OtT ERMINE  UNIT  VECTOR  ALONG  THE  CATAPULT  EXTENSION  . 

DO  40  1=1,3 

to  IF(CATL.NE.O)  CXUV(I)  =  DXL(I>  /  CATL 
Calculate  The  catapult  extension  ...... 

(CORRECTING  FOR  CATAPULT  DIRECTION  DURING  TRIM) 

FUOGE  =  1 

IF (INST . EQ.31.AND.uXL(3 ) *UP*D AE (3,3).GT.0.0)  FUDGE  =  -1. 
CEX  =  CATL  -  FUDGE  *  UCL 

calculate  the  catapult  extension  components  . 

DO  30  1=1,3 

30  EXT  (  1 )  =  CEX  *  cxuvm 


************************************************************ 
♦  * 


rr  nor  oro  non  r  r  n  r  o  n  n  r  o  r  o  n  o  n  o  r  n  o  nrrr 


(,  *  DETERMINE  THE  VARIABLES  CALCULATED  FROM  THE  * 
C  *  EARTH  VELOCITIES  Of  THE  AIRPLANE  ATTACHMENT  * 
C  *  POINT  AND  THE  SeAT  ATTACHMENT  POINT  * 

L  *  * 


C  ************************************************************ 

c 

C  DETERMINE  THE  SEAT  CATAPULT  ATTACHMENT  POINT  VELOCITY  COMPONENTS 

L  IN  THE  EARTH  SYSTEM  (USAPE)  . 

C 

CALL  VELXY Z  (USAPE, uST ,SAP , WSTIR , DSE ) 

DEI ERMINE  ThE  AIRPLANE  CATAPULT  ATTACHMENT  POINT  VELOCITY  COMPONENTS 
IN  THE  EARTH  SYSTEM  (UAAPE)  . 

CALL  VELXY i.  (UAAPE  ,UAP,AAP,*aPIR,DAE  ) 

CALCULATt  THE  RELATIVE  VELOCITY  BETWEEN  CATAPULT  ENDS 

DO  60  1=1,3 

60  CDV(I)  =  USAPE (I)  -  UAAPE (I) 

CALCULATE  THE  CATAPULT  EXTENT ION  RATE  (CV) 

CALL  OUT  PRD  (CV,CDV ,CXUV, 3 ) 

CALCLA1E  EXTENT  ION  VELOCITY  VECTOR 
DO  70  1=1,3 

70  CDV(I)  =  CV  *  CXUVd) 

*******  ******************************** 

*  * 

*  CATAPULT  LOGIC  * 

*  * 
*************************************** 

BYPASS  IF  PRIOR  TO  CaTaPuLT  IGNITION  . 

lftSW.NE.l.)  GO  TO  90 

COMPUTE  THE  EXPOSED  THtRMAL  AREA  OF  THE  CATAPULT  CHAMBER  ...... 

THA  =  PC  *  ( TLO  *  CtX*12. )  ♦  PA  *  2. 

COMPUTE  THE  FORCE  JUE  TO  THE  CATAPULT  PRESSURE  . 

CALL  CAO  ( LF , EF , E  FOOT , 1 EF, t L*  ELDQT , I  EL ,WK , WKDOT 1 1 WK , MB , W3D0I , I WB, 
.  FL, TCP  *  T 1ME  tCEXtCSK  »C1,C,VI , PA, TF»C VH,CBP ,C1,CV , C2 ,T I  * 

.  THA, B,BXP,PT,R, TYPE ,TSO,FSO, TOE > 

IF(FL.EQ*2.)  FON  =  1. 

F1N0  THE  tARTH  SYSTEM  COMPUNcNTS  OF  THE  CATAPULT  PRESSURE  . 

00  EO  1=1,3 

60  FLP(l)  =  -CF  *  CXUVd  ) 

************************************** 
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C  •  CATAPULT  STRUCTURAL  SUPPORT  * 

L  *  * 

C  ************************ ************** 

c 

C  CHECK  10  SEE  IP  The  CATAPULT  MUST  SUPPORT  THE  SEAT  . 

C 

IF(CATL.GT.UCL)  GO  TO  120 

FORCES  DUE  TO  CATAPULT  STRUCTURAL  SPRING  CONSTANT  . 

90  00  100  1=1,3 

100  FsS(  1)  =  SK  *  EATII) 

FORCE  OUE  TO  CATAPULT  STRUCTURAL  DAMPING  . 

00  110  1=1,3 

110  FSGI1)  =  CK  *  covm 
GO  TO  140 

AERO  OUT  THE  CATAPULT  STRUCTURAL  FORCES  AND  MOMENTS  WHEN 
THE  CATAPULT  CAN  SUPPORT  THE  SEAT  . 

120  00  130  1=1,3 

FSO(l)  =  0. 

130  FSS(l)  =  0. 

*******  *************************  ************* 

**********  TOTAL  catapult  forces  ********** 
********************************************* 

140  UU  ISO  1=1,3 

150  FC  ( 1  )  =  FCP(  1  T  *  FSS  (  1 )  ♦  FSOIU 

************************************************ 

*****  FORCES  and  moments  on  the  airplane  ***** 
************************************************ 

TRANSFORM  THE  EARTH  SY3TEM  FORCE  COMPONENTS  INTO  THE 
AIRPLANE  bODY  AXIS  . 

CALL  MATMPY  (FCA,QEA, FC,3 ,3,1) 

Catapult  moments  on  the  airplane  . 

CALL  CRSPRO  ( TCA, AAP,FCA) 

ZERO  the  FORCES  ANu  torques  acting  on  the  airplane  if  SSFLG 
IS  EQUAL  to  zero  . 

IFISSFLU.NE.O)  GO  TO  160 
OO  155  1=1,5 
155  FCAtl)  =  TCA(I)  =  0 

c 

c  ******************************************** 

C  *****  forces  ANO  moments  ON  The  seat  ***** 

L  A******************************************* 

c 

C  CATAPULT  FORCES  ON  THE  SEAT  . 


nro  o c  r 


C 

160  00  165  1=1,3 

165  FCI1)  =  -fCII) 

TRANSFORM  EARTH  SYSTEM  FORCE  COMPONENTS  INTO  THE  SEAT 
BOOT  AXIS  . 

CALL  MAlMPY  (FCS,DES,FC,3,3,1) 

CATAPULT  MOMENTS  ON  iHfc  SEAT 

CALL  CkSPRO  ( TCS , SAP, PCS) 

17G  CONTINUt 
C 

RETURN 

END 
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160  00  165  1=1.3 

165  FCtll  =  — F  C  <  I ) 

TRANSFORM  EARTH  SYSTEM  FORCE  COMPONENTS  INTO  THE  SEAT 
800  Y  AXIS  . 

CALL  MATMPY  C FCS.DES.FC.3 .3. 1 » 

CATAPULT  MOMENTS  ON  iHt  SEAT 

CALL  CRSPRD  ( TCS • SAP.FCS) 

170  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  OR  (TbF, 

.  FOStTOStFOAtTOA,DLL,OBF,SW, 

.  QAP,DBA,XAPtEAP.SRPtEST) 

COMMON  /CICCAL/  ICCAL 

COMMON  /COVRLY/  INST 

COMMON  /CT1MB/  TIMt 

COMMON  /CIO/  IRtAOt 1WKITE  * 1 01  AO 

»■»**»♦* ********  DART  TAbLES  ************** 


ToF  -  DART  BRAKING  FORCE  TABLE 

THE  INOEPENOENT  VARIABLE  IS  THE  LINE  LENGTH  (FT). 
THE  DEPENDENT  VARIABLE  IS  THE  BRAKING  FORCE  (LB). 


***************  OaRT  OUTPUTS  *************** 


FOS( 3) 
TDS ( 3) 
F0a(3) 
TDA( 3  ) 
DLL 

UbF 

SM 


X*  Y»Z  BODY  AXIS  FUKCE  COMPONENTS  ON  THE  SEAT  (LB) 

X  »  Y»  2  BODY  AXIS  MOMENT  COMPONENTS  ON  THE  SEAT  (FT-LB) 
X,Y,Z  BODY  AXIS  FORCt  COMPONENTS  ON  THE  AIRPLANE  (FT) 
X,Y»Z  BOOY  AXIS  MOMENT  COMPONENTS  ON  THE  AIRPLANE ( FT-LB ) 
DISTANCE  BETWEEN  THE  BRIDLE  APEX  AND  THE  AIRPLANE 
ATTACHMENT  POINT  (FT) 

DART  BRAKING  FORCE  (LB) 

DART  MODE  FLAG 

Q=PR IOR  TO  OART  FORCE 
i=OART  ON 
2=DAKT  OFF 


***************  OART  INPUTS  *************** 


dap  1 3 ) 

DBA (3) 

XAP ( 3) 
EAPI 3 ) 
SRP (3) 

EST ( 3) 


X,Y,Z  AIRPLANE  BODY  AXIS  POS1TON  VtCTOR  OF 
THE  DART  ATTACHMENT  POINT  (FT) 

X  * Yt Z  SEAT  BOOY  AXIS  POSITION  VECTOR  OF  THE 
DEPLOYED  DART  BRIDLE  APEX  (FT) 

X t Y t Z  EARTH  POSITION  VECTOR  OF  THE  AIRPLANE  (FT) 
EARTH  TO  AlRPLANt  EULER  ANGLES  (DEG) 

X,Y,Z  EARTH  POSITION  VECTOR  OF  THE  SEAT  REFERENCE 
POINT  (FT) 

EARTH  TO  SEAT  EULER  ANGLES  (DEG) 


/////////////////////////////////////////////////////// 

DIMENSION  TBF(S) , FDS( 3) »T0S(3 ) > FDA (3 ) , TDA ( 3 ) . uAP ( 3 ) , OB A(3 ) , 
.  XAP(3),EAP(3),SRP(3 )»EST(3) 

DIMENSION  DSE (3.3) ,0ES(3» 3) ,0 AE ( 3 , 3 ) » DEA ( 3 « 3 ) > 

.  DAPE (3 )  .  ObAc (3) »DELTA(3 ).DC(3).DF(3) . 

.  ESTIR13  )yEAPIR( 3) 

DATA  RPD  /. 01745^29/ 

C 

C  **************************** 

C  *****  INITIALIZATION  ***** 

C  **************************** 

c 

IF(ICCAL.NE.l)  GO  TO  20 
SW  =  0 

OLL  =  DBF  =  0 
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c 

c  //✓////////////////////////////////////////////////////// 

c 

L  ZERO  OUT  THfc  DART  FORCES  . 

C 

20  00  30  1=1 1  3 

30  FOSd)  =  TUMI)  =  FOAd)  =  TOA(l)  =  0 
C 

C  BYPASS  COMPONENT  DURING  STEADY  STATE  OR  IF  THE  OART  IS  OFF 
L 

1F11NST.EQ.31  .OR.  SW.EQ.2.)  GO  TO  100 
C 

C  CONVERT  EULER  ANGLES  FROM  DEGREES  TO  RADIANS 
C 

00  40  1=1,3 

ESTIKd)  =  EST ( 1 )  *  RPD 
40  E API R  d  )  =  EAP(I)  *  RPD 

C 

C  CUMPU1E  THE  DIRECTION  COSINE  MATR1C1ES  . 

C 

CALL  OIRCOS  ( DES , ESTIR) 

CALL  TRANS  tDS£,0ES,3 ,3 ) 

Call  oircos  (Dea.eapir) 

CALL  TRANS  (DAE,0tA,3,3) 

C 

C  EARTm  AXli  POSITION  OF  THE  AIRPLANE  DART  LINE  ATTACHMENT 
C  PQ1N1  . 

C 

CALL  VECXYZ  iDAPE,DAP,XAP,DAE,2) 

C 

C  EARTH  AXIS  POSITION  OF  THE  DEPLOYED  DART  BRIDLE  APEX  . 

C 

CALL  VECXYZ  ( DuAE , DtiA,SRP ,DSE ,2) 

C 

C  CALCULATE  the  dart  line  length  . 

c 

DO  SO  1=1,3 

SO  QELl A ( 1 )  =  UAPE(I)  —  DBAE d  ) 

DLL  =  SORT  ( DELTA ( 1 1*»2  «•  DELTA(2 1**2  +  D£LTA<3)**2) 

C 

<L  DtTERMI  NE  THE  DART  BRAKING  FORCE  . 

L 

NT  BF  =  IBFC2) 

IF ( DLL  ,LT.  T8F(4) )  Go  TO  100 
IF ( DLL  .LT.  TBF ( 3+NTBF ) )  GO  TO  60 
IFdCCAL.NE.l)  SM  =  2. 

IFdNST.EQ.26)  QRITt(6,5S)  TIME 
3S  FORMAT) />X,*DART  OFF  AT  TIMc  =  *,F10.4,*  SEC*/) 

GO  TO  20 

60  lFdNST.EQ.26  .AND.  SW.Ew.O.)  WR1TE(6,65>  TIME 

6S  FORMAT (/5X,*0ART  UN  AT  TIME  =  *,F10.4,*  SEC*/) 

IFdCCAL.NE.l)  SW  =  1. 

DBF  =  T6LUL(DLL,TdF14) »TbFlNTeF+4) ,1,-NTBF) 

C 

l  calculate  the  direction  cosines  of  the  dart  line  . 

c 

OU  ? C  1=1,3 

70  OCd)  =  DELTA  ( 1  )/ULL 


nof>  or.  cor  orn  rorro  rpo 


EARTH  COMPONENTS  OP  THE  DART  LINE  LOAD  ON  THE  SEAT  . 

00  60  1=1 , 3 

60  OF (1 )  =  DBF  *  0C(1) 

***************  SEAT  FORCES  AND  MOMENTS  *************** 

BUOY  AXIS  FORCE  COMPONENTS  ON  THc  SEAT  . 

CALL  MATMPY  ( FOS » OES » OF ,3 ,3 , 1 ) 

BODY  AXIS  MOMENT  COMPONENTS  ON  THE  SEAT  . 

CALL  CRSPRO  ( TQS»DBA, FOSJ 

***************  AlRPLANt  FORCES  AND  MOMENTS  *************** 

bUDY  AXIS  FURCE  COMPONENTS  OF  THE  AIRPLANE  . 

00  90  1=1*3 
90  DFtl)  *  -DF(l) 

CALL  MATMPY  ( F0a(0EA* UF*3*3* 1 ) 

oOOY  AXIS  MOMENT  COMPONbNTS  ON  THE  AIRPLANE  . 

call  crspro  (Toa,oap,foa) 

100  RETURN 
END 
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SUBROUTINE  GP  (IMF, 

FL,FMT,FST,TST ,FPP ,TPP,TIN»TLA,FSO,TSOtFPO» 
TPUtTRM, 

SW,UV,XMO,XYZ,tAtXR,XD,ERt 6D,TDE,SRP,UST, EST,WST. 
XPP.UPPtfcPPtWPP) 


*******  •*?.*+***  GP  T  AbL  ts  *************** 


TMf  -  PARACHUTE  MORTAR  FORCE  TABLE 


THE  INbtPENbENT  VARIABLE  IS  TIME  (SEC) 

THE  DEPENDENT  VARIABLE  IS  THE  MORTAR  FORCE  (LB) 

***************  GP  OUTPUTS  *************** 


FL 


FMT 

FST (3) 

TSTI3) 

FPP(31 

TPP( 3 ) 

TIN 

TLA 

FSO( 3) 

TSO( 3) 
FPG( 3 ) 
TP0I3) 
TRM( j) 


MORTAR  MODE  FLAG 

0  =  PRIOR  TO  INITIATION 

1  -  INITIATION  UP  TO  LAUNCH 

2  =  PARACHUTE  LAUNCH 

3  =  FORCES  AND  TORQUES  OFF 
PARACHUTE  MORTOR  FORCE  MAGNITUDE  (LB) 

XtYtZ  SEAT  BODY  AXIS  FORCE  VECTOR  ACTING 
ON  The  SEAT  (Lb) 

X  t Y«  Z  SEAT  BODY  AXIS  TORQUE  VECTOR  ACTING 
ON  THE  SEAT  (FT/LB) 

X,Y,Z  EARTH  SYSTEM  FORCE  VECTOR  ACTING  ON  THE 
PARACHUTE  PACK  (LB) 

Xf Y«Z  PARACHUTE  PACK  BODY  AXIS  TORQUE  VECTOR  ACTING 
ON  THt  PARACHUTE  PACK  (FT-LB) 

PARACHUTt  MORTAR  INITIATION  TIME  (SEC) 

PARACHUTE  LAUNCH  TIME  (SEC) 

XtYfZ  SEAT  BUuY  AXIS  FURCt  COMPONENTS  EXERTED  ON 
THE  SEAT  AT  STR1POFF  (LB) 

XtYfZ  SEAT  BODY  AXIS  TQRQUt  COMPONENTS  EXERTED  ON 
THE  SEAT  AT  STRIPOFF  (FT-LB) 

X,Y,Z  PARACHUTE  PACK  body  axis  force  components 
EXERTED  UN  THE  SfcAT  AT  STRIPOFF  (LB) 

XyYtZ  PARACHUTE  PACK  BUOY  AXIS  TORQUE  COMPONENTS 
EAERTEO  ON  THt  PACK  AT  STRIPOFF  (FT-LB) 

XfY.Z  SEAT  EARTH  VELOCITY  COMPONENTS  TO  PASS  TO  THt 
PARACHUTE  COMPONENT  DURING  TRIM  (FT/SEC) 


***************  GP  INPUTS  *************** 


sw 

uvm 

XM0(3) 


XYZ( 3) 


EAlb) 

XR 

XO 

ER(3) 

E0(3) 


FLAG  TO  INITIATE  ThE  MORTAR  (l  =  ON) 

XtYtZ  StAT  bODY  AXIS  MORTAR  FORCE  UNIT  VECTOR 
XtYfZ  SEAT  BUOY  AXIS  LINEAR  POSITION 
VECTOR  OF  IHt  PARACHUTE  DEPLOYMENT  IMPULSE 
MOMENT  ARM  (FT) 

XtYfZ  StAT  bODY  AXIS  LINEAR  POSITON  VECTOR 
OF  THE  PARACHUTt  PACK  (FT) 

SEAT  TO  PARACHUTt  PACK  EULER  ANGLES  (OEG ) 

PARACHUTE  SHtLF  LINEAR  SPRING  CONSTANT  (LB/FT) 
PARACHUTt  SHcLF  LINEAR  DAMPING  CONSTANT  (LB/FT/SEC) 
XtYtZ  PARACHUTE  SHELF  ANGULAR  SPRING  CONSTANTS 
( FT-Lb/DtG) 

XtYtZ  PARACHUTt  SHtLF  ANGULAR  DAMPING  CONSTANT* 
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( FT— LB/DEG/StC ) 

TOE  -  T lMfc  DURATION  FOR  THE  FORCES  AND  TORQUES  TO  DECAY  TO 
ZERO  AFTER  PARACHUTE  LAUNCH  (SEC) 

SRPTs)  -  X,Y,Z  EARTH  SYSTcM  LINEAR  POSITION  VECTOR  OF  THE  SEAT  (FT) 
UST 1 3)  -  X » Y » Z  SEAT  BODY  AXIS  LINEAR  VELOCITY  VECTOR  OF  THE 
SEAT  (FT/StC  ) 

ESTI3)  -  EARTH  TO  SEAT  EuLEK  ANGLES  (DEG) 

MST (3)  -  X  »  Y  »  Z  SEAT  bOUY  AXIS  ANGULAR  VELOCITY  VECTOR 
OF  THE  ScAT  (OeG/SEC) 

XPPC3)  -  X,Y,Z  EARTH  SYSTEM  LINEAR  POSITION  VECTOR  OF  THE 
PARACHUTE  PACK  (FT) 

UPP(3I  -  X,Y,Z  EARTH  SYSTEM  LINEAR  VELOCITY  VECTOR  OF 
THE  PARACHUTt  PACK  (FT/SEC) 

£PP( 3)  -  tARTH  TO  PARACHUTE  PACK  EULER  ANGLES  (DEG) 

MPPC3)  -  X,Y,Z  PARACHUTE  PACK  BODY  AXIS  ANGULAR  VELCITY  VECTOR 
OF  THE  PARACHUTE  PACK  (DEG/SEC) 

DIMENSIONS  OF  CALLING  ARGUMENTS  . 

DIMENSION  TMF(5),FST(3),TST(3),FPP(3),TPP(3) ,TRM(3), 

.  UV( 3 ) »XMQ ( 3 ) ,XYZ(3) ,£A(3) ,ER(3) , ED( 3 ) , SRP (3 ) ,UST( 3) , 

.  EST (3) ,WST(3),XPP(3),UPP(3) ,£PP (3 )  ,WPP(3) • 

.  FS0(3) f TSU(3)»FP0(3),TP0(3) 

INTERNAL  DIMENSIONS  . 

Ul Mb NS ION  CST1K(3 ) »bPPIR( 3) .MSTIR ( 3) • WPPIR ( 3) ,DES(3,3) , 

.  0EST(3,3),OEP(3,3),06PTT3,3),DSP(3,3) , 

.  XS(3),DELTAX(3) , SPRING! 3) ,UXSE13), 

.  DELTAV(3),RVEL(3),DAMP(3),FM0RT(3),TM0RT(3), 

.  PR0J(3) , TQKwUE(3I »ANG(3 ) ,W$T£ (3 ) ,NPP£ ( 3 ) , 

.  EAIR(3) ,UCtA(3,3) , DCEAT ( 3 t 3 > , TEMP (3 ) 

COMMON  /CTIME/  TIME 

COMMON  /CICCAL/  ICCAL 

COMMON  /COVRLY/  INST 

COMMON  /CSSFL&/  SSFLG 

COMMON  /CIO/  IRbADflMRITEf lUl AG 

Data  kPO.UPR  /  .017<O:J29,  37.2 9378  / 

**************************** 

*****  INITIALIZATION  ***** 

**************************** 

lF(ICCAL.NE.I)  GO  TO  10 

DO  c  1=1,3 

2  EAIR(l)  =  EA(I)  *  KPD 
CALL  uiKCOS  ( DCEA , EAlK ) 

CALL  TRANS  (DCEAT , DCEA, 3, 3 ) 

IFlTOb.EQ. 0.99999)  TOc  =  0 

FL  =  FMT  =  TIN  =  TLA  =  TIMOR  =  0 
DO  5  1=1,3 

3  TRM(i)  =  FSU(I)  =  TSO(l)  =  FPO(I)  =  TPO(I)  =  0 
TYPE  =  3HGUN 

///////////////////////////////////////////////////////////// 
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BYPASS  CALCULATIONS  if  THfc  PARACHUTE  PACK  HAS  BEEN 
ktLEASEO  AND  THt  FORCES  AND  TORQUES  HAVE  DECAYED  .... 

10  if (F L.tQ.3. )  GO  TO  250 

factor  forces  and  torques  to  ZtRG  after  stripoff  .... 

IFIFL.NE.2.)  GO  TO  l5 
TOFF  =  TLA  ♦  TOE 

delta  =  toff  -  time 
factor  =  DELTa/TDE 
IF (DeLTA.Le.G )  FL  =  3. 

if <  fl. ew.3 * >  factor  =  o 

DO  20  1*1,3 

FSHU  =  FSOU)  *  FACTOR 

TSTCI)  =  TSOU)  *  FACTOR 

FPPII)  =  FPO(I)  *  FACTOR 

tO  TPP(l)  =  TPOII)  *  FACTOR 

GO  TO  250 

SET  THE  IMuRT  AND  FMORT  VECTORS  TO  ZERO  . 

C3  DO  30  1=1,3 
TMORT(l)  =■  0 
30  FMORT IIJ  =  0 
NMT  =  1MF( 2) 

*****  CHANGE  FROM  DEGREES  TO  RADIANS  ***** 

DO  s5  1=1 1 3 

ESTiRU)  =  EST ( I )  *  RPD 

WSTIk(I)  =  WST(i)  *  RPD 

EPP1RC1)  =  EPP(l)  *  RPD 

35  WPPIRU)  =  WPP(H  *  RPD 

*****  CALCULATE  THE  DIRECTION  COSINE  MATRICES  ***** 

Calculate  the  earth  to  seat  matrix  . 

Call  D1RC0S  (UES,EST1R) 
calculate  the  seat  to  earth  matrix  . 

CALL  TRANS  (0EST,uES,3,3) 

CALCULATE  THE  earth  TO  PARACHUTE  PACK  MATRIX  . 

CALL  D1RC0S  <UcP,EPPIR) 

CALCULATE  THE  PARACHUTE  PACK  TO  EARTH  MATRIX  . 

CALL  1RANS  (DEPT, 0EP,3,3I 

CALCULATE  The  SEAT  TO  PARACHUTE  PACK  MATRIX  . 

CALL  MATMPY  (DSP, OEP, DBS! ,3,3,3) 
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*********************************************** 

*****  FORCES  CUE  TO  LINEAR  DISPLACEMENT  ***** 

************* ********************************** 

-  LINEAR  SPRING  FORCES  - 

CALCULATE  THE  PARACHUTE  PACK  LINEAR  POSITION  VECTOR  IN  THE 
SEAT  COORDINATE  SYSTEM  . 

CALL  VECXY L  ( XS, XPP * SRPtOES . 1 ) 

DETERMINE  THE  LINEAR  DISPLACEMENT  FROM  THE  ATTACHMENT  POINT. 

ANO  CALCULATE  THE  SPRING  FORCES  IN  THE  SEAT  SYSTEM  ACTING  ON 
The  seat  ...... 

DO  40  1*1 » 3 

utLTAxm  *  xs(i>  -  mm 

40  SPRING(I)  *  DELTAX(l)  *  XR 

-  LINEAR  damping  forces  - 

DETERMINE  THE  EARTH  VELOCITY  OF  THE  POSITION  THE  PARACHUTE  PACK 

occupies  in  the  seat  coordinate  system  . 

CALL  VELXYZ  (UXSE.UST.XS.MSTIR.DEST) 

DETERMINE  THE  RELATIVE  VELOCITY  WRT  THE  EARTH  FRAME  . 

DO  45  1=1,3 

*,5  OeLTAV(I)  =  UPPH)  -  UXSEII) 

TRASFURM  THIS  DIFFERENCE  INTO  THE  SEAT  SYSTEM  . 

CALL  MATMPY  (RVeL ,DES .DELTAV, 3.3 , I ) 

COMPUTE  The  DAMPING  FORCE  ACTING  ON  THE  SEAT  . 

uO  50  1=1,3 

50  DAMP (I)  =  RVEL (I)  *  XD 

-  SUM  THE  SPRING  AND  DAMPING  FORCES  ACTING  ON  THE  SEAT  - 

DU  60  1=1,3 

bu  FST ( 1 )  =  bPRlNG(I)  *  DAMP ( I ) 

******************** 

**  MORTAR  logic  ** 

********************* 

1F(SM.Ne.1.)  GO  TO  130 

IF(FL.NE.O)  GO  TO  EO 

IFUNST.EU.E6)  MRITElb.70)  TYPE, TIME 
10  FORMAT (/5X.A8,*  IGNITION  AT  TIME  =  *,F10.4,*  SEC*/) 

TIN  =  TIME 
FE  =  1. 

CALCULATE  THE  MORTAR  FORCE  . 


onorr  no*'  rnoo  r  r  n  roc  r  n  r  rrtrn 


aO  TIMOR  =  TIME  -  TIN 

FMT  =  TBLU1  (TIMOR, 1MF(4J,TMF(NMT*4>,1,-NMT) 

CALCULATE  THE  SEAT  BOOT  AXIS  MORTaR  FORCE  COMPONENTS 
ACT  INC  CiN  THE  SEAT  . 

DO  90  1=1,3 

90  FMORT(l)  =  -1.  *  FMT  *  UV  (  I » 

CALCULATE  THE  TORQUE  ON  THE  SEAT  FROM  THE  MORTAR  . 

call  crsprd  itmort,xmo,fmort) 

OUT  THE  LINEAR  SPRING  FORCES  ONTO  THfc  MORTAR  UNIT  VECTOR  . 

CALL  OUTPRD  (OOT, SPRING, UV, 3) 

IF  THc  SIGN  OF  THE  OOT  PRODUCT  IS  NEGATIVE,  RETAIN  THE  SHELF  FORCE 
IF(uGT.LE.O)  GO  TO  130 

OOT  THE  TOTAL  LINEAR  RESTRAINT  FORCE  ONTO  THE  UNIT  VECTOR  . 

CALL  OOTPRO  (DOT , FST , UV,3) 

DETERMINE  THE  VECTOR  COMPONENTS  OF  THE  PROJECTION  OF  THE 
RESTRAINT  FORCE  ONTO  THE  UNIT  VECTOR  . 

00  100  1=1,3 

ICO  PKOJdl  =  OOT  *  UV(I) 

DETERMINE  THE  FORCE  VtCTOR  NORMAL  TO  THE  UNIT  VECTOR  . 

DO  110  1=1,3 

110  FST ( I )  =  FST ( 1  )  -  PRO J ( 1 ) 

*********************************************************** 

DETERMINE  THE  TORCUE  ON  THE  SEAT  FROM  THE  RESTRAINTS  . 

130  CALL  CRSPRD  ( TORQUE ,XS , FST I 
C 

C  CALCULATE  THE  TOTAL  FORCE  ACTING  ON  THE  SEAT  . 

C 

DU  14G  1=1,3 

1<»0  FST  (  1 )  =  FST  ill  ♦  FMORT  ( 1  ) 

C 

C  CALCULATE  THE  FORCES  ACTING  UN  THE  PARACHUTE  PACK  IN  THE 
C  EARTH  SYSTEM  . 

4. 

CALL  MATMPY  ( FPP , DEST ,FST ,3 ,3 , 1 ) 

DO  150  1=1,3 
l5&  FPPU)  =  -FPP  111 
C 

C  ************************************************ 

t  *****  TORQUE  UUc  TU  ANGULAR  DISPLACEMENT  ***** 

C  ************************************************* 


or  pi  nr  or  pro  ppnr  popppo  roorn  p  p  p  p  p 


-  angular  spring  forces  - 

CALCULATE  THE  SEAT  TO  PARACHUTE  PACK  EULER  ANGLES  . 

CALL  COSO I R  1ANG.DSP) 

determine  the  angular  displacement  from  the  attachment  angle* 

AND  CALCULATE  THE  SPRING  COMPONENTS  ACTING  ON  THE  SEAT  IN  THE 
ATTACHMtNT  AXIS  SYSTEM  . 

DO  160  1=1*3 

OtLl AX !  1  )  *  ANG(4-1)*0PR  -  EAU-I) 

160  SPRING!  I )  =  OElTAXU)  *  EK(l) 

-  angular  damping  forces  - 

DETERMINE  THE  ANGULAR  VELOCITY  OF  THE  PARACHUTE  PACK  IN  THE 
ATTACHMENT  AXIS  SYSTEM  . 

CALL  MATMPY  ( WSTE ,DEST ,WST ,3 * 3, 1 1 
CALL  MATMPY  1WPPE,DEPT,WPP,3,3,1) 

OU  170  1=1,3 

170  DELTaV(I)  =  MPPE(I)  -  WSTE  t 1 ) 

CALL  MATMPY  ( T tMP * OeS.OELT AV. 3*3*1) 

CALL  MATMPY  <RVEL»OCEA, TEMP, 3,3,1) 

CALCULATE  THE  ANGULAR  DAMPING  TORQUE,  AND  SUM  WITH  THE  ANGULAR 
SPRING  TORQUE  . 

00  lbC  1=1,3 

DAMP ( 1 )  =  RVEL(I)  *  EDI  1 ) 

LUO  TlMP  ( 1 1  =  SPRING!  1)  «-  DAMP  !  1 ) 

MOVE  THt  RESTRAINT  TORQUES  INTO  THE  SEAT  SYSTEM  ...... 

Call  MATMPY  ITST.DCEaT, TEMP, 3,3, l) 

CALCULATE  THE  bOOY  AXIS  TORQUE  CONSTANTS  ACTING  ON  ThE 
PARACHUTE  PACK  . 

CALL  MATMPY  !TPP,CSP,TST,3,3, 1) 

DO  190  1=1,3 
190  TPPII)  =  -TPP1I) 

CaLCulA 1 t  THE  10TAL  MOMENT  ON  THE  SEAT  . 

DO  200  1=1,3 

200  TsTlII  =  TST1I)  ♦  TMORT ( I )  ♦  TQRQUE(I) 

C 

L  IF  THE  MORTAR  IS  AT  STRlPuFF  . 

C 

IF  1 T 1M0R . LT .TMF ( NMT+3 ) )  GO  TO  225 
Tla  =  TIME 
FL  =  2. 

IFiTDE.EQ.O)  FL  =  3. 
lFtFL.Eu.3.)  GO  TO  *15 
00  210  1=1,3 


365 


FSO ( l )  =  FST ( I ) 

TSO(l)  =  TSTII) 

FPO(l)  =  FPP(I) 

*10  TPOC1)  *  TPP ( I ) 

C 

215  1FUNST.EQ.26)  WRITE(6,**0)  T  YPE  *  T  IME 

220  FuRMAl (/5X.A6,*  STRIPUFF  AT  TIME  =  *,F10.*,*  SEC*/) 

C 

V  2ER0  THE  FORCES  AND  TORQUES  ACTING  ON  THE  SEAT  IF  SSFLG 

C  IS  EwUAL  TO  ZERO  . 

C 

2*5  IFtSSFLG.NE.O)  GO  TO  2*0 
DO  250  1*1*5 

230  FiTIl)  =  TSTII)  =  0 
C 

C  SEND  DATA  TO  PaRaCHTUE  PACK  BODY  TO  ALLOW  IT  TO  COMPUTE  THE 

C  SEAT  EARTH  VELOCITY  DURING  TRIM  . 

L 

2*0  IF  (1NST.NE.31)  GO  TO  230 

Call  MATMPY  ITRM,0EST,UST,3.3,1> 

C 

250  RETURN 
END 


C 

C 

c 


SUbROuT 1NE  Ll  ( TCM * 

.  EC » tCO  ,IEC,TF,TFQ,ITF, 

.  F LA,  SW l,FUO«  TOO, FLP  »FAP  , VAP»FLL»ELM»  ELC»QEM» 

.  RMN,DIS,CON,TCG,UVL,RL,RLO,VL, VCG , PCG , CWT , TP E , P VL, 

.  TLS  ,  VLS, 

.  0FF,BH,APX,AP1,AP2,AP3,AP4,FTR,FS0,ULL,ULS,G0R, 

.  T YP»  FLyXOO, UuO , EDO  , WOO ,XPP  ,  UPP  »  EPP  »  XPC , UPC  ) 


DESIGNED  oY  C.L.  WEST 

LAST  MOdIFIEU  -  OeCEMeeR  6,  19bU 
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THt  EASltST  PARCHUTt  LINE  MODEL 
***************  Li  TABLES  *************** 

TCW  -  STRETCHED  PARACHUTE  CANOPY  WEIGHT  TABLE 

THE  INDEPENDENT  VARIABLE  IS  THE  STRETCHED  LtNGTH  (FT) 
THE  DtPENDENT  VARIABLE  IS  THE  STRETCHED  WEIGHT  (Lfl) 

***************  Li  OUTPUTS  *************** 

CREEP  STRAIN  IN  PARACHUTE  LINES 


EC  -  CREEP  STRAIN  IN  PARACHUTE  LINES  (IN/IN) 

cCU  -  CREEP  STRAIN  RATE  (IN/IN/SEC) 

IEC  -  INTEGRATION  CONTROL 

TIME  DURATION  OF  PARACHUTE  LINE  LOAD  (CHARACTERISTIC  FONT  ION ) 


TF  -  TIME  PARACHUTE  LINES  EXPERIENCE  A  NON-ZERO  LOAD  (SEC) 

TED  -  RATE  (EQUALS  ONE  WHEN  LINES  ARE  UNDER  LOAD,  OTHERWISE  ZERO) 

ITF  -  INTEGRATION  CONTROL 


FLA 


sWl 

FOO(D)  - 
TUO(S)  - 
FLP(B)  - 
FaP ( 3  )  - 

VAP(A)  - 

fll 

ELM 

ELC 


PARACHUTE  PHASe 

0  =■  PRIOR  TO  INITIATION 

1  =  INITIATION 

2  *  LAUNCH 

J  =  MORTAR  OFF 
4  =  UNESTRETCH 
S>  =  LINES  SEVeREU 


FLAG  SET  WHeN  THE  PARACHUTE  IS  BEHIND  THE  BRIDLE  APEX 

x , y , z  decelerated  object  body  axis  force  components  acting 

UN  THE  DECELERATED  OBJECT  (LB) 


X , Y , 4  DECELERATED  OBJECT  BODY  AXIS  TORQUE  COMPONENTS  ACTING 
ON  THE  DECELERATED  OBJECT  (FT-LB) 

X, Y , Z  FORCE  COMPONENTS  ACTING  ON  THE  PARACHUTE  (LB) 

(  BOD Y  AXIS  FOR  PACK  -  EARTH  SYSTEM  FOR  CANOPY) 

X , Y , Z  UECELERAT cD  OBJECT  BODY  AXIS  POSITION  VECTOR  OF  THE 
FORCE  APPLICATION  POINT  (FT) 

X , Y • Z  EARTH  SYSTEM  VELOCITY  COMPONENTS  OF  THE  FORCE 
APPLICATION  POINT  (FT/SEC) 

LINE  LOAD  (LB) 

MAXIMUM  STRAIN  EXPERIENCED  BY  THE  PARACHUTE  LINE 
OUKING  ITS  LOADING  HISTORY  (IN/IN) 

MAXIMUM  STRAIN  EXPERIENCED  BY  THE  PARACHUTE  LINE 
DURING  THE  CuRReNT  LOADING  CYCLE  ONLY  (IN/IN) 


OtM 


C 

C 

C 

C 

c 

c 

c 

c 

L 

c 

C 

L 

C 

c 

c 

L 

c 

c 

l 

c 

4. 

c 

c 

c 

L 

t 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

c 

c 

L 

C 

L 

C 

c 

c 

c 

<*» 

c 

c 

t 

c 

L 

C 

C 

C 

c 

c 

t 

c 


RMN 


01  s 

CUNi 4) 

TCG(  20  ) 

UV L  (  3 ) 

RL 

RLO 

VL 

VCG 

PCG 

CWT 

TPt 

PVL 

TLS 

VLS 


-  MAXIMUM  POSITiVt  STRAIN  RATt  EXPERIENCED  BY  THE 
PARACHUTE  LINE  DURING  ITs  LOADING  HISTORY  (I/SEC) 

-  MAXIMUM  NtGATIVE  STRAIN  RATE  EXPERIENCED  BY  THE 
PARACHUTt  LINE  DURING  THE  CURRENT  UNLOADING 
CYCLE  ONLY  (1/StC) 

-  THE  DISTANCt  FROM  THE  ORIGIN  OF  THE  DECELERATED  OBJECT 
TO  THE  oRlOLt  APtA  (FI) 

-  COEFFlCltNTS  IN  THE  EQUATION  FOR  THE  PLANE  FORMED 
BY  THE  bRIOLE  ATTACHMENT  POINTS 

-  PARACHUTE  CENTcR  OF  GRAVITY  LOCATION  ARRAY  (FT) 

-  PARACHUTt  LINt  UNIT  VtCTQR 

-  parachute  line  length  ( f t j 

-  UNLOADED  PARACHUTE  LINE  LENGTH  (FT) 

-  RATE  OF  CHANGE  OF  LINE  LENGTH  { FT/SEC) 

-  VELuCITY  UF  The  canopy  center  of  gravity  along  the 
PARACHUTt  LINES  (FT/SEC) 

-  STRETCHtu  CANOPY  CENTER  OF  GRAVITY  MtASURED  ALONG  THE 

parachute  line  from  the  parachute  pack  ( ft » 

-  WEIGHT  OF  CANOPY  PULLED  FROM  THE  PARACHUTE  PACK  (LB) 

-  TYPE  OF  PARACHUTE  { 1=DRAG  2=REC0VERY) 

-  PREVIOUS  TIMESTEP  LINE  VELOCITY  (FT/SEC) 

-  TIME  AT  LINtSTRtTCH  (SEC) 

-  rate  of  change  of  line  length  at  linestretch  (ft/seo 


***************  lI  INPUTS  *************** 


OFF  -  FLAG  TU  StVER  LlNtS 

0  =  LINES  ATTACHED 

1  =  LINES  scVERED 

BL1  -  NUMBER  OF  BRIDLE  LlNtS 

APX ( 3 )  -  X  »  Y  »  Z  DECELERATED  ObJECT  BODY  AXIS  POSITION  VECTOR  OF  THE 
BRIDLE  APEX  (FT) 

API ( 3 )  -  A,Y  ,L  DECtLt RATED  OBJECT  bODY  AXIS  POSITION  VECTOR  OF  THE 
FIRST  BRIDLE  LINE  ATTACHMENT  POINT  (FT) 

APE ( 3  )  -  X  »  Y  »  Z  DtCtLc RATED  OBJECT  BODY  AXIS  POSITION  VECTOR  OF  THE 
SECOND  BRIDLE  LINt  ATTACHMENT  POINT  (FT) 

APb(J)  -  X,Y,Z  DECELERATED  OBJECT  BODY  AXIS  POSITION  VECTOR  OF  THE 
THIRD  BRIDLE  LINE  ATTACHMENT  POINT  (FT) 

APA ( 3  )  -  X «  Y i Z  DECtLt  RATED  ObJECT  BODY  AXIS  POSITION  VECTOR  OF  THE 
FOURTH  BRIULt  LINt  ATTACHMENT  POINT  (FT) 

FT R  -  PARACHUTE  LINt  MULTIPLICATION  FACTOR 
Fsu  -  CANOPY  STR1P0UT  FORCt  (LB) 

ULL  -  PARACHUTE  SUSPENSION  LINE  ULTIMATE  LOAD  (LB) 

ULS  -  PARACHUTt  SUSPENSION  LINE  ULTIMATE  STRAIN  (IN/IN) 

UUR  -  NUMBER  OF  PARACHUTE  GORES 

TYP  -  TYPE  OF  PARACHUTt  (l=uRAG  2=REC0VERY) 

PL  -  MORTAR  MODE  FLAG 

0  =  PRIOR  TU  INITIATION 

1  =  INITIATION  uP  TO  LAUNCH 

2  =  PARACHUTE  LAUNCH 

3  =  MORTAR  OFF 
BODY  (FT) 

uUu( 3 )  -  X  t  Y  i  Z  DECtLERATtD  UBJECT  BODY  AXIS  VtLOCITY  VtCTOR 
Of  THt  QtCLLt  RAT tD  BUOY  (FT/StC) 

WU0(3)  -  X  *  Y  t  Z  OtCtLtRATtU  OBJECT  BODY  AXIS  ANGULAR  VELOCITY 
CQMPQNtNTS  OF  THt  ctCELEKATED  OBJECT  (DEG/SEC) 

XPP(s)  -  XtY.Z  tARTH  FRAME  PJSITJN  VECTOR  OF  THt  PARACHUTt 
PACK  (FT) 
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UPPi.?)  -  XyYyZ  PARACHUTE  pack  earth  system  velocity 
VECTOR  ( FT/StC) 

£PP(j)  -  EARTH  TO  PARACHUTE  PACK  EULER  ANGLES  (DEG) 

XPCC3)  -  XyYyZ  EARTH  SYSTEM  POSITION  VECTOR  OF  THE  PARACHUTE 
CANOPY  (FT) 

UPC(3)  -  X,Y,Z  EARTH  SYSTEM  VECTOR  VECTOR  OF  THE  PARACHUTE 
CANOPY  (FT) 


DIMENSION  OF  CALLING  ARGUMENTS  ...... 

DIMENSION  TCM(S) »FDU( 3) ,TUO ( 3 ) y FLP ( 3 ; , FAP ( 3 ) , VAP ( 3 ) »CON( 4 ) , 

.  TCG ( 20) yUVL (3)yAPX(3)«APl(3)*AP2(3)y  AP3 ( 3 ) ,AP4(3) , 

.  X00( 3 ) y UDU( 3 ) y EDO  1 3 ) y  MDO (3)yXPP(3)y  UPP (3) yEPP(3)y 

.  XPC (3 ) y UPC (3 ) 

internal  dimensions  . 

dimension  mdoir(3)«edoir(3) ,deo(3,3),doe(3,3) ,xppoo(3), 

.  UVV (3),FSTP(3)y FAUO (3)yUPPP0S(3)> 

.  UPPREL ( 3 ) yUPPDO (3)yEPPIR(3)yFDOT(3)y 

.  XPCS(3 ) «  XPCD0(3 ) 

COMMON  /CTIME/  TlMt 
COMMON  /C1CCAL/ICCAL 
COMMON  /COVRLY/  INST 
COMMON  /CPF LAG/  UUM.1TINC 
COMMON  /CIO/  IREAD, 1MRITE.I0IAG 

DATA  RPD  /  .01745329  / 

DATA  GRAV  /32. 174/ 

**************************** 

*****  INITIALIZATION  ***** 

**************************** 

1F( 1CCAL.NE.1)  GO  TO  70 

MIgC  INITIALIZATION  . 

TPE  =  TYP 

FLA  =  SMI  =  FlL  =  ELM  =  ELC  =  DEM  =  RMN  =  RL  =  RLO  =  0 
VCG  -  PCG  =  CMT  =  PVL  =  T LS  =  VLS  =  0 
IMOFF  .  EQ.  G. 99999)  OFF  =  G 
DO  10  l=lt3 

1F(APX(I)  .EQ.  U. 99999)  APX(I)  =  0 
IF ( AP2 1 1 )  .EQ.  0.99999)  AP2(I)  =  0 
I F ( AP3 ( 1 )  .Eu.  0.99999)  AP3(1)  =  G 
aO  1F(AP4(1)  .tQ.  0.99999)  AP4(I)  =  0 
C 

C  CALCULATE  THE  DISTANCE  FRUM  THE  ORIGIN  OF  THE  DECELERATED  OBJECT 

c  TO  THE  bRIOLE  APtX  . 

C 

DIS  =  SORT  (  APXC1)**l  *  APX<2)**2  ♦  APX{3)**2  I 
L 

L  CALCuLAlE  THE  CONSTANTS  FUR  THE  EQUATION  DEFINING  THE 

C  bkiuLt  ATTACHMENT  PLANt  . 

C 


rPf  rrr  ^  rrf 


CONU)  =  D£T3(l.,APl(2l,APU3>,l.,AP2<2»,AP2(3),l.,AP3l2)  ,AP3(3) > 
CON  (  2  )  =  D£T3(AP1(1),  l.,APl<3)  ,AP2(  l)  ,  l ., AP2C 3 > , AP3 (11  ,l.,AP3(3l) 
CONI  3)  =  0£T3( l.,APl( 1) ,AP1(2  > , 1. , AP2 ( l ) , AP2 < 2 ) , 1 . , AP3 (1 ) «AP3(2) > 
CON  14)  =  0ET3(AP1(2),AP1( 1) * AP 1 ( 3 ) (AP2(2) , AP2 ( 1 ) »  AP2 (  3)  » 

.  AP3  (  2)  f  APj(  1 ) » A  P3 ( 3  )  ) 


CGMPUTt  THE:  PARACHUTt  CANOPY 


TAbLE 


OU  13  1=1,20 
13  TCG ( 1 )  =  0 

WR1TE(6,20) 

<:0  FORMAT  1//5X,* - STRETCHtO  CANOPY  CG  TABLE  FOR  COMPONENT*. 

.  *  LI  - *,//i3X,*LlNt*,12X,*CG*//) 

NA  =  T  CM  ( 2  ) 

TOTALM  =  0 

TOTALW  =  TCW(2*NA+3I 
OG  30  1=2, NA 

TOTALM  =  TOTALM  ♦  t  lTCWl3*i)-TCWl2*in/2.*TCW(2+I  >)* 

.  (TCM { NA+3+1 ) — TCW (NA+  2*I  )  ) 

TCG ( 1 )  =  (TOTALM  ♦  (TOTALM-TCW INA  +  3-H ) ) *TCM C3+I ) l/TOTALW 
iO  TCG(l)  =  TCW ( 3*1 )  -  TCG( 1 1 

WRIT t (6, 40 i  <  TCW ( 1*3) , TCG lilt  1  =  1, NA ) 

40  FURMAT ( IbX ,F3.2 , 10X »P7 .4) 

* 

DU  bO  1=1,3 
FD01 1 )  =  0 
TuO(l)  =  0 
FLP(i)  =  0 

PAP (11  =  0  . 

VAP(l)  =  0 
bU  UVL( 1 )  =  0 

-  BYPASS  THfc  CUMPQNtNT  IF  FL  OOES  NOT  EQUAL  2  OR  FLA  EQUALS  4  — 

70  IPIPL.Eu.l.)  FLA  =  1. 

IF(FL.LE.l.  .OR.  FLA.cQ.5.)  GO  TO  330 

IF (T  YP.EQ. 1. )  TYPt  =  4HDKAG 
I F ( T  YP.EQ. 2. )  TYPE  =  6HRECUVERY 

-  IF  THE  LINES  HAVE  BEEN  SEVERED  - 

IF (OFF.Nt. 1.)  GO  TO  IOC 
Fla  =  3. 

FLL  =  0 
00  aO  1=1,3 

EO  FuOl 1 )  =  T  uO ( I J  =  FLP(I)  =  UVL(I)  =  VAP(I)  =  FAP(l)  =  0 
IPUNsT.Ew.c6)  WR1TH  6,90  )  TYPE, TIME 
90  FORMAT (/5X.AB,*  CHUTE  LINES  SEVERED  AT  TIME  =  *,F10.4,*  SEC*/) 

GO  TO  330 

-  CHANGE  FROM  DEGREES  TO  RADIANS  - 

100  DU  110  1=1,3 

MU01RU)  =  MOOU)  *  RPU 
EuOlR(l)  =  EDO ( 1 )  *  KPD 
110  tPPlR(I)  =  EPP(l)  *  RPO 


nrrr  orr  rnrr  rnr-io  orro  rop  ppopppp  r  pp 
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-  CALCULATE  DEO  - 

CALL  D1RC0S  (DEG*  EDUlK) 

lMFLA.t(|.4.)  bG  TO  2 bo 
FLA  =  2. 

**  ** 

**  PRIOR  TO  LINfcSTRtTCH  ** 

**  ** 

************************ ****** ***** 

IFlFL.tQ.i.)  FLA  =  3. 

-  if  THt  chute  is  inside  the  bridle  - 

IF IbLl.tQ. I. )  bG  TO  175 
IFISWl.tO.i.)  GO  TO  15U 
CALL  VLCXYZ  ( XPPDO  »  XPP »XDO, DtO, 1 ) 

IFCSwRT(XPPOO< 1)**2+XPPOO{2)**2*XPPDO(3(**2>.GE.DIS*1. )  GO  TO  140 

CALCULATE  T He  tARTH  SYSTEM  VELOCITY  OF  THE  PARACHUTE  PACK 
POSITION  IN  THE  OECELEkATED  OBJECT  COORDINATE  SYSTEM  . 

CALL  TRANS  ( DOE « DEO, 3 , 3 ) 

CALL  VtLXYZ  (UPPPOS,UDO, XPPDO, WD01R, DOE) 

COMPUTt  THt  RELATIVE  VELOCITY  OF  THE  PARACHUTE  PACK  WRT  THE 
OtCtLtRATtJ  OBJECT  IN  THE  tARTH  SYSTEM  . 

DO  120  1=1,3 

120  UPPRELII)  =  UPPPOSdJ  -  UPPdl 

UE TER MINE  THE  RELATIVt  VtLCCITY  OF  The  PARACHUTE  PACK  IN  THE 
DECELERATED  ObJECT  SYSTEM  . 

CALL  MATMPY  ( UPPUOfUtOtUPPRE L ,3 ,3 , 1) 

CALCULATE  THE  UNIT  VECTOR  OF  UPPDO  . 

RESULT  =  SURT(UPPUOdl**2+UPPDO(2)**2+UPPDO(3)**2) 

00  130  1=1,3 

IjO  UVVd)  =  UPPDO  ( 1 )  /RtSULT 

APPROXIMATE  THE  FORCE  APPLICATION  POINT  FROM  THE  VELOCITY 
VECTOR  . 

CALL  LIBRIOL  (FaP, 

.  AP X , AP 1, AP2,AP3,AP4, CON, B LI, UVV, XPPDO) 

GO  TU  IttO 
c 

140  SMI  =  1. 

C 

t  -  CALCULATE  the  force  application  point  - 

c 

C  OcTEKMINt  THE  UNIT  VtCTOR  FROM  THE  PARACHUTE  PACK  TO  THE  BRIOLE 
C  APtX  IN  THE  DECELERATED  UoJtCT  COORDINATE  SYSTEM  . 
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150  CALL  VtCAY Z  (XPPD0,XPP,XD0,Ut0, l) 

c 

L)U  160  1  =  1,3 

160  UVL(1J  =  APXil)  -  XPPUO(I) 

c 

RESULT  =  SORT  ( UVL  (  1  J**2+UVL  (2  >  **2-*-UVL  (3  )**2  ) 

C 

0u  170  1=1,3 

170  UV  HI)  =  U  VL ( 1 )  /RE  SUL  T 
C 

175  CALL  L1BK10L  (PAP, 

.  APX , API , AP2 , AP3  « AP4* CON* BLl * UVL ,XPP00 ) 

- CALCULA  T  t  THt  LINE  VARIAbLES  - 

160  CALL  LIL1NE  ( RL ,U VL , VL, VAP , 

.  FAP , XDQ, UDO, EDQI R, WD01R , XPP, UPP » DEO ) 

- DETERMINE  T Hfc  CANOPY  CG  POSITION  AND  WEIGHT - 

NA  =  1LM (2 ) 

PCG  =  1BLU1  (RL,TCW(4)  ,TCGlU  ,1,-NA) 

CUT  =  TbLul(RL»TCW(4) , TCW ( N  A+4 1,1, — NA ) 

-  CHtCK  FOR  LINEsTRfcTCH  - 

IrlRL.GE.TCW (NA>3 ) )  GO  TO  2o5 

-c -  CALCULATE  THE  CANOPY  STRIPUUT  FORCE  - 

LIU  1*0  1  =  1,3 

i.*0  FSTP(l)  =  FSO  *  ( —UVL  (11) 

- CALCULATE  Trlt  FOKCt  ACTING  ON  THt  DECELERATED  OBJECT  RESULTING 

FROM  PULLING  THE  PARACHUTE  FROM  THE  PACK 

00  2 GO  1=2, NA 

2U0  IFiRL.LT .TCW ( 1+3 ) )  GO  TO  clu 

*10  uWuL  =  (  TuW  (NA+I*J  I— TCW(NA+-I*c)  )/ (TCW(  1+3  1— TCW(  1  +  2  )  ) 

OMUL  =  DWOL/GRAV 
MPUOT  =  OMDL  *  VL 

DO  22C  1=1,3 

^2u  FAOU(l)  =  MPDOT  *  (-uVL(II) 

-  SUM  Iht  FORCES  ACTING  ON  THE  DECELERATED  OBJECT  - 

DU  c3G  1=1,3 

230  FOOT  ( 1 )  =  FSTP(l)  ♦  FADOU) 

CALL  MA1MPY  (F00,0tU,PD0T,3,3, II 

-  CALCULATE  THt  TORGUt  ACTING  ON  THt  DECELERATED  OBJECT  - 

CALL  CRSPKD  (TDO,FAP,FDU) 

-  SUM  ThE  FORCES  ACTING  JN  The  PARACHUTE  PACK  - 


rrh  r  «->  o  roc  o  corn 


C 

Oil  240  1=1,3 
240  FLPCI)  =  -FSTPCI) 

- CALC ULAl t  THE  CANOPY  C&  V ELUC 1 TY  ALONG  THE  PARACHUTE  - 

LINES  WITH  RESPeCT  TO  THE  FORCE  APPLICATION  POINT 

00  250  1=2  ,NA 

250  IFCRL.LT .TCW( 1+0) )  GO  TO  260 

260  DeGOL  =  (TCGCI)-TCG(l-l))/(TCW(l+3)-TCW(l*2>> 

VCG  =  VL  -  VL  *  DCGDL 
GO  TO  330 

*******  aT  L1NEST RETCH  ******* 

265  FLA  =  4. 

TLS  =  TIME 
VCG  =  0 
00  270  1=1,3 

TDQ(l)  =  FOOCI)  =  FLPCI )  =  0 
270  CGNT1N0E 

CALCULATE  THE  UNLOADED  LINE  LENGTH  . 

CALL  VEcXYZ  I XPCS , XPC.XDO ,0E0 , 1 ) 

RLC  =  SORT  (  (FAP ( 1 )  — XPCSC 1 1  )  **2  ♦  CFaP(2)-XPCS(2)  )**2  ♦ 

.  ( FAP ( 3 l—XPCSC 3 ) 1**2) 

RL  =  RLO 

WRITE  The.  LINESTRETCH  MESSAGE . 

IF (INST. EG .26)  WRITE  16,275)  TYPE, TIME 
275  FORMAT C/5X.A8,*  CHUTE  LINESTRETCH  AT  TIME  =  *,F10.4,*  SEC*/ ) 

1 

C  ********************************** 

C  **  ** 

£.  **  AFTtR  LINESTRETCH  ** 

C  **  ** 

L  ********************************** 

C 

c 

C  -  CALCULATE  THE  FORCE  APPLICATION  POINT  - 

C 

l  determine  the  unit  vector  from  the  parachute  canopy  to  the  bridle 

C  APEX  IN  THE  DECELERATED  OBJECT  COORDINATE  SYSTEM  . 

C 

280  IFCbLl.EO.l.)  GO  TO  305 

CALL  VECXY L  1  XPCD0,APC,a0U,  l»eU,  1 ) 

C 

00  290  1=1,3 

290  UVLCI)  =  APXCI)  -  XPCDOC 1 ) 

C 

RESULT  =  SQRTCUVL C1)**2H»VL( 2)**2*UVL( 3)**2) 

C 

DU  300  1=1,3 

300  UVL(l)  =  OVLC  D/RcSoLT 
C 
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JOS  CALL  Ll&RIOL  (FAP, 

.  APX  *  API ,  AP2 ,  AP3  ,  AP4 ,CON,  BLI , UVL  »XPCQO ) 

-  CALCULATE  THt  LINE  VAKlAbLtS  - 

CAL*.  LiLlNE  (RL,UVL,VL»VAP, 

.  FAP,XUu,UuO, EDOIR,WQ01R,XPC,  UPC, DfcQ) 

IF  (VLS.E3.0)  VLS  =  VL 

- CALCULATE:  THt  PARALHUT t  LINE  LOAD - 

LUC.iC  TU  Lit  Tfe  RM1NE  THt  LINE  ACCELEKAT  ION . 

AL  -  U 

IF (lMST.tQ.2b)  AL  =  VL  -  PVL 

IF(I  TINC.tQ.l  .AND.  INST. tu. 2b)  PVL  =  VL 

TALS  =  TIMt  -  TL. 

IFITalS.LT.O.)  TALS  =  C. 

CALL  ULUau  (FLL,FTk,EC,ECO,I£C»TF,TFO,  ITF, 

.  TALSyAL,  VL  i  RL  »R  LO  »l'OR  »  ULL»  UL  S  ,  T YPt , 

.  ELM  » tLC,  UEMt  RMN) 

-  CALCULAl t  THt  FuKCcS  AND  TORQUES  ACTING  ON  THE  OBJECT 

DO  310  1=1,3 

310  FOOT ( 1 J  =  FLL  *  t-UVL(I)) 

CALL  MATMPY  ( FOu, OtOy  FOOT ,3,3,1) 

CALL  LRSPKD  ( TDO , F AP , F QU) 

-  CALCULATE  THt  FUKCtS  ACTING  ON  THE  PARACHUTE  CANOPY 

DU  320  1=1,3 
320  FLP( 1)  =  -FOOT (1  ) 

C 

330  Rc  TURN 
tNG 


374 


c 

c 

C 

C 

c 

L 

C 

L 

C 

Z. 

C 

C 

c 

c 

L 

C 

C 

L 

L 

C 

C 

L 

C 

c 

c 

c 

c 


c 


c 

10 

cl) 


c 

SO 

c 

40 


c 

SO 


c 

60 


SUbRQUTINE  LIBR1DL  (FAP, 

APX,APl,AP2,AP3,AP4,C0N,dLl,UV, XPDO) 

COMMON  /CIO/  IRtAo,  1WR1TE  » ID  1  AG 


**=*♦*  LIBRIDL  OUTPuT 6  ***** 


FaP(3)  -  X,  Y»Z  uECtLERATtO  OBJECT  BODY  AXIS  LINEAR  POSITION 
VECTOR  OF  THE  FORCE  APPLICATION  POINT  (FT) 


*****  LIBRIOL  INPUTS  ***** 


APX(3) 

APU  3) 

AP2 ( 3 ) 

AP3( 3) 

AP4( 3 ) 

COM4) 

BLI 

UV(3) 

XP0U13) 


X»Y,Z  DECELtRATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  The  BRIDLE  APEX  (FT) 

X,Y,Z  OECtLERATEO  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  FIRST  DRIOLt  ATACHMENT  POINT  (FT) 

X,Y,Z  DECtLcRATEO  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THt  SECONO  BRIDLE  ATTACHMENT  POINT  (FT) 

X,Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  THIRD  BRIDLE  ATTACHMENT  POINT  (FT) 

X,Y,Z  OECtLERATEO  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  FOURTH  bRIULE  ATTACHMENT  POINT  (FT) 

CONSTANTS  IN  THt  EQUATION  FOR  A  PLANE 
NUMBER  OF  oRIDLt  LINES 

UNIT  VECTOR  FROM  THt  PARACHUTE  PACK  TO  ThE  BRIDLE  APEX 

IN  THt  DECELERATED  OBJECT  COORDINATE  SYSTEM 

A,Y,Z  DECtLtRAT EU  OBJECT  BODY  AXIS  LINEAR  POSITION 

vectur  of  the  parachute  (ft> 


ulMtNSIUN  FAP13) ,APA( 3 ) , API ( 3 ) , APZ ( 3 ) ,AP3(3) ,AP4(3) , 
COM4)  ,XI(3),UV(3)  ,XPD0(3) 

DO  TO  (10, 30,40, 50), bLl 

00  20  1=1,3 
FAP(I)  =  API ( 1 ) 

GO  TO  t>0 

CALt  bRI0L2  ( FAP, APX, XPDO , API , AP2 ) 

GO  1U  6o 

CALL  L1NEPL  ( XI ,CON, APX.UV ) 

CALL  dR1DL3  ( FAP , APX, UV.XPDO, API , AP2 , AP 3, XI ) 

GO  10  60 

CALL  L1NEPL  ( XI , CON, APX.UV ) 

CALL  6RIUL4  (FAP, APX.UV, XPDO, API, AP2,AP3,AP4, XI) 

RtlUkN 

END 
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SUfaKOUl  1  NE  LIL1NE 


(RL.UVL.VL, VAP, 

FAP,XOO,UUO,£DO,WOO,XPC,UPC,OEO> 


***** 


LiLlNE  OUTPUTS  ***** 


RL  -  DISTANCE  FROM  THE  FORCE  ATTACHMENT  POINT  TO  THE 

PARACHUTE  CtNTER  OF  GRAVITY  (FT) 

UV  Lt  3 )  -  PARACHUTt  LINE  UNIT  VECTOR 

VL  -  RATE  OF  CHANGE  OF  THE  PARACHUTE  LINE  LENGTH  (FT/SEC) 

VAP( 3 )  -  X,Y,2  EARTH  SYSTcM  VELOCITY  VECTOR  OF  THE  FORCE 
APPLICATION  POINT  (FT/SECI 


*****  LIlINE  inputs  ***** 


FaPI3)  - 

XDO(3>  - 

uuot 3 )  - 

EDO(3)  - 
HDO( 3 )  - 

XPC(3)  - 
UPC(3I  - 

DEU( 3. 3) 


X,Y,2  DECELERATED  ObJECT  BODY  AXIS  LINEAR  POSTION  VECTOR 
OF  THE  FORCE  APPLICATION  POINT  (FT) 

X  ,  Y,  2  EARTH  SYSTEM  LINEAR  POSITON  VECTOR  OF  ThE  DECELERATED 
ObJECT  CENTER  UF  GRAVITY  (FT) 

X  *  Y  ,  2  DECELcRATED  OBJECT  BODY  AXIS  LINEAR  VELOCITY  VECTOR 
OF  THE  DtCELtRATtD  utJJECT  (FT/SEC) 

EARTH  TO  DECELERATED  OBJECT  EULER  ANGLES  (RAD) 

X.Y.2  DECELERATED  OBJECT  BODY  AXIS  ANGULAR  VEClOCITY 
VECTOR  OF  THE  DECELERATED  OBJECT  (kAD/SEC) 

X i Y«2  EARTH  SYSTEM  LINEAR  POSITION  VECTOR  OF  THE  PARACHUTE  (FT 
X  ,  Y  ,  2  tARTH  SYSTEM  LINEAR  VELOCITY  VECTOR  OF  THE  PARACHUTE 
(FT/SEC) 

-  EARTH  TO  DECELERATED  OBJECT  DIRECTION  COSINE  MATRIX 


DIMENSION  UVL ( 3 ) ,  V  AP  (  3 )  »F  AP  (  3  ) , ADO (3) * UDO ( 3 ) »  E DO ( 3 ) ,WOO(3)  , 
.  XPC( 3 ) *  UPCl 3),0e0(3,3) » DOE ( 3»  3 )  ,FAPE (3) , DELTA! 3  ) 

**********  CALCULATE  THE  LINE  LENGTH  VARIABLES  ********** 


LOCATE  The  FORCE  APPLICATION 


POINT  IN  THE  EARTH  SYSTEM  .... 


CALL  TRANS  ( DOE ,OEO,3 , 3 ) 

CALL  VtCXY 2  (FAPt,FAP,XDUfDOt,2) 

COMPUTE  ThE  RESULTANTS  AND  DIRECTION  CUSINES 


UO  10  1=1,3 

10  OEClA(I)  =  FAPt(I)  -  XPC(l) 

RL  =  SuKT(0ELTA(i)**2*UcLTA(2)**2*0ELTAm**2) 

CALCULATE  The  line  UNIT  VECTOR  . 

DO  20  1=1,3 
UVL (  1  )  =  DeLTA(I)/RL 
C 

c  **********  calculat t  the  line  velocity  variables  ********** 

L 

C  UtT ERMINE  THE  EARTH  SYSTEM  VELOCITY  OF  THE  F AP  . 

C 

Call  velxy2  (Vap,uDu,FAP,*OU,DOE) 

L 

C  Calculate  The  EARTH  VELOCITY  OIFFEReNCE  . 

c 
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nor 


VAP ( 1 )  -  UPC(1 » 


00  30  1=1,3 
30  OtLTA(l)  = 

PKUJtCT  THt  OIFFERtNut  ON  THt  PARACHUTE  LINE 

CALL  OOTPRO  < VL , DcLI A ,UVL ,3 ) 

C 

RETURN 

END 


» 
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c 

L 

C 

L 

C 

C 

L 

i. 

C 

c 

L 

c 

t 

c 

L 

4. 

c 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

4. 

c 

L 

c 

c 

c 

c 

L 

c 

L 

c 

c 

c 

l 

c 

l 

c 


c 


c 

c 

c 


SDtiKUUl  1NE  LI  LOAD  (  FT T  . FC  TR  »  EC  . fcC DOT  *  1  EC .  TF >  T FD»  IT F  t 

I ALS.AX, VX .X.LO.GORES.UlTLD.oLTST.T  YPE, 
ELM.tLMl  .GEL3MAX.RMAXD2  ) 


*****  liload  gut  pot  s  ***** 


fit 

PC.TR 

ec 

ECOOT 

Itc 

IF 

TPD 

ITF 


TENSILE  LOAD  (Lo) 

ULT IMA  T  t  iTRtNGTH  MULTIPLICATION  FACTOR 
CRfctP  STRAIN  IN  TENSILE  MEMBtR  (IN/IN) 
CREEP  STRAIN  RAIL  ( 1/SEC ) 

INTEGRATION  CONTROL  FLAG 

TIME  DURATION  OF  PARACHUTE  LINt  LOAD  (SEC) 
TIME  UURATION  RATE  ( EQUALS  ONE  UNDER  LOAD) 
INTEGRATION  CONTROL  FLAG 


*****  LILOAD  INPUTS  ***** 


TALS 

AX 

vx 

LO 

GORES 

ULTLD 

ULTSI 

TYPt 


TIME  AFTER  LINESTReTCH  (SEC) 

rate  of  change  of  vx  (ft/sec/seo 

RATE  OF  CHANGE  OF  THE  LINE  LENGTH  (FT/SEC) 

ORIGINAL  UNSTRESSED  LENGTH  OF  THE  PARACHUTE  LINES  (FT) 

number  of  parachute  gores 

ultimate  strength  of  a  parachute  suspension 

LINE  (Lb) 

ULTIMATE  STRAIN  OF  A  PARACHUTE  SUSPENSION 
LINE  ( IN/ IN) 

ALPHANUMERIC  FOR  PARACHUTE  TYPE 


ARGUEMENTS  INCLUDED  TO  SAVE  VALUES  ***** 


ELM  -  MAXIMUM  STRAIN  EXPERIENCED  BY  THE  TENSILE  MEMBER  (IN/IN) 

ELM1  -  MAXIMUM  STRAIN  EXPERIENCED  OURING  THE  CURRENT 

LOADING  CYCLE  (IN/IN) 

DELOMAX  -  THE  MAXIMUM  POSITIVE  STRAIN  RATE  EXPERIENCED  DURING 
THE  LOADING  HISTORY  (i/SEC) 

RMAA02  -  THt  MAXIMUM  NEGATIVE  STRAIN  RATE  EXPERIENCED  DURING 
THE  CURRENT  UNLOADING  CYCLE  (1/SEC) 


January  1978  EDITION  uF  TtNSlLE  LOAD-ELONGATION  ANALOG  FOR 
MIL-C-SGAOE  NYLON  CURE-SLtEVc  CORD  .  .  . 

RtFERENCE  -  AFF0L-TR-7B-169  SIMULATION  OF  THE  DYNAMIC  TENSILE 
CHARACTERISTICS  OF  NYLuN  PARACHUTE  MATERIALS 

AUTHOR  -  ROBERT  t.  MCCARTY  513-255-52516 
AFFDL/FtR  W-PAF  B  »  OHIO  A5433 

DIMENSION  EXA ( o ) , EXO ( 6 ) , EXC ( 5 , 3 ) « T C <  6 ) , FC ( 3 ) ,CSR(6,3) , 

.  DPA(6),DPO(6)  ,uPC  (5,  3)  tELRLC  (3)  »  E  LRRC ( 3)  ,RaTC(3S 

COMMON  /COVRLY/  INST 

COMMON  /CT1ME/  TIME 

COMMON  /CIU/  IREAu.lRRllt.IOlAG 

REAL  KRLfRCR.KDP.LtLQ 

-  CRtEP  STRAIN  RATt  DATA  FOR  TABLE  LOOK  uP  - 
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C 

L 

C 

C 

C 

c 


TC  is  AN  INDEPENDENT  V AK I ABL E  ARRAY  FOR  TIME  (SEC)  . 

DAl A  TC  /  0..  .2,  .5.  .9*  1.6 »  20./ 

FC  IS  AN  INDEPENDENT  VARIABLE  ARRAY  FDR  TENSILE  LOAD  (LB)  . 

DATA  FC  /  0.,  60.,  1000./ 

CSR  IS  A  DEPENDENT  ARRAY  FOR  CREEP  STRAIN  RATE  { 1/SEC)  . 

data  csr  /  o.,  o«,  o.,  o.t  o.,  o.  * 

.  .06779,  .03310,  .0x670,  .01010,  .001919,  .001919, 

.  .06779,  .03510,  .016/0,  .01010,  .001919,  .001919  / 

-  MATERIAL  UNLOADING  CURVE  FIT  PARAMETERS  - 

DPA  IS  AN  ARRAY  OF  ABSCISSAE  FOR  THt  SIX  FIXED  KNOTS 
IN  A  CUBIC  SPLINE  CURVE  FIT  UStO  TO  REPRESENT  MATERIAL 
UNLOADING  CHARACTERISTICS  . 

DATA  DPA  /  0.0,  0.072,  0.272,  0.65359,  0.73397,  1.0  / 

DPO  (Lb)  IS  AN  ARRAY  OF  ORDINATES  FOR  THE  SIX  FIXED  KNOTS  . 

DATA  DPO  /  0.67719,  15.1*0,  30.966,  17.945,  11.383,  0.0/ 

UPC  IS  AN  ARRAY  OF  CUblC  SPLINE  COEFFICIENTS  . 

DATA  UPC  /  91.631,  216.90,  2.3375,  -60.664,  -71.635, 

.  2776.2,  -1013.6,  -o9.19l,  -148.32,  260.65, 

.  -17555.0,  1574.1,  -69.126,  1696.0,  -603.77/ 

-  LOADING  CURVE  FiT  PARAMcTcRS  - 

EXA  (1N/IN)  IS  AN  ARRAY  uF  ABSCISSAE  FOR  THE  SIX  FIXED  KNOTS 
IN  THE  CUblC  SPLlNe  CuRVt  FIT  USED  TO  REPRESENT  MATERIAL 
LOADING  CHARACTERISTICS  . 

DATA  tXA  /  0.0,  . 037 2*io,  .056852,  .178688,  .210448,  .237515/ 

EXO  ( LB )  IS  AN  ARRAY  OF  ORuINATES  FOR  THE  SIX  FIXED  KNOTS  . 

DATA  EXO  /  0.0,  10.7213,  33.U«.81,  156.476,  203.580,  251.117/ 

EXC  13  AN  ARRAY  OF  CuBiC  SPLlNe  COEFFICIENTS  USED  TO  REPRESENT 
THE  MATERIAL  LOADING  CHAR ACT tKlSTICS  . 


DATA  EXC  /  122.991,  756.4/1,  1153.19,  1216.67,  2107.30, 

.  -3716.97,  20733.9,  -3315.61,  4012.75,  24201.0, 

.  ci6974.0,  -370731.0,  20330.3,  213226.0,  -1484210.  / 

C 

C - PLASTIC  STRAIN  CHARACTtR I  ST IC  - 

C 

DATA  ELRLC  /  -. 05o8  ,  . 2 17b , 3 . 5969/ 

OaTa  ELRRC  /  -.0306, .2178, 3. 5969/ 

L. 

C  -  DAMPING  STRAIN  DEPENDENCE  DATA  - 
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C 


DATA  RATC  /  -2.7200,  122.01,  -272.36/ 


-  Mi  SO.  DATA  - 

data  krl,kcr,kdp, vsfqm  /  3*1.0,  0.03*,  / 

************* *********** 

*****  tLONGAT ION  ***** 

*************  ****  ******* 

EL  (1N/1N)  13  3TKA1N  BASED  ON  ORIGINAL  UNSTRESSED  LENGTH  . 

EL  =  FSW  ( X/LO— 1 . ,  O . ,  0.,  X/L0-1.) 
cL  =  EL  *  .237515/ULT ST 

ELO  (1N/1N1  IS  THE  STRAIN  EXCLUDING  CREEP  STRAIN  . 

ELU  =  ESW  ( EL-EC ,  0.,  0.,  EL-ECI 

ELM  (IN/INI  IS  THE  MAXIMUM  STRAIN  EXPERIENCED  DURING  THE 
LOADING  HISTORY  . 

Elm  =  amaxkelo.elmi 

ELM1  (IN/IN)  IS  THE  MAXIMUM  STRAIN  EXPERIENCED  DURING  THE 
CURRcNT  LOADING  CYCLE  . 

ELM1  =  FSW  (VX,  AMAX1 ( ELO, ELM 1 ) ,  ELO,  ELQ> 

ELRL  (IN/ IN)  IS  THE  UPPER  BOUND  FOR  RESIDUAL  STRESS  . 

ELRL  =  ( ( ELRLC l 3 ) *t LM*ELKLC ( 2 ) )*ELM*ELRLC ( 1 ) ) *ELM+ .0016 

ELRR  (IN/IN)  IS  THE  LOWER  BOUND  FOR  RESIDUAL  STRAIN  . 

cLRR  -  ( ( ELRRC ( 3 ) *ELM*ELRRC (2) )*ELM+ELRRC ( 1 ) ) *ELM+. 00 18 

TS  (SEC)  IS  THE  CUMULATIVE  TIME  FOR  WHICH  THE  MEMBER  EXPERIENCED 
2.C.RQ  LOAD . 

TS  =  TALS  -  TF 

TSS  IS  THE  RATIO  OF  TS  TU  THE  VALUE  OF  RELAXATION  TIME  FOR 
THE  MATERIAL  . 

TSS  =  FSW  ( ( TS/.3 )— 1. ,  TS/. 3 ,  1.,  1.) 

ELR  (IN/IN)  IS  THE  RESIDUAL  STRAIN  . 

ELR  =  ELRL  -  TSS  *  AdS(ELRL-ElRR) 

ELR  =  RLIM  (KRL*ELR,  G.»  NRL*ELR) 

ELUT  (IN/IN)  IS  THE  LINEAR  TRANSFORM  OF  STRAIN  . 

EL01  =■  (ELO-ELR)*ELM/(ELM-ELR*.0D001 ) 

c 

C  ELS  IS  THE  NORMALIZED  STRAIN  . 
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L 

ELS  =  (tLMl-ELO)/(ELMl-£LR*.OGOGl) 

ELS  -  FSM  CELS-1,  ELS*  ELS*  1.0) 

ELS  =  FSM  (ELS,  0.,  0.,  ELS) 

C 

C  L  (FI)  IS  THt  CURRtNT  UNSTRESSED  LENGTH  . 

C 

L  =  LU  *  (l.+ELR) 

C 

C  tLOT  (1N/IN)  IS  THE  LINEAR  TRANSFORMATION  OF  STRAIN  . 

C 

ELOT  =  RL1M ( ELOT ,0. *E  LO) 

L 

C  OELO  (1/SEC)  IS  THc  STRAIN  RATE  EASED  ON  ORIGINAL  UNSTRESSED 

C  LENGTH  . 

I 

DELO  =  VX/LO 

C 

C  ut LOMAX  (1/StC)  IS  The  MAXIMUM  POSITIVE  STRAIN  RATE  EXPERIENCED 

*.  DURING  THt  LOADING  HISTORY . 

C 

DtLGMAX  =  A MAXI  ( DELO *  DE LOMAX) 

RMAXD1  (1/StC)  HAS  THE  VALUE  OF  OELO  WHEN  THE  STRAIN  RATE  IS 

negative  . 

RMAXDl  =  FSM  (DELO,  uELQ,  0.00001,  0.00001) 

RMaX02  (1/StC)  IS  THt  MAXMiMUM  NEGATIVE  STRAIN  RATE  EXPERIENCED 
OURING  THE  CURRENT  UNLOADING  CYCLE  . 

RMAXD2  -  FSW(DEL0, AMINl(AMAX0i,RMAXD2) ,0.00001,0.00001) 

CHECK  TO  SEE  IF  PARACHUTE  cINES  HAVE  FAILED  . 

DO  10  1  =  1,5 

1 F ( t XA ( I ) .LE. ELO. AND. tLO. LT.EXAlI+1))  GO  TO  30 
10  CONT INUc 

IFdNST.EQ.26)  WRlTt(b,20)  TYPE, TIME 
CO  FORMAT (/5X,At»»*  CHUTE  LINES  FAILED  AT  TIME  =  *,F10.A,*  SEC*, 
.  *  =====  RUN  STOPPED  =====  */) 

STOP 

************************** 

*****  SPRING  FORCt  ***** 

* ************* ** ****** **** 

FSO  (Lb)  IS  THE  TENSILE  LOAD  CALCULATE  FROM  THE  CUBIC  SPLINE 
FIT  . 


aO  0  -  ELO-tXA(l) 

F*0  =  ( ( EXC ( 1 , 3 ) *D+EXC( 1,2) ) *D*cXC (1,1) )*D*EXO(  I ) — EXOl  1 ) 


DU  AO  1=1,5 

lF(EXA(l).Lt. ELOT. AND. ELOT. LT.EXAt 1*1 ) )  GO  TO  50 
AO  CONTINUE 


FSR  (Ld)  IS  The  TENSILE  LOAO  CALCULATED  FROM  THE  CUBIC  SPLINE 
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C  FIT  FLR  THE  MATERIAL  REPEATED  LOADING  CHARACTER!  ST  ICS 


50  O  -  ELOT-EXA(I) 

FSR  =  UEXC(I,3)*0+EXC(I,2)  )*DFEXC(I,in*D*EXJ(I)-bXO(l) 


FSOL  (LB)  lb  FSL  1M1TE0  TO  POSITIVE  VALUES 


FSOL  =  RLIM  ( F  SO  t  0.,  FSO) 


FSRL  (Lb)  IS  FSR  LIMITED  TO  POSITIVE  VALUES 


FSRL  =  RLIM  (FSR,  0.,  FSR) 

FS2  (Lb)  HAS  THE  VALUE  OF  FSOL  FOR  INITIAL  LOADING  AND 
THE  VALUE  OF  FSRL  FOR  REPEATED  LOADING  . 

FS2  =  FSM  (ELQ-ELM,  FSRL,  FSOL,  FSOL  ) 

FS1  IS  THE  SAME  AS  Fs2,  BUT  is  ZERO  WHEN  THE  LENGTH  IS 
LESS  THAN  THE  CURRENT  UNSTRESSED  LENGTH  . 

FSl  =  FSW(ELO-ElR,0.0,0.0,FS2) 


FS  ( Lt) )  AS  The  CURRENT  eUAD 


FS  =  FSl 

***************** ************* 

*****  DAMPING  EFFECT  ***** 

****************************** 

RATIO  IS  A  SCALAR  UUANTITY  USED  TO  ADJUST  THE  MAGNITUDE  OF 
LUAD  ...... 

RATIO  =  ( (RATC(3)»ELM1+RATC(2>)*ELM1*RATC( 1) )*ELM1 
DO  60  1=1,5 

1F(0PA(I).LE.ELS.AND.ELS.LI.DPA(I+-1)  )  GO  TO  70 
bU  CONT 1NUE 

FLR,  (Lb)  IS  THE  LOAD  CALCULATcD  FROM  THE  CUBIC  SPLINE 
FIT  FOR  THE  MATERIAL  UNLOADING  CHARACTERISTIC  . 

70  0  =  ELS-OPA(I) 

Fu4  =  ((OPC(I,3)*U*DPC(1,2))*G-RDPC(I,1))*D+DPO<I) 

VSFD  (SEC)  IS  THE  LINEAR  FUNCTION  OF  THE  MAXIMUM  STRAIN  RATE 


VsFD  =  0.90  ♦  VSFOM  *  DELOMAX 

FOB  (Lb)  IS  THE  VALUE  OF  FU4  SCALED  FOR  CURRENT  CYCLE  MAXIMUM 
STRAIN  AND  MODIFIED  bY  A  LINEAR  VISCOUS  OAMPING  TERM  . 

FU3  =  FD4*RATI0*KDP*VSFD*(ELMI-ELR)/(ELM-ELR+l.E-6) 

FOB  =  FSW  (FD3,  0.,  0.,  F03J 
FD3  =  FSW  (FD3-FS,  F03,  FU3 ,  FS) 

FDi  (Lb)  IS  THE  SAME  AS  FD3  BUT  LIMITED  TO  ZERO  WHENEVER 
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THE  STRAIN  RATE  IS  ZEKU  OR  POSITIVE  ...... 

F01  =  FSW ( VX  » F03  «  u . . 0. ) 

FD2  (L8)  IS  THE  SAME  AS  FD1  EXCEPT  THAT  IT  HAS  THE  VALUE  ZERO 
whenever  the  length  IS  LESS  Than  the  current  UNSTRESSED  LENGTH 

F02  =  FSW(L-XfFDltG.G,G.G) 

FO  (Lb)  IS  THE  CURRENT  UNLOADING  DECREMENT  DERIVED  FROM  FD2  ... 

factor  =  sort(Delo/rmaxd2) 

IF ( AX.LE. 10 . )  FACTOR  *  AX*( FACTOR-1 . )/!0.  «•  1. 

FD  =  FSW(AX,F02,FD2,FACT0R*FD2) 

*****  CALCULATE  The  TENSILE  LOAD  (FT)  ***** 

FT  =  FS  -  FD 

FT  T  =  FT  *  GORES  *  FCTR  *  ULTLD/2S1.117 

***************************************************** 

*****  DETERMINE  the  current  creep  strain  rate  ***** 
***************************************************** 

TF(SEC)  IS  The  CUMULATIVE  time  for  which  tensile  member 
EXPERIENCED  NONZERO  LOAD  . 

TFu  =  G. 

1F(FT.GT.0.0  .AND.  1TF.NE.0)  TFu  =  1. 

IF (T  F  ,GT .  TC(b ) )  GO  TO  80 

DeC  (a/SEC)  IS  THE  CURRENT  CREEP  STRAIN  RATE  . 

DEC  =  TOLU2  (TF,FT,TC,FC»CSR, ltI»-o,-3,b,3) 

•0  IF (FT.LE.O.O)  DEC  =  U.G 

IFUF.GT.TC16))  DEC  =  G.O 
IF ( I EC.NE.O )  ECDOT  =  DEC*KCR*1.8 
C 

RETURN 

END 
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SUBROUTINE  LINDST  (XYZ,R3I,DC, 

.  PT1,PT2,PT3) 

DIMENSION  XYZ(3),UC(3),F'Ti(3),PT2(3)»PT3(3l»0C12(3),0ELl3(3) 

C 

C  THIS  ROUTINE  CALCULATES  THE  COORDINATES  OF  THE  INTERSECTION 
C  OF  A  NORMAL  DRAWN  FROM  POINT  ThREE  TO  THE  VECTOR  PT1,PT2. 

C  THE  uIRtCTION  COSINES  AND  MAGNITUDE  OF  THE  NORMAL  ARE  ALSO 
C  CALCULATED. 

C 

C  *****  L1NOST  OUTPUTS  ***** 

C 

C  XYZ(3)  -  X,Y,Z  POSITION  VECTOR  OF  THE  INTERSECTION  (FT) 

C  R3I  -  MAGNlTuDt  OF  THE  NORMAL  VECTOR  (FT) 

C  DC (3)  -  DIRECTION  COSINES  OF  THE  NORMAL  VECTOR 

c 

C 

L  DETERMINE  THE  MAGNITUDE  OF  VECTOR  PT1.PT2.  DETERMINE  ITS  DIRECTION 
C  COSINES  . 

c 

R12-SURT  l ( PTll 1 )— PT2( l) ) **2*( PT1 (2)-PT2(2))**2*(PTl(3)-PT2( 3) )**2) 
DO  10  1=1,3 

10  DC  12(1)  =  (PT2(I)-PT1U))/R12 

CALCULATE  THE  INTERStCTION  POSITION  VECTOR  . 

DU  IS  1=1,3 
IS  DEL13 ( 1 )  =  PT3( I  )  -  PTl(i) 

CALL  DOT PRD  (Rll,0ELl3,DC12,;>) 

C 

DO  2U  1=1,3 

20  XYZ(I)  =  PTl(l)  ♦  R1I  *  0C12( 1 ) 

C 

C  CALCULATE  THE  DIRECTION  COSINES  OF  THE  NORMAL  . 

C 

R31  =  SORT  (<XYZ(l)-PT3(i))**2  «■  ( XYZ ( 2 )-PT3( 2 ) ) **2  * 

.  (XYZ ( 3 ) — PT3 ( 3 ) ) **2) 

RMIN  =  .02  *  R12 
IF  (R*l  -  RMIN)  30,30,40 
C 

30  OCUI  =  OC  (2)  =  DC (3 )  =  0 
GO  TO  60 
<L 

40  OQ  50  1=1,3 

50  DC (1  )  =  (XYZ(1)-PT3(1))/R31 

C 

oO  RETURN 
END 
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SUbROUTINE  L1NEPL  (X*C,XL,0C) 

DIMENSION  X(3)»C(4)»XLl3) »  DC ( 3 ) 

THIS  ROUTINE  DETERMINES  THE  COORDINATES  OF  THE  INTERSECTION  OF 
A  LINE  AND  A  PLANE. 

X (3 )  ARE  THE  COORDINATES  OF  THE  INTERSECTION  OF  THE 
LINE  MITH  THE  PLANE. 

THE  PLANE  IS  DEFINED  AS  C(1)*X  ♦  C<2)*Y  ♦  C(3)*Z  ♦  C(4)  =  0. 
THE  LINE  IS  DEFINED  AS  HAVING  DIRECTION  COSINES  DC(3>,  PASSING 

Through  a  point  with  coordinates  xl(3). 

DP  =C  1 1  >  *QC  11 ) +C ( 2  l*OC  l 2 1  +C  ( 3  J  *OC  1 3 ) 

IF(UP.EO.O.O)T=0 

IF ( DP.NE  *G .0) T  =  (— C (4)— C( 1 J*XL ( 1 1— C ( 2 )*XL1 2 )— C (3 ) *XL ( 3 ) )/DP 
DO  10  1-1(3 
10  X(I)  =  XL ( I )  ♦  T*DC(1) 

RETURN 

END 
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SUBROUTINE  LOOK (NN,R  »  VOClT  ) 

C 

c  ====^=======  =  calling  argument i  :=s=sskih::« 

c 

C  NN  LOCATION  IN  R  ARRAY  OF  DEPENDENT  VARIABLE  TABLE 

C  R  ARRAY  CONTAINING  AIRPLANE  AERODYNAMIC  TABLES 

C  VOUT  -  V.LUE  OF  THE  DtPENOENT  VARIALBE  DESIRED  (OUTPUT) 

C 

c 


DIMENSION  K(l)yNlVO)  »NSI  (  3  )  •  1ND(  3  )  »NR(  60  ) 
COMMON  /REGIONS/ 


1 

NR  1. 

NR2, 

NR3  . 

NR4, 

NK5  « 

NR6  , 

NR7  , 

NR6, 

NR9, 

NR10  , 

NR11, 

2 

NRl  2  . 

NR13. 

NR14, 

NR  15, 

NR  lb  . 

NR  17  , 

NR  18, 

NR  19, 

NR20, 

NR21 , 

NR22 , 

3 

NR23, 

NR24, 

NR25  . 

NR2b* 

NR27  , 

NR2b« 

NR  29, 

NR  30, 

NR31, 

NR32  , 

NR33  , 

4 

NR34, 

NR35  » 

NR  36, 

NR37, 

NR  . 

NR39 , 

NR  40  , 

NR41, 

NR42, 

NR43, 

NR44, 

5 

NR45, 

NR4b, 

NR  47, 

NR  4b, 

NR49, 

NR  50, 

NR51 , 

NR52, 

NR53, 

NR54, 

NR55, 

o 

NR56  . 

NR57  . 

NR5B  , 

NR59, 

NRbO 

C 

EQUIVALENCE  (NIV(1  ),N1V1)  .  (NIV<2)  ,NIV2),  (NIV(3)  ,NIV3), 

1  (NSI ( 1 ) fNSIl) , (NS  1(2) »NSI2 ) t (NS I (3) , NS  1 3 ) • 

2  ( 1ND(1),IND1) ,(IND(2),IN02),(IND(3),IN03) 

3  » (NR( i ) ,NRi) 

C 

C  NUHoeR  OF  INDEPENDENT  VARIABLES  . 

C 

N1  =  R(NN) 

SET  VOUT  EtaUAL  TO  2EKU  IF  TrtE  NUMBcR  OF  INDEPENDENT  VARIABLES  IS 
ZERO . 

IF (N 1  .NE.  0)  GO  TO  10 
VOUT  =0. 

GO  TO  50 

i.0  R  =  NN  ♦  N1 
DO  20  1=1. Ni 

LOCATION  UP  INDEPENDENT  VARIABLE  TABLES  . 

NIT  =  R(  NN-*-!  ) 

NKIT  =  NR(NiT) 

NUMBER  OF  VALUES  IN  INDEPENDENT  VARIABLE  TABLE  . 

N1V ( 1 )  =  K(NRIT) 

L 

C  LOCATION  OF  FIRST  VALUE  IN  TABLE  . 

NS 1(1)  =  NRIT  ♦  1 
C 

C  LOCATION  of  INDEPENDENT  variable  . 

c 

L  =  KIK+I)  ♦  .1 
1N0(1)  =  L 
^0  CONTINUE 
C 

C  LOCATION  OF  FIRST  VALUE  IN  UEPENUENT  VARIABLE  TABLE  . 
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L 

c 

L 


30 


40 

L 

50 


NO  -  NN  ♦  2*Nl  ♦  1 

IMNl.tQ.2)  GO  TO  30 
1MNI.EQ.3)  GO  TO  40 

V0U1  =  TBLU1 ( R  ( IND1 ) » R (NS 1 1 ) » R(ND ) v 1 » -NiV 1 ) 

GO  TO  30 

VQUT  =  TttUJ2  IR(1ND1)»R(  1N02  )*K(N3Il)tR(NSI2)»R(ND)*l*l» 

.  -N1V 1«— N1V2»N1V1 »N1V 2 ) 

GO  TO  50 

CALL  TBLU3  I  RUND1 )  ,R  ( IND2  >  ,R  C IND3  )  ,R  (NSI 1 )  ,  R  (NSI 2 )  ,  R(NS  13  )  , 
.  R ( ND) »2*2»2,~N1V1 f-Nl V2t~ NIV3  »NIV1 ,NIV2»NIV3 ) 


RETURN 

END 
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t 

C 

L 

L 

C 

C 

C 

c 

c 

L 

L 

C 

c 

L 

C 

c 

c 

C 

L 

L 

C 

L 

C 

c 

L 

C 

c 

L 

C 

c 

c 

4. 

c 

c 

i. 

c 

c 

C 

c 

L 

L 

C 

u 

C 

C 

C 

C 

C 

c 

L 


SUBROUTINE  HP  ( TMP  » 

.  EF»bFDQT*ltF ftLftLDOT » IELt WK , WKDOT »  IWK  , 

.  W6 >WbUOT tlM6i 

.  FL,FST,TST,FPP,TPP,FM, EXM,VM,TLO,PC,R|CVH, 

.  TSO.FSQ.TRM, 

.  SW ,XYZ,EA,XR,XD,ER»£D,UV,CSK,VI,PA,PT,CaP,Ct 

.  Cl ,PMW,GAM,TF,Cl»C2tB,BXP,Tl,TDE,SRP,USTtEST,WST, 

.  XPP,UPP,EPPtWPP> 


OtSIbNED  fiV  C.L.  WtST 

LAST  MGU1F1EQ  -  UECEM6ER  6,  I9B0 


THE  EASIEST  PARACHUTE  MORTAR  COMPONENT 


***************  MP  TAoLES  *************** 

TMP  -  MORTAR  PROPELLANT  CONSUMPTION  TABLE 

THE  INObPENUENT  VARIABLE  IS  THE  PROPELLANT 
WEB  CONSUMED  (IN)  AND  THE  DEPENDENT  VARIABLE 
IS  The  PROPELLANT  CONSUMED  (SLUGS) 

***************  MP  OUTPUTS  *************** 

INTERNAL  FRICTION  ENERGY  . 

EF  -  INTERNAL  FRICTION  ENERGY  (FT-LB) 

EFOGT  -  INTERNAL  FRICTION  ENERGY  RATE  IFT-LB/SEC) 
ItF  -  INTEGRATION  CONTROL 

HEAT  LOSS  . 


tL  -  HEAT  LOSS  (FT-LB) 

ELDUT  -  HEAT  LOSS  RATt  (FT-LB/ScC) 

IEL  -  INTEGRATION  CONTROL 

MuRTaR  WORK . 

HR  -  MURTAR  WORK  (FT-LB) 

MKDUT  -  MORTAR  MORK  RATt  (FT-LB/SEC) 

IMK  -  INTEGRATION  CONTROL 

PROPkLLANT  WEB  BURNED  . 

MG  -  PROPELLANT  WEB  OURNEu  (IN) 

WaDOT  -  PROPtLLANT  WEB  BURN  RATE  (IN/SEC) 

IMb  -  INTEGER AT ICN  CONTROL 

FL  -  MORTAR  MODE  FLAG 

0  =  PRIOR  TO  INITIATION 

1  =  INITIATION  OP  TO  LAUNCH 

2  =  PARACHUTE  LAUNCH 

3  =  MORTAR  OFF 

FST( 3)  -  X  t Y»  2  SEAT  BODY  AXIS  FORCE  COMPONENTS  OF  THE 
MORTAR  ANU  RESTRAINTS  ON  THE  SEAT  (Lb) 

TS1C3)  -  X  t  Y 1 2  SlaT  BOGY  AXIS  TORQUE  COMPONENTS  OF  THE 
MORTAR  ANU  RESTRAINTS  ON  THE  SEAT  (FT-LB) 

FPP ( 3 )  -  Atr,2  EARTH  SYSTEM  FORCE  COMPONENTS  OF  THE 
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C 

i. 

C 

L 

C 

c 

c 

c 

c 

c 

t 

c 

c 

c 

C 

c 

C 

C 

L 

L 

L 

C 

C 

c 

C 

L 

C 

C 

c 

c 

l. 

c 


TPP13) 

FM 

EXM 

VH 

TLO 

PC 

K 

CVH 

TSO 

FSO 

TKMC3) 


MORTAR  AND  RESTRAINT 3  ON  THE  PARACHUTE  PACK  ( LB ) 

x.y.z  parachute  pack  body  axis  torque  components  of  the 

MORTAR  ANU  RESTRAINT  S  ON  THE  PARACHUTE  PACK  IFT-LB) 
MORTAR  FORCE  MAGNITUDE  (LB) 

MORTAR  EXTENSION  (FT) 

MORTAR  EXTENSION  VELOCITY  (FT/SEC) 

INITIAL  LENGTH  OF  THt  MORTAR  PRESSURE  CHAMBER  (IN) 
CIRCUMFERENCE  OF  CATAPULT  PRESSURE  CHAMBER  (IN) 

GAS  CONSTANT  (FT— LB F/ SLUG— K) 

CONSTANT  VOLUME  SPECIFIC  HEAT  (FT-LoF/SLUG-K ) 

MORTAR  STR1PUFF  TIME  (SEC) 

FORCE  AT  MORTAR  STR1PQFF  (LB) 

X,Y,Z  SEAT  earth  VELOCITY  COMPONENTS  TO  pass  to  the 
PARACHUTE  COMPONENT  DURING  TRIM  (FT/ SEC) 


***************  MP  INPUTS  *************** 


SW 

XYZ( 3 ) 

E  A  (  3  ) 

XK 

XU 

ER  ( 3  ) 

eD(3) 

UV(3) 

CSK 

VI 

PA 

PT 

Ct»P 

c 

Cl 

PMW 

Gam 

TF 

Cl 

C2 

B 

BAP 

VI 

TUE 

SkP (3) 

USl ( 3 ) 

tST( 3) 
WST (3) 

XPP ( 3 ) 

UPP( 3) 

EPP( 3 ) 
WPP(.»I 


FLAG  TO  INITIATE  MORTAR  (1  =  ON) 

X,Y,Z  SEAT  BODY  AXIS  LINEAR  POSITION  VECTOR  OF  THE 
PARACHuTt  PACK  ATTACHMENT  POINT  ON  THE  SEAT  (FT) 

Seat  TO  parachute  PACK  EULER  ANGLES  (DEG) 

PARACHUTE  SHtLF  LINEAR  SPRING  CONSTANT  (LB/FT) 
PARACHuTt  SHtLF  LINtAR  DAMPING  CONSTANT  (LB/FT/SEC) 
XyYyZ  PARACHUTE  SHELF  ANGULAR  SPRING  CONSTANT 
( FT— Lb/UtG) 

XyYyZ  PARACHUTE  shelf  angular  damping  constant 
(FT-Lo/UtG/StC) 

x,y,z  seat  buoy  axis  mortar  force  unit  vector 

MORTAR  STROKE  (FT) 

INITIAL  FREE  volume  (1N*»3> 

PISTON  AREA  (IN**2I 

TANG  RELEASE  PRESSURE  (LB/1N**2) 

MORTAR  BURST  PRESSURE  (Lb/IN**2) 

MASS  OF  TOTAL  PROPELLANT  taLUGS) 

IGNITER  PROPELLANT  MASS  (SLUGS) 

PROPELLANT  MOLECULAR  WEIGHT  ( LB/ ( LB-MOLE ) ) 

RATIO  OF  SPECIFIC  HEATS 

CONSTANT  VOLUME  FLAME  TEMPERATURE  (DEG  K) 

FRICTION  PROPORTIONAL  IT Y  CONSTANT 
HEAT  LOSS  CONSTANT 

BURN  RATt  PROPORTIONALITY  CONSTANT  ( IN/SEC/ ( LB/ I N**2 ) ) 
BURN  RATE  tXPONENT 

MORTAR  TEMPERATURE  PRIOR  TO  IGNITION  (DEG  K) 

mortar  force  decay  TiMt  (seo 

XyVyZ  cARTH  system  postion  VECTOR  OF  The 

SEAT  REFERENCE  POINT  (FT) 

X,Y,Z  SEAT  BODY  AXIS  VELOCITY  VECTOR  OF  THE 
SEAT  (FT/SEC) 

EARTH  TU  SEAT  EULER  ANGLES  (DEG) 

X,Y,Z  SEAT  BODY  AXIS  ANGULAR  VELOCITY 
OF  THE  SEAT  (UeG/SEC) 

XyYyZ  EARTH  SYSTcM  position  vector  of  the 
PARACHuTt  Pack  (FT) 

XyYyZ  earth  system  velocity  vector  of 
THE  PARACHuTt  PACK  (FT/SEC) 

EARTH  TO  PARACHuTt  Pack  EULER  ANGLES  (DEG) 

XyYyZ  PARACHUTE  PACK  BUOY  AXIS  ANGULAR  VELOCITY 
OF  THE  PARACHUTE  PACK  (DEG/SEC) 
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DIMENSIONS  OF  CALLING  ARGUMENTS  . 

DIMENSION  TMP(5),FST(3),TST(3) ,FPP (3)  ,TPP (3 ) ,XYZ ( 3 ) , EA ( 3 ) ,ER( 3 ) , 
.  ED(3) ,UV(3) ,SRP (3),UST(3),EST(3) .WST13)  ,XPP(3)  ,UPPO) , 

.  EPPOI  ,WPP«  3)  ,TRM13) 

INTERNAL  DIMENSIONS  . 

DIMENSION  0ESi3,3),DEST(3,3)  ,DEP(3,3)  ,  DEPT  0.3)  ,  DSP  (3, 3)  * 

.  OELTAX(3),OELTAVOi  ,  EST IR  <  3)  .  WST  IR(  3 )  ,  EPPIR(  3)  , 

.  MPPIR  0)fXS0)f  SPRINGO  )  t  UXSE  ( 3  )  .  RVEL  (3)  , 

.  DAMP (3) ,ANG(3).WSTE(3),WPPE(3),PR0J(3) , 

.  FCADO)  . TQRUUE (  3)  ,  E  AIR(  3  )  »DCEA(  3 , 3)  •  DCEAT  13 1 3 )  .TEMP  (3) 

COMMON  /  CTIME  /  TIME 
CUMMON  /  C1CCAL  /  ICCAL 
COMMON  /  COVRLY  /  INST 
COMMON  /  LSSFLG  /  SSFLG 

common  /  cio  /  i read. i write . idiag 

DATA  RPD.OPR  /  -0174S329,  5?.c957b  / 

************************ 1**** 

*****  INITIALIZATION  ***** 

♦♦♦♦****♦»*♦♦♦»**********♦♦* 

IF(ICCAL.Nt.l)  GO  TO  HO 

COMPUTE  THE  INITIAL  LENGTH  (TLO)  AND  CIRCUMFERENCE  (PC)  OF  THE 
MORTAR  PRESSURE  CHAMBER  . 

TLG  =  VI/PA 

PC  -  2*iQRT (3.1^1S9*PA) 

C  COMPUTE  THE  CONSTANT  VOLUME  SPECIFIC  HEAT  ICVH)  FOR  THE  MORTAR 
C  PRUPtLLANI  GIVEN  THE  GAS  CONSTANT  l&C)  AND  THE  PROPELLANT 

MOLECULAR  WEIGHT  <PMW)  . 

C 

R  -  89475. 094/PMW 
CVH  =  R/(GAM-l.G) 

C 

TYPE  =  6HM0RTAR 

VM  =  EXM  =  PM  =  FL  =  TSO  -  FSO  =  0 
TRMI1)  =  T  RM ( 2 )  =  T  RM ( 3 )  =  0 
I F ( TOE  .c<4.  0.99999)  TOE  =  0 
DO  3D  1=1,3 

30  EAIR(I)  =  EA ( 1 )  *  RPD 

Call  D1RC0S  (DCcA.tAlK) 

CALL  TRANS  ( DC t AT , DC t A . 3 1 3 ) 

C 

C  ///////////////////////////////////////////////////////// 

C 

l  bypass  The  remaining  code  if  the  mortar  is  past  the 

L  SJKIPOFF . 

C 

HO  If(FL.E0.3.)  GO  TO  E6G 
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CHANGE  ANGULAR  STATES  PRO M  DEGREES  TO  RADIANS  . 

DU  50  1=1,* 

tSTlR(l)  =  EST ( I )  *  R PD 
WSTIft(I)  =  wST ( 1 )  *  RPL) 

EPPIR(l)  =  EPP1I)  *  RrD 
50  WPPlR(l)  =  *PP(i>  *  RPD 

CALCULATE  I  He  EARTH  TO  SEAT  MATRIX . 

Call  dircos  (oes.estir) 

calculate  the  seat  tu  earth  matrix  . 

CALL  TRANS  (OEST, GES*  3,31 

calculate  THt  tARTH  tu  parachute  pack  matrix  . 

Call  D1RL0S  (DeP,ePP1R) 

calculate  the  parachute  pack  tj  earth  matrix  . 

CALL  TRANS  <DEPT,0EP,3,31 

CALCULATE  THE  SEAT  TU  PARACHUTE  PACK  MATRIX  . 

CALL  MATMPY  l DSP , DEP, UEST , 3 , 3 > 3 > 

*********************************************************** 
*****  PORGeo  AND  TURQuEi  OUc  TO  LINEAR  DISPLACEMENT  ***** 
*********************************************************** 

-  LINEAR  SPRING  FORCES  - 

CALCULATE  THE  PARACHUTE  PACK  LINEAR  POSITION  VECTOR  IN  THE 
SEAT  CUQKGINATE  SYSTEM  . 

CALL  VtCXY L  (XS,XPP,SKP,OES, 1 i 

UtT  ERMINE  THE  LINEAR  DISPLACEMENT  FROM  THE  ATTACHMENT  POINT, 

AND  CALCULATE  THE  SPRING  FORCES  IN  THE  SEAT  SYSTEM  ACTING  ON 
the  Seat  ...... 

DU  t»G  1=1,3 

UELTAXU)  =  XS(I)  -  XYZUJ 
60  SPRING!!!  =  DeL  f  A  X  <  II  *  xR 
C 

C  -  LINEAR  DAMPING  FORCES  - 

C 

L  DETERMINE  THE  EARTH  VELOCITY  OF  THE  POSITION  THE  PARACHUTE  PACK 

C  OCCUPIES  IN  THE  SEAT  COORDINATE  SYSTEM  . 

C 

CALL  VELXY L  ( UXSE ,UsT,X^, WsT I K, OE ST » 

C 

C  UtTERMINt  The  RELATIVE  VELOCITY  WRT  THE  EARTH  SYSTEM  . 

L 

DO  70  1=1,3 
10  OELlAVd!  = 


UPP(  i J  -  UXSE ( I ) 


c 

l  transform  this  difference  into  the  seat  system  . 

c 

CALL  MATMPY  ( RVtL , UtS,OtLTAV,3,3,l) 

C 

C  COMPUTE  THE  DAMPING  FORCE  ACTING  ON  THE  SEAT  . 

c 

OG  60  1—1 1  A 

eO  DAMP ( 1 )  =  R VEL ( 1 J  *  XD 
C 

C  -  SuM  jHfc  spring  AND  CAMPING  FORCES  ACTING  ON  THt  SEAT  - 

C 

DO  VO  1=1,3 

90  FST(I)  =  SPRING! I  )  ♦  DAMP ( I ) 

C 

c  ************************* 

C  ***  MORTAR  LOGIC  »** 

C  ************************* 

c 

1F(SW.N£.1.I  GO  TO  170 
C 

c  calculate  the  mortar  extension  ...... 

c 

Call  ootpro  <exm,qeltax,uv,3J 

L 

c  calculate  the  mortar  extension  velocity  . 

c 

call  uqtprd  (vm,deltav,uv,3 j 

c 

C  COMPUTE  THE  EXPOSED  THtRMAL  AReA  OF  THE  MORTAR  CHAMBER  . 

C 

THA  -PC  *  (TLO  ♦  EXM*12. )  *  PA  *  2. 

C 

L  CUMPuTc  THE  FORCE  DJE  10  THE  MORTAR  PRESSURE  . 

c 

CALL  cad  t fm, ef , EFQOT , ItF , EL t  eldot , i el, wk , WKDQT , IWK ,mb,wboot »  i  wb  » 
.  FL,TMP,1 IME,EXM,CSN,CI ,C,VI,PA,TF,CVH,CBP,Cl,VM,C2,TI, 

.  THA, B,BXP,PT,R, TYPE, ISO, FSO,TDE ) 

*. 

C  IF  THt  MORTAR  IS  AT  STkIPOFF  . 

C 

IF  IFL.NE.3.)  GO  TO  12G 
DO  110  1=1,3 

110  FoTllI  =  TSTtI)  =  FPPll)  =  TPP(I)  =  0 
GO  Tu  C60 
C 

C  CALCULATE  The  SEAT  BODY  AXI5  MORTAR  FORCE  COMPONENTS 

C  ACTING  ON  THt  SEAT  . 

C 

IcO  DO  130  1=1,3 
130  FCADU)  =  •*!.  *  FM  *  uvm 
c 

L  DOT  THt  LINEAR  SPRING  FORCE  ONTO  THE  MORTAR  UNIT  VECTOR  . 

C 

CALL  OOTPRD  (DOT, SPRING, UV, 3) 

C 

C  IF  THt  SIGN  OF  THE  DOT  PRODUCT  IS  NEGATIVE,  RETAIN  THE  SHELF  FORCE 
L 
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IF(UUT.LE.O)  GO  TO  155 
L 

C  OUT  THt  TOTAL  LINEAR  KeSTRAlNT  FORCE  ONTO  T't  UNIT  VECTOR 
C 

CALL  OUT  PRO  »DOT,FsT,  UV,3) 

C 

C  CALCULATE  The  CQMPONtNIS  OF  This  PROJECTION  . 

C 

OU  140  1=1,3 

140  PKOJil)  =  OUT  *  UV(1) 

UtTERMlNE  THE  FORCt  VECTOR  NORMAL  TO  THE  UNIT  VECTOR  .... 
00  130  1=1,3 

150  FS  T ( 1 1  =  F  ST ( I i  -  PkOj(I) 

CALCULATE  The  TOTAL  FORCES  AND  MOMENTS  ACTING  UN  The  SEAT 

155  DO  160  1=1,3 
160  FST(I)  =  FCADII)  ♦  FST ( I ) 

* ******  ******  9*******************************  *********** 

lio  call  crsprd  (Torque,xs,fst ) 

CALCULATE  THt  FORCES  ACTING  ON  THE  PARACHUTE  PACK  . 

CALL  MATMPY  (FPP,Dt ST, FST, 3,3,1) 

DO  1E0  1=1,3 
ittO  FPP{ I)  =  -FPP(I) 

************************************************ 

*****  TORQUE  DUE  TO  ANGULAR  DISPLACEMENT  ***** 
************************************************ 


-  ANGULAR  SPRING  FORCES  - 

CALCULATt  The  SEAT  TO  PARACHUTE  PACK  EULER  ANGLES  . 

CALL  COSDIR  ( ANG, ujP ) 

L 

C  OETtRMINt  THE  ANGULAR  DISPLACEMENT  FROM  THE  ATTACHMENT  ANGLE, 

c  ano  calculate  the  spring  components  acting  on  the  seat  in  the 

c  attachment  axis  system  . 

c 

DO  190  1=1,3 

OtLTAX(I)  =  ANG(4-I)*DPK  -  CA14-I) 

190  SPRING!  1 )  =  DELTAX(I)  *  ERU) 

C 

C  -  ANGULAR  DAMPING  FORCES  - 

C 

C  CALCULATE  THt  bOUY  AXIS  ANGULAR  DAMPING  CONSTANTS  ACTING 

C  ON  THE  SEAT  IN  THE  ATTACHMENT  AXIS  SYSTEM  . 

C 

CALL  MATMPY  ( WSTE  ,DEST ,WST , 3 , 3 , 1 ) 

CALL  MATMPY  (WPPE , DtPT,WPP,3,3, 1 ) 

DU  200  1=1,3 
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ZOO  UELlAV(l)  =  WPPt(l)  -  WSTclIl 

CALL  MATMPY  (  T  EMP  ,  UtS »  DELTA  V  ,  3 ,3 , 1 ) 

CALL  MATMPY  < VfcL , DCtA  ,  TEMP , 3 , 3 , 1 ) 

DO  210  1=1,3 

JAMP(1>  =  RVEL(i)  *  ED(1) 

210  TEMPll)  =  SPR1NG<  U  ♦  UAMPll) 

MOVE  THfc  RESTRAINT  TORQUES  INTO  THE  SEAT  SYSTEM  ...... 

CALL  MATMPY  ( 1ST, OCEAT, TEMP, 3,3, 1» 

CALCULATE  THE  BODY  AXIS  TORQUE  CONSTANTS  ACTING  ON  THE 
PARACHUTt  PACK  . 

CALL  MATMPY  (TPP,OSP, 1ST, 3,3, l) 

00  220  1=1,3 
220  TPP ( 1 )  =  -TPP< 1) 

CALCULATE  THE  TOTAL  MOMENT  ON  THE  SEAT  . 

DO  230  1=1,3 

230  TST(l)  =  TSTtll  ♦  TORuUEll) 

ZERO  The  FORCES  AND  TORQUES  ACTING  ON  THE  SEAT  IP  SSPLG 
IS  EQUAL  10  ZERO  . 

IFISSPLG.NE.O)  oO  TO  230 
DO  240  1=1,3 

240  FST(1)  =  TST ( I  )  =  0 

SEND  DATA  TO  PARACHUTE  PACK  BOOY  TO  ALLOW  IT  TO  COMPUTE 
SEAT  EAR1H  VELOCITY  DURING  TRIM  . 

230  IP  ( INST .NE.31 )  GO  TO  260 

CALL  MATMPY  ( TRM, DEST ,UST ,3,3,1) 

C 

260  RETURN 
END 
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SUBROUTINE  PAXIS  ( BMI ,BPI ,BM, BP , BMASS , OISP ) 

C 

t  PARALLEL  AXlB  THERUEM  FOR  TRANSFERlNG  THE  MOMENTS  AND 
C  PRODUCT  S  OF  INERTIA  TO  THE  SEAT  BOOY  AXIS 
L 

C  *****  CALLING  PARAMETERS  ***** 

C 

L  UUlPuT  . 

L 

C  BM  1 

L 

L  BP  1 

C 
L 

C  INPUT  .. 

c 

C  BM 

c 

C  BP 

L 

C  6MASB 

C  01 SP 

L 

c 

Ul Me NS ION  BMI (3) ,BP1(3) ,BM(3) ,BP<3> tDlSPl3) 

L 

L  INTtkNALLY  DEFINED  FUNCTION^  . 

C 

T  R  AN  SM(AfBfCtD)  =  a+B*(C**2fD**2) 

TRANSP(AiByCtD)  =  A+b*C*0 


-  MASS  MOMENT  OF  INeRTI A  WITH  RESPECT  TO  THE  SEAT 
BOOY  AXIS  (SLUG-FT**2) 

-  MASS  PRODUCT  OF  INERTIA  WITH  RESPECT  TO  THE  SEAT 
BODY  AXIS  ( SLUG-F T**2 ) 


-  MASS  MOMENT  OF  INtRTIA  ABOUT  THE  BODY  MASS  CENTER 
<SLUG-FT**2) 

-  MASS  PRODUCT  OF  INERTIA  A 3 OUT  THE  BODY  MASS  CENTER 
(SLUG— FT»*2) 

-  BODY  MASS  (SLUGS) 

-  X,Y,Z  SEAT  BOOY  AXiS  POSITION  VECTOR  OF  THE  BODY 
MASS  CENTER  (FT) 


COMPUTE  NEW  INDIVIDUAL  INERTIA  PROPERTIES 


C 


BMI ( 1) 

= 

TRANSM 

( BM( 1 ) 

BM I ( 2  ) 

= 

TRANSM 

( BM(2 ) 

BM1(_>) 

= 

TRANSM 

(  BM  ( 3  ) 

BP  I  (  1  ) 

TRANSP 

(  BP  (  1 ) 

BP  1(c) 

- 

TRANGP 

( BP ( 2 ) 

bP I (3  > 

- 

TRANSP 

(BP(3> 

RETURN 

END 

? BMASS «  DISP(2)tOISP(3) ) 
,bMaSSt  OISP ( 1 ) • DISP ( 3 ) ) 
yBMASSfOISPtl )|D1SP(2)  ) 
iBMASStDISP(l)tOISP(2)) 
,dMAiStOISP(l) , DISP (3)  ) 
tBMASS,UlSP(2),DISP(3) ) 


SUBROUTINE  PC  (UPP .UPPD, lUPP , XPP , XPPD » IXPP ,WPP ,WPPD , I WPP , 

.  EPP»tPPD» IEPP, UPC, UPCD, IUPC  »XPC  » XPCO  t IXPC  * 

.  PHA,SW,FLlFT,FDRAG,FMDOT,RM,VOL,TLA, TLS.TOS, OT1, 

.  1DU,1RF,STI, RSC, RFM ,RFD ,RFS ,8 ,C1 ,CT  , CN ,CM , FO,PWT , 

.  PM1,PP1,TeM,CSP,CDP,DPG,FLA,FLP,FP,TP,VAP,UVL,RL, 

.  VCG,PCG,CWT,TPE,TRM) 

C 

C  UESIGNEO  E.Y  C.L.  WEST 

C  LAST  HOOIFItU  -  OtCtMocR  o,  19SO 

C 

C  The  EASIEST  PARACHUTE  MOUEL 
C 

L  ***************  PC  OUTPUTS  **♦»♦** ******** 

L 

C  PAKACHUTt  PACK  LlNcAR  VELOCITIES  -  EARTH  SYSTEM 
C 

C  UPP(J)  -  X,Y»Z  LINEAR  VELOCITY  VECTOR  OF  THE  PARACHUTE  PACK 

C  CENTER  OF  GRAVITY  IFT/SEC) 

C 

C  UPPD ( 3 )  -  X f  Y  t  Z  LINEAR  VELOCITY  RATE  VECTOR  OF  THE  PARACHUTE 

C  PACK  CENTtR  OF  GRAVITY  (FT/SEC/SEC) 

L 

C  IUPP (3 )  -  INTEGERAT ION  CONTROL 

C 

C  PARACHUTE  PACK  LINEAR  POSITIONS  -  EARTH  SYSTEM 
C 

C  XPPl 31  -  X, Y»Z  LlNcAR  POSITION  VECTOR  OP  THE  PARACHUTE  PACK 

L  CtNTtR  OF  GRAVITY  (FT) 

C  XPPD (3>  -  X»Y  t  Z  LINEAR  POSITION  RATE  VECTOR  OF  THE  PARACHUTE 

C  PACK  CENT cR  OF  GRAVITY  (FT/SEC) 

C  IXPP (3  )  -  INTEGRATION  CONTROL 

C 

L  PARACHuTc  PACK  ANGULAR  VELOCITIES  -  BODY  AXIS 
L 

C  WPP(3)  -  X,Y,Z  ANGULAR  VELOCITY  COMPONENTS  -  P,Q,R  (OEG/SEC) 

C  WPPD(3»  -  X,Y,Z  ANGULAR  VELOCITY  RATE  COMPONENTS  ( DEG/SEC/SEC > 

C  IWPP (3)  -  INTtuKATIQN  CONTROL 

L 

C  Euler  ANGLES  —  tARTH  TO  PARACHUTE  PACK  —  YAW, PITCH, ROLL 
C 

L  cPP (  3  )  -  EARTH  TO  PARACHUTE  PACK  EULER  ANGLES  (DEG) 

C  EPPUO)  -  EULER  ANGLE  RATcS  (OEG/SEC) 

C  IEPP (3 )  -  INTEGRATION  CONTROL 

c 

C  PaRAChuTc  CANOPY  LINEAR  VELOCITIES  -  EARTH  SYSTEM 
C 

C  UPC(3I  -  X,  Y  ,Z  LINtAR  VELOCITY  VECTOR  OF  THE  PARACHUTc 

C  CANOPY  CeNTcR  OF  GRAVITY  (FT/SEC) 

C  UPCD ( 3 )  -  A, Y , Z  LINEAR  VELOCITY  RATE  VECTOR  OF  THE  PARACHUTE 

L  CANOPY  CENTER  OF  GRAVITY  (FT/SEC/SEC) 

C  lUPC (3 )  -  INTEGRATION  CONTROL 

L 

L  PARACHUTt  CANOPY  LINEAR  POSITION  -  EARTH  SYSTEM 
C 

C  XPC( 3)  -  X, Y ,Z  POSITIuN  VECTOR  OF  THE  PARACHUTE  CANOPY 

C  CENTER  OF  GRAVITY  (FT) 

C  XPCU ( 3 )  -  X, Y, Z  POSITION  RATE  VECTOR  OF  THE  PARACHUTE  CANOPY 

L  CENTER  OF  GRAVITY  (FT/SEC) 
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c 

C 

C 

c 

L 

L 

L 

C 

c 

C 

c 

c 

c 

c 

c 

c 

c 

L 

c 

t 

c 

c 

L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

L 

c 

v. 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

l 

c 

c 

c 

L 


IXPC(3)  -  INI t l»KA 1 ION  CONTROL 

PHA  -  PaRACHUT fc  PHASt 

1  =  PRIOR  TO  PARACHUTE  LAUNCH 

2  =  PROM  LAUNCH  uP  TO  LINESTRtTCH 

3  =  AFTER  LINESTRETCH 

sw  -  flag  to  indicate  aerodynamic  calculation  mode 

O  =  PRIOR  TO  LAUNCH 

1  =  FROM  PARACHUTE  LAUNCH  TO  LINESTRETCH 

2  =  OURiNG  INFLATION 

3  =•  OUR  I No  KEcFING 

4  =  AFT tR  REEFING 

5  =  PARACHUTt  INFLATED 

F LIFT (31  -  X t Y • 2  tARTH  SYSTEM  AERODYNAMIC  LIFT  COMPONENTS  ( LB ) 
ACTING  ON  THt  PACK  BEFORE  LINESTRETCH 
ACTING  ON  THE  CANOPY  AFTER  LINESTRETCH 
FURAG( 5 )  -  X,Y,a  EARTH  SYSTEM  AEROYDYNAMIC  ORAG  COMPONENTS  (LB) 
ACTING  ON  THt  PACK  BEFORE  LINESTRETCH 
ACTING  ON  THE  CANOPY  AFTER  LINESTRETCH 
FMDOT ( 3 )  -  X,Y,2  EARTH  SYSTEM  FORCE  COMPONENTS  ACTING  ON  THE 
CANOPY  DUE  TO  AIR  MASS  ACQUISITION  FORCE  (LB) 

rm  -  Radius  of  THt  sphere  rlpresenting  the  inflated  canopy  (ft) 

VOL  -  VOLUME  OF  Irit  FILLED  CANOPY  (FT**3) 

TLA  -  PARACHUTE  LAUNCH  TIME  /  LINE  SEVERING  TIME  (SEC) 

TLS  -  LINE  STRtTCH  TIME  (StC) 

TuS  -  TIME  AT  WHICH  OISREEF  OCCURS  (StC) 

DTI  -  PARACHUTt  CANOPY  INFLATION  TIME  (SEC) 

TDU  -  TIME  DURATION  OF  REEFED  PARACHUTE  (SEC) 

TRF  -  THE  TIME  AT  WHICH  THE  CHUTE  IS  REEFED  (SEC) 

***************  PL  INPUTS  *************** 

STI  -  INFLATED  PARACHUTE  DRAG  AREA  (FT**2) 

RSC  -  CIRCUMFERENCE  OF  THE  FILLED  CANOPY  PLUS  ONE  QUARTER 
OF  THAT  DISTANCE  (FT) 

RFM  -  REEF  MODE  FLAG 

G  =  CHUTE  IS  NOT  REEFED 

1  =  TIME  OF  OISREEF  SET  AT  PARACHUTE  INITIATION 

2  =  Tint  OF  DISREEF  SET  AT  LINESTRETCH 

RFC  -  RtEF  DtLAY  TIME  (SEC) 

RFS  -  PRuOUCT  OF  REFERtNCt  ARtA  AND  TANGENT  FORCE 

COEFFICIENT  WHEN  REEFED  (FT**2) 
tt  -  CONSTANT  JSED  IN  THE  EQUATION  FOR  CALCULATING 

SCO  OF  THt  RttFED  PARACHUTE 

Cl  -  CONSTANT  UStO  IN  THE  EQUATION  TO  COMPUTE  THE  CANOPY 

INFLATION  TIME 

Cl (3  )  -  CONSTANTS  UStO  IN  ThE  EQUATION  THAT  CALCULATES  ThE 

TANGENTIAL  DRAG  AREA 

CM (3 )  -  CONSTANT S  USED  IN  THt  EQUATION  THAT  CALCULATES  THE 

NORMAL  DRAG  AREA 

CM 4 2  )  -  CONSTANTS  USED  IN  THt  MACH  EFFcCTS  EQUATION 

FD  -  WAKE  TO  FRtt  STREAM  RATIO 

PWl  -  TOTAL  WtIGHT  OF  THE  PARACHUTE  PACK  (LB) 

PMI ( 3 )  -  PARACHUTE  PACK  MOMtNTS  OF  INERTIA  -  I1XX,IYY,ZZ 
(SLUGS*FT**2 ) 

PP I (3)  -  PARACHUTt  PACK  PRODUCT*  OF  INERTIA  -  IXY,IXZtIYZ 
( S  LUGS  *F  T  **L ) 

TEH  -  TIME  DURATION  FOR  PARACHUTE  EMERGENCE  (SEC) 
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c 

c 

c 

c 

l 

c 

c 

t 

c 

c 

c 

L 

c 

c 

IT 

4. 

c 

c 

t 

c 

c 

*L 

C 

C 

c 
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c 

c 
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c 

c 

c 

c 

c 
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CSP  -  PARACHUTt  CANOPY  SPRING  CONSTANT  (LB/FT) 

COP  -  PARACHUTt  CANOPY  DAMPING  CONSTANT  ( Lfa/FT/SEC ) 
0PGC3J  -  P ARACHUT c  PACK  OAMPING  AFTER  MORTAR  IS  OFF  (1/SEC) 


FLA 


FLP( 3) 


FP (3  ) 

TP  (3 ) 

VAP( 3) 

UVLI3) 

RL 

VCG 

PCG 

CM1 

TPt 

TRM(3) 


-  PARACHUTE  MODE  FLAG 

0  =  PRIOR  TO  INITIATION 

1  =  INITIATION 

2  =  LAUNCH 

3  =  MORTAR  OFF 

4  =  LINESTReTCH 

5  =  LINES  SEVcRED 

-  X  t  Y • Z  FORCE  COMPONENTS  ACTING  ON  THE  PARACHUTE  FROM 
THE  LINES  (Lb) 

(BODY  AXIS  FOR  THE  PACK  -  EARTH  SYSTEM  FOR  THE  CANOPY) 

-  X.Y.Z  PARACHUTE  PACK  bOOY  AXIS  FORCE  COMPONENTS  ACTING 
ON  THE  PACK  FROM  THE  MORTAR  OR  GUN  (LB) 

-  X.Y.Z  PARACHUTE  PACK  BOOY  AXIS  TORQUE  COMPONENTS  ACTING 
ON  THE  PACK  FROM  THE  MORTAR  OR  GUN  (FT-LB) 

-  X.Y.Z  EARTH  SYSTEM  VELOCITY  COMPONENTS  OF  THE 
FORCE  APPLICATION  POINT  (FT/SEC) 

-  EARTH  SYSTEM  PARACHUTE  LINE  UNIT  VECTOR 

-  PARACHUTE  LINE  LeNgTh  (FT) 

-  VELOCITY  OF  THt  CANOPY  CENTER  OF  GRAVITY  ALONG  THE 
PARACHUTE  LINES  (FT/SEC) 

-  stretched  canopy  center  of  gravity  measured  along  the 
parachute  line  from  the  parachute  pack  c ft ) 

-  WEIGHT  OF  THE  CANOPY  DRAWN  FROM  THE  PACK  (LB) 

-  TYPE  OF  PAKACHUTh  ( 1 =DRAG  2=RECOVERY) 

-  X.Y.Z  PARENT  BOOY  EARTH  VELOCITY  COMPONENTS 

TO  DETERMINE  THE  PUSITION  RATES  DURING  TRIM  (FT/SEC) 


DIMENSION  UF  CALLING  ARGUMENTS  . 

DIMENSION  UPP ( 3 ) , UPPO (3)»IuPP(3),XPP(3),XPP0(3),IXPP(3). 
.  WPP (3) ,WPPU(3), IWPP(3),£PP(3),EPPD(3),IEPP(3), 

.  UPC (3 ) *  UPCU (3 ) , I UPC (3),XPC(3) .X  PCD (3) .IXPCI3). 

.  FLP(3) ,FP(3),TP(3). CT (3).CN(3).CM(2). 

.  PM I (3 ) . PP1 ( 3 ) ,OPG ( 3 ) ,UVL ( 3 )  ,VAP ( 3 ) ,TRM( 3 ) 


INTERNAL  DIMENSIONS 


DIMENSION  EPPIRC3) ,WPP1R(3) .FSPR13) ,FDAMP(3) ,FPP(3) » 
.  TPP(3),FPC(3).FLIFT(3). F DRAG! 3) , FMDOT (3 ) , 

.  TEMP 11 3 ) »  TEMP2 ( 3 ) »TeMP3 (3 ) .TINER (3,3) , 

.  DEP ( 3 , 3 ) ,DEPT(3,3),XCG(3) ,UCG(3) 

COMMON  /CiCCAL/ICCAL 

COMMON  /CT1ME/  TIME 

COMMON  /COVRLY/  INST 

COMMON  /CSSFLG/  SSFLu 

COMMON  /CIU/  IRcAD.IWKITe.IOIAG 


L 

C 

c 


DATA  RPD.DPR  /. 01745329, 
DATA  gRAV  /32.174/ 


57.295VB  / 


**************************** 
*****  INITIALIZATION  ***** 
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******* ********************* 

IF ( 1CCAL.NE. 1 )  GO  TJ  lu 

CALCULATE  THE  FILLED  RADIUS  AND  VOLUME  . 

RM  =  -6360  *  RSC 
VOL  =  4.1&&  *  RM**3 

MISC  INITIALIZATION  . 

00  5  1=1,3 

5  FLIP  TUI  =  FDKAG(l)  =  FMD0II1)  =  0 
PNA  =  1. 

TLA  =  TlS  =  TLiS  =  Oil  =  T  DU  =  TRF  =  SW  =  0 
TKMU)  =  T  RM  <  2 1  =  TRM  ( 3 1  =  0 
IFUEM.EO. 0.99999)  TEM  =  0 
1FCCSP.EQ. 0.99999)  CSP  =  *000. 

IF(COP. £0.0.99999)  GDP  =  14. 

IF (RFM.EO. 0.99999)  kFM  =  0 
IFCRFO.Ew. 0.99999)  RFD  =  0 
IF (RFS.EO .0.99999  I  RFS  =  0 
IF(RFM.EQ.O)  RFD  =  0 

✓///////✓//✓//////////////✓//✓/✓//✓✓/✓///✓///////✓/////// 

-  COMPUTE  THE  INERTIA  TENSOR  - 

10  TINERU.l)  =  PNIU) 

T I NE  R  (  1 , 2 )  =  -PPIUI 
T1NER(  1,3)  =  -PPK2I 
T1NERI2, 1)  =  -PPI(l) 

TINER(2,2)  =  PMI (2) 

T 1 NER  (2,3)  =  -PPU3) 

T INE  Rt 3 , 1 )  =  — PP1 (2  I 
TINER(3,2)  =  -PPI (3) 

T 1NER( 3,3 )  =  PMI ( 3 ) 

CONVERT  FROM  DEGREES  TO  RADIANS  . 

DU  20  1=1,3 

EPPIRU)  =  EPP(I)  *  RPD 
20  WPPIR(l)  =  WPP(I)  *  RPD 

CALCULATE  The  DIRECTION  COSINE  MATRICES  . 

CALL  OIKCQS  (DEP»EPP1K) 

CALL  TRANS  <DtPT,DEP,3,3) 

DEFINE  CHUTE  . 

1FUPE.EQ.1.)  CHUTE  =  4HDRAU 
IF ( I PE.EQ. 2 • )  CHUTE  =  &HRECOVERY 

IF (PHA.EQ. 2 • I  GO  TO  90 
I F (PHA.EO. 3. )  GO  TO  26O 

•♦«»*♦♦♦♦*♦♦♦»***»**♦«******♦*»♦***»♦*»»♦* 
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C  **  ** 

C  **  PHASE  1  ** 

C  **  ** 

C  **  PRIOR  10  PARACHUlt  LAUNCH  ** 

C  **  ** 


C  ****************************************** 

L 

L - DEFINE  VARIABLES  AT  PARACHUTE  INITIATION  AND  LAUNCH 

C 

IP  ( FLA.EQ.O )  GO  TO  40 

at  parachute  initiation  . 

IMRFM.kU.l.  .AND.  TOS.EQ.O)  TQi  =  TIME  ♦  RFD 

AT  PARACHUTE  LAuNCn  . . 

IF  (FLA. EQ. 1.0)  GO  1U  40 
PHA  =  2.0 
SW  =  1. 

TLA  =  TIME 

1FUNST.EQ.26)  WRITE  (6,30)  CHUTE,  TIMt 
60  FORMAT ( / BA , Ab » *  CHUTE  LAUNCH  AT  TIME  =  *,F10.4,*  S£C*/| 

GO  TO  90 

-  DRIVE  THE  PARACHUTc  CANOPY  TO  ITS  CG  POSITION  - 

calculate  the  spring  force  on  The  canopy  . 

vo  ou  so  1=1,3 

!>0  FiPRUl  =  CSP  *  (APP<11  -  APC(II) 

CALCULATE  THE  DAMPING  FORCE  ON  THt  CANOPY  . 

OO  bO  1=1,3 

60  FQAMP(l)  =  CDP  *  (UPP(i)  -  UPCim 

-  SUM  FORCES  AND  TORQUES  ACTING  ON  THE  PARACHUTE  PACK 

00  70  1=1,3 
FPP(l)  =  FP(I) 

10  TPP(l)  =  TP( I ) 

FPP ( 3 )  =  F PP ( 3 )  *  PUT  *  SSFLG 
PMASS  =  PWT/GRAV 

C  - 

t  -  Sum  THE  FORCES  ACTING  ON  THE  PARACHUTE  CANOPY  - 

t 

Ou  ttO  1=1,3 

bO  FPC(i)  =  FSPR  ( 1 )  ♦  FOAMPU) 

FPC(3)  =  FPC13)  ♦  1.  *  SSFLG 
CMASS  =  l./GRAV 
C 

GO  10  370 
C 

C  ***********  *********************************  ******* 

c  **  ** 

C  **  PHASE  2  ** 

C  **  ** 


400 


r>  r>  r  r>  r  r  r*>  n  rrrn  rf  r  orrcr  t'  r>  r 


C  **  FROM  PARACHUTE  LAUNCH  TO  L1NESTRETCH  ** 

C  »♦  ** 

4.  ******♦**♦*******;*♦***♦************♦♦*****»«******* 


90  IF  IFLA.EQ.4.)  00  TO  240 

:  -  calculate  the  aerodynamic  forces  - 

CALL  PCA6R0  (FL1FT ,FDRAU, FMOOT ,SC T , 

.  SW,XPP,UPP»TLS,DTI» TDU, VOL,UVL,CT  , 

.  CN,CM,FQ,B»ST1,RFS,FLA,TlA»T£M) 


FACTOR  the  aerodynamic  forces  during  emergence 


DELTA  =  TIME  -  TLA 
IF(OELTA.GE.TEM)  GO  Tu  I2u 
Factor  =  o 

IFITEM.NE.GI  FAcTOR  =  DEL  f A/TEM 
DO  110  1=1,3 

F LIFT ( 1 I  =  FLiFT(i)  *  FACTOR 
ilu  FORAct 1 l  =  FORAG(l)  *  FACTOR 

-  DRIVE  THE  PARACHUTE  CANOPY  TO  ITS  CG  POSITION  - 


calculate  The  earth  position  of  the  canopy  cg 


120  DO  130  1=1,3 

130  XCG(l)  =  XPPII)  ♦  PCG  *  UVLU) 


DETERMINE  THE  SPRING  FORCE  ACTING  ON  THE  CANOPY 


DO  140  1=1,3 

140  FSPRCI)  =  CSP  *  (XCG(l)  -  XPC (1)1 

CALCULATE  THE  VELOCITY  OF  THE  PARACHUTE  PACK  RELATIVE  TO  THE 
FORCE  APPLICATION  POINT  . 

DO  150  1=1,3 

150  TcMPidi  =  OPPII)  -  VAP(i) 

DETERMINE  THE  VECTOR  COMPONENT  OF  THIS  RELATIVE  VELOCITY  NORMAL 
TO  THE  LINES  . 

CALL  OOTPRO  (DIST,TEMP1,UVL,3) 

DO  loO  1=1,3 

160  TcMP2(l)  =  DIST  *  UVL(I) 

DO  170  1=1,3 

170  TeMP3 Cl)  =  TEMPI! I)  -  TEMP2CI) 

RATIO  This  VECTOR  ACCORDING  TO  THE  POSITON  OF  THE  CANOPY  CG  ALONG 
THE  LINES  . 

RATIO  =  (RL-PCGI/RL 
DO  160  1=1,3 

180  TEMP3 (1)  =  T EMP3 ( 1  )  *  RATIO 


C  COMPUTE  The  earth  velocity  of  The  canopy  cg  position  ON  THE 
C  LINES . 
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C 

00  19C  1=1,3 

190  UCGCIJ  =  VAP  ( I  )  ♦  TEMP3UI  -  VCu  *  UVL(I) 

L 

C  OtTEKMINt  THE  EARTH  VELOCITY  DIFFERENCE  BETWEEN  THE  CANOPY 

C  AND  THt  CANOPY  CO  POSITION  . 

C 

00  2.00  1  =  1,3 

200  TtMPl(II  =  UCG ( 1 )  -  UPU1) 

L 

L  CALCULATE  THE  DAMPING  FORCE  ON  THE  CANOPY  . 

I 

00  21G  1=1,3 

2iO  FDAMP(l)  =  COP  *  T EMP 1(1) 

-  SUM  THE  FORCES  AND  TORQUES  ACTING  ON  THE  PARACHUTE  PACK 

W01FF  =  PWl  -  CWT 
00  22G  1=1,3 
TPPC11  =  TP(I) 

220  FPPll)  =  FL1FTU)  ♦  FORAG ( 1 J  ♦  FLP(I)  +  FP(I) 

FPPt3»  =  FPP<3)  ♦  WD1FF  *  SSFLG 
PMASS  =  WD1FF/GRA V 

-  SUM  THE  FORCES  ACTING  ON  THE  PARACHUTE  CANOPY  - 

OU  230  1=1 ,3 

230  FPL ( 1 )  =  FSPRtll  ♦  FDAMP(I) 

FPC(3»  =  FPC(3)  ♦  1.  *  SSFLG 
CMASS  =  l./GRAV 

GO  TO  370 

-T - AT  LINE STRtTCH - 

240  PHA  =  3. 

SW  =  2. 

TLS  =  TIME 
TLA  =  U 

SET  UlSKEEF  TIME  . 

lFtKFM.EQ.2.)  TOS  =  TIME  ♦  RFO 

CALCULATE  THt  CHUTt  INFLATION  TIME  . 

VBAR  =  SuRT ( VAP  Cl ) **2  *  VAPl 21**2  ♦  VAP(3)**2) 

DTI  =  Cl  *  2.0  *  RSC/VBAR 
C 


c 

******* *********************** 

c 

** 

*♦ 

L 

** 

PHASE  3 

** 

L 

** 

** 

C 

** 

AFItR  LINE SI  RETCH 

** 

L 

** 

** 

c 

•♦♦♦•♦•It********************** 

L 

L 
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CALCULATE  THt  AERODYNAMIC  FORCES 


2oG  GO  TO  C 270,  270, 290, 3 10, 340) ,  SW 

*****  SW  =  2  (DURING  INFLAT iUN )  ***** 

270  1FCTIME.Gc.TLS*DTI)  GU  TO  320 
GO  10  340 

275  IFCSCT.LT. RFS)  GO  TO  345 
SR  =  3. 

TRF  =  TIME 

TOO  =  TOS  -  IIMe 

1FC1NST.E0.26)  WKITE(o*280)  CHUTE, TIME 
260  FORMAT C/5X»A8f*  CHUTE  REEFED  AT  TIME  =  *,F10.4,*  SEC*/) 
GO  TO  345 


*****  SW  =  3  C DURING  REEFING)  ***** 

290  IFCT1ME.LT. IDS)  GO  TO  340 
SW  -  4. 

1FCINST.EU.26)  WRITEC  t>*300)  CHUTE  *  T  I  ME 
300  FORMAT C/5X*A8»*  CHUTE  01SREEFED  AT  TIME  =  *,F10.4,*  SEC*/) 
GO  TO  340 

*****  SW  =  4  C AFTER  REEFING)  ***** 

310  IF  CT 1ME.GE .TLS+DT 1+1 DU)  GO  TO  320 
GO  TO  340 

at  the  time  the  canopy  is  filled  . 

320  SW  =  5. 

1FC1NST.EQ.26)  WRITEC  o«330)  CHUTE, TIME 
330  FORMAT  C/5X , A6 ,*  CANOPY  FILLED  AT  TIME  =  *,F10.4,*  SEC*/) 

QtTEKMINE  THE  LIFT  ANO  DRAG  FORCES  ...... 


340  CALL  PCAERJ  C  FLIFT, FDRAG, FMDOT , SCT , 

.  SW , XPC,UPC, T  LS,DT1,TDU, VOL,UVL, CT , 

.  CN»CM,FD»B»STI ,RFS,FLA,TLA,TEM) 


IF  CRFM.NE.O  .ANO.  SW.EU.2.J  GO  TO  275 

-  SUM  THE  FORCES  ACTING  ON  THE  PARACHUTE  CANOPY  - 

345  DO  350  1=1,3 

350  FPCCI)  =  FLIFTCI)  ♦  FDRaGCI)  ♦  FMDOT C 1 )  ♦  FLPC1) 

FPCC3)  =  FPCC3)  ♦  CWT  *  SSFLG 
CMASS  =  CWT/GRA V 

-  SUM  FORCES  AND  TORwUES  ACTING  ON  THE  PARACHUTE  PACK  - 


W01FF  =  PWT  -  CWT 
DO  360  1=1,3 

*60  FPPC1)  =  TPPCI)  =  0 

FPPC3)  =  WOIFF  *  SSPU, 
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PMASS  =  WDIFF/GRAV 


L 

C  ****»*»****=*»********************************* 

c  *****  parachut t  pack  equations  qf  motion  **** 

c  a********************************************** 

c 

C  *****  PARACHUTE  PACK  ANGULAR  VELOCITY  EQUATIONS  ***** 

C 

L  CALCULA 1 t  TINER  *  WPP1R 
«• 

370  CALL  MATMPY  l TtMP I , I INfcRi WPPI R,3 , .» , 1 ) 

L 

C  CALCULATE  WPP IR  X  (TIMER  *  WPPIR) 

L 

Call.  CRSPRD  l  TEMP  2*  WPP  IR*  TEMPI) 

C 

L  SUM  TtRMS  TO  OBTAIN  TOTAL  TORQUt  . 

L 

DO  3aO  1  =  1,3 

3o0  TEMP3 ( I )  =  TPP(l)  -  T cMP2 ( I ) 

calculate  wppu  . 

CALL  LUEQS  ITINtR, Tempi, TtMP3,TEMP2, 3, 1,3, 3,3,1. E-14,IERR0R) 

IF  (1  ERROR.  NE.l)  GO  TO  4U0 
WRIT  E (6,390)  CHUTE 

390  FORMAT (*  INERTIA  MATRIX  OF  *AB*  CHUTE  IS  SINGULAR.. .RUN  ^TOPPED*) 
STOP 

400  DO  410  1  =  1,3 

IF(1WPP(I)  .NE.O)  WPPDd)  =  TEMPI  (  I )  *  DPR 
410  lr(FLA.GT. 3.0. AND. 1WPP11I .NE.O)  WPPDd)  =  -OPGd  )  *  WPPII) 

mm***  parachute  pack  ejler  angle  equations  ***** 

CALL  EARATE  d EMP1, WPPIR »tPPIR) 

00  420  1=1,3 

420  1 P  d  EPP  d  )  .  Nc .  0 )  EPPDdl  =  TEMPUI)  *  DPR 

*****  PARACHUTE  PACK  LlNtAR  VELOCITY  EQUATIONS  ***** 

DO  43U  1=1,3 
4 AO  IFduPPCI)  .NE.u)  UPPDd)  =  FPPdJ/PMASS 
C 

C  *****  PARACHUTE  PACK  LINEAR  POSITION  EQUATIJNS  ***** 

C 

00  430  1=1,3 

430  IFdXPP(I)  .NE.O)  APPOd)  =  UPPd) 

c 

C  DuKINO  TRIM,  SUBTRACT  TRIM  VELOCITY  FROM  POSITION  RATES 
C 

iMiNST.NE.3H  GO  TO  470 
DO  4t>0  1  =  1,3 

460  lFUXPPd  >  .NE.O)  XPPDU)  =  XPPDCI  )  -  TRM(  1  ) 

470  CONTINUE 
C 

C  ************************************************** 

C  *****  PARACHUTE  canopy  equatiuns  of  motion  ***** 
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*****«=*=***************«********%**************** 

-  LlNtAR  VELOCITY  EQUATIONS  - 

DO  480  1=1,3 

0  IM1UPCC1)  .Nt.01  UPCDC1)  =  fPC(i)/CMASS 

-  LINEAR  P01T10N  EQUATIONS  - 

OO  490  1=1,3 

490  IMlXPC(I).NE.O)  XPCDCI)  =  UPC(I) 

-  DURING  TRIM  SUBTRACT  TRIM  VELOCITY  FROM  POSITION  RATES 

IM1NST.NE.3I)  GO  TO  510 
00  500  1=1,3 

500  IMIXPUI)  .NE.O)  XPCOII)  =  XPCO(I)  -  TRM(I) 

510  CONTINUE 
C 

RETURN 

END 
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L 

C 

L 

C 

c 

c 

c 

c 

c 

L 

c 

c 

c 

c 

L 

C 

C 

C 

L 

C 

c 

c 

c 

c 

c 

t 

c 

l 

L 

c 

c 

C 

C 

L 

L 

L 

c 

c 

c 

c 

c 

c 

c 

c 

L 

C 

c 

C 


SUBROUTINE  RL  (FRS,TRS,FkA,TRA,FL,FTS,TTS,QFF,DSA,SRAtDIS,TM, 
bLl,bL2,bL3,BL4,bL5,BL6, 

UPtRLR,XRR,RLL,XRL,tRL,SPR,0PG,SBF,ZTSt3TS,CPT, 

SRP,USTtEST,WST,XAP»UAP,EAP,WAP) 

COMMON  /CT1ME/  TIME 

COMMON  /CICCAL/  ItCAL 

COMMON  /COVRLY/  INST 

COMMON  /CSSFLG/  SSFLG 

COMMON  /  CIO  /  IREAOt IMKITE.IOIAG 


OESIGNEO  BY  C.L.  WEST 

LAST  MODIFIED  -  DECEMBER  6,  19B0 

FORCES  AND  TORQUES  ON  THt  VEHICLE  AND  SEAT  FROM  RAIL  ELASTICITY  AND 
RAIL  10  SLIDER  BLOCK  FRICTION  FORCES 

BcOCAS  STARTING  AT  THE  BOTTOM  OF  THE  RIGHT  RAIL  AND  GOING  UP  ARE 
NUMbEREO  It  2,  3;  AT  THE  BOTTOM  OF  THt  LEFT  RAIL  AND  GOING  UP  ARE 
NUMBtRtO  4,  5 1  6 


***************  rail  outputs  *************** 


FRSI 3) 

TRS  <31 

FRAt  3 ) 

TRA( 3) 

FL 
FT  S 
TTS 
OFF 

OSA( 3,3) 
SRAt 3) 

OIS 

TM  (3  ) 


X,  Y,Z  SEAT  AXIS  FORCE  COMPONENTS  ON  THE  SEAT  FROM 
THE  RAILS  (LB) 

X,YtZ  SEAT  AXIS  TORQUE  COMPONENTS  ON  THE  SEAT  FROM 
THt  RAILS  (FT-LB) 

X, Y  ,2  AIRPLANE  AXIS  FORCE  COMPONENTS  ON  THE  AlRPLANt 
FROM  Tht  RAILS  (Lb) 

X,Y,Z  AIRPLANE  AXIS  TORQUE  COMPONENTS  ON  THE  AIRPLANE 
FROM  THE  RAILS  (FT-Lb) 

STROKE  FLAG  (0  =  GUIDED  1  =  UNGUIDED) 

TRIP  SWITCH  CONTACT  FLA*,  (1  =  ON) 

TRIP  SWITCH  CONTACT  TIME  (SEC) 

SEAT/RAIL  SEPARATION  FLAG  (1  =  SEPARATION) 

SEAT  TO  AIRPLANE  DIRECTION  COSINE  MATRIX 

X, Y  »z  airplane  coordinate  system  linear  position 

VECTOR  OF  THE  SRP  (FT) 

DISTANCE  From  THE  CRITICAL  POINT  TO  THE  SEAT 
REFERENCE  POINT  (FT) 

X,Y,Z  VEHICLE  EARTH  VELOCITY  COMPONENTS  TO  PASS 
TO  THE  St AT  COMPONENT  DURING  TRIM  (FT/StC) 


***************  rail  inputs  *************** 


DLl ( 3 ) 
Bl2(  3 ) 
bl3( 3 ) 
BL4( 3) 
BL5(3) 
8ls( j I 


X , Y , c  SEAT  AXIS  POSITION 
X , Y , Z  SEAT  AXIS  POSITION 
X  t  Y, Z  SEAT  AXIS  POSITION 
X,Y,Z  SEAT  AXIS  POSITION 
X,Y,Z  SEAT  AXIS  POSITION 
X , Y, Z  SEAT  AXIS  POSITION 


VECTOR  OF 
VECTOR  OF 
VECTOR  OF 
VECTOR  OF 
VECTOR  OF 
VECTOR  OF 


RIGHT  LOWER  BLOCK.  (FT) 
RIGHT  MIODlc  BLOCK  (FT) 
RIGHT  UPPER  bLOCK  (FT) 
LEFT  LOWER  BLOCK  (FT) 
LEFT  MIDDLE  BLOCK  (FT) 
LEFT  UPPER  BLOCK  (FT) 


UP 


RlK 
XRK ( 3 ) 


EJECTION  DIRECTION  FLAG 

♦I  =  UPWARD  WRT  THE  VEHICLE 
-1  =■  DOWNWARD  WRT  THE  VEHICLE 

right  rail  z  coordinate  of  the  end  of  the  right  rail  (ft) 

X , Y  t  Z  AlRPLANt  POSITION  VECTOR  OF  THe  ORIGIN  OF 
THE  RIGHT  KAIL  COORDINATE  SYSTEM  (FT) 

LEFT  RAIL  Z  COORDINATE  OF  THE  END  OF  THE  LEFT  RAIL  (FT) 


RLL 


nroonrrof'  r  rnr 


XKL ( 3 ) 


C 

c 

L 

L 

c 

L 

L 

L 

C 

C 

c 

L 

L 

c 

c 

c 

L 

l 

c 

c 

c 

L 

L 

C 

c 

c 

c 


tRL( 3) 

SPK<2) 

UPG(2) 

SBF 

ZTS 

DlS 


CP  113) 


X  t  Y « 2  AIRPLANE  POSITION  VECTOR  OF  THE  ORIGIN  OF 

the  left  rail  coordinate  system  c ft > 

AIRPLANE  10  KAILS  EuLEK  ANGLES  (OEG» 

RAIL  SPRING  CONSTANT  (LB/FT) 

RAIL  DAMPING  CONSTANT  (LC/FT/SEC) 

SLIDtR  BLGlJL  FRICTION  COEFFICIENT 

RIGHT  RAIL  AXIS  2  COORDINATE  OF  THE  KEY  BLOCK  AT 
TRIP  SWITCH  CONTACT  (FT) 

trip  switch  key  block  number 

1  =  oOTTUM  RIGHT  BLOCK 

2  =  MIDDLE  RIGHT  BLOCK 

3  -  TOP  RIGHT  BLOCK 

X  ,Y  » Z  AIRPLANE  POSITION  VECTOR  OF  THE  CRITICAL  CLEARANCE 
POINT  FOR  THt  SCAT  (FT) 


SkP { 3 ) 
UST ( 3  ) 
ESK  3 ) 
WST13) 
XaP ( 3 ) 
UAP ( 3 ) 
t AP( 3) 
WAP( a) 


X,Y ,2  tARTH  POSITION  VECTOR  OF  THE  SEAT  REFERENCE  POINT  (FT) 
x,y,z  seat  Velocity  vector  of  the  srp  «ft/seo 

EARTH  TO  StAT  EULER  ANGLES  (DEG) 

X,Y,2  SEAT  ANGULAR  VELOCITY  FECTOR  OF  THE  SEAT  (DfcG/SEC) 
X,Y,l  EAR1H  POSITION  VECTOR  OF  THE  AIRPLANE  (FT) 

X  *  Y » 2  AIRPLANE  VELOCITY  VtCTOR  OF  THE  AIRPLANE  (FT/SEC) 

EARTH  TO  AlRPLANt  EULER  ANGLES  (DEG) 

X  > Y « 2  AIRPLANE  ANGULAR  VcLOCITY  VECTOR  OF  THE  AIRPLANE 
(DEd/SEC  ) 


DIMENSIONS  OF  CALLING  ARGUMENTS 


DIMENSION  FkS(3) , TKS( 3) ,FRA( 3 ) >TRA(3) ,DSA(3,3) ,SRA(3) ,TM(3) . 

BLl(3) >  BL2 ( 3 ) ,B  L3 (3 ) ,BL4(3) ,BL5 ( 3 ) , BL6 1 3 ) , XRR( 3 ) , 

XRL ( 3) iERL(3) tSPRl2)fDPG<2) ,CPT(3) , SRP (3 ) , UST1 3 ) , EST { 3 ) , 
wST(3),XAP(3),UAP(3),EAP(3),WAP(3) 


internal  dimensions 


DIMENSION  Oar l 3, 3) ,URA(3, J) , OEA ( 3 f 3 ) , DAE l 3 , 3 > , DES ( 3 , 3 ) , 
DSE<3,3) ,uER(3,3) , ORE (3 , 3 ) , DRS ( 3 . 3 ) ,DSR13,3) > 
EST IR ( 3) ,EAPIR(3),WSTIR(3) ,WAPIR(3) ,ERLIR(3) , 
SRPRR(3 ) »  SRPRL ( 3),Sw(o) 


DIMENSION 


FSB113), 
FSB2 ( 3 ) , 
FSB3U)  , 
FSB4(3) , 
FSBS( 3)  , 
FSB6 ( 3 )  , 


FABl (3) 
F Ab2 ( 3 ) 
FAB j( 3 ) 
F  A64  ( 3 ) 
FA85 (3 ) 
FABsl 3 ) 


t  T  SB  1 ( 3 ) 
, T  SB2 ( 3 ) 
tTSB3(3) 
, TS8413) 
»  TsB  5 ( 3 ) 
r  TSB&I3) 


• TaBI ( 3) 
»TaB2(3) 
,TA83(3) 

*  T  A84 ( 3) 

*  TaB5 ( 3 ) 
t TAB6(3) 


DATA  KPQ  /  .01745324  / 


♦  »****»  *■***:*. ********  ♦***■***♦ 
INITIALIZATION  ***** 
**************************** 


IF(ICCAL.NE.l)  GO  TO  5 

INITIALIZE  VARIABLES  . 

OFF  =  FL  =  FTS  =  ITS  =  0 
TM ( l )  =  TM ( 2 )  =  TM ( 3)  =  0 
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r  r  f-'  oro  nor  oro  rrr>  non 


IF  (CPT  Cl)  .EQ. 0.9999V)  CPT(l)  =  0 
IF{CPT(2).eQ. 0.99999)  CPU2)  =  0 
IF (CPT 13 ) .few .0.999 99)  CPT  13)  =  U 
IF(UP.fcU. 0.99999)  UP  =  1. 

If (bTS.EQ. 0.99999)  bTS  =  1. 

***************************************************** 


9  DU  10  1=1,3 

10  EAPik(i)  =  fcAP(L)  *  RPD 
CALL  UlRCOS  ( Dt A , fc APlK) 

CaLCuL A 1 E  SEAT  REFERENCE  POINT  COORDINATES  IN  THE  AIRPLANE  SYSTEM 
CALL  VECXY2  ( SRA, SRP ,XAP, DEA , 1 ) 

CALCULATE  THE  DISTANCE  FROM  THc  CRITICAL  POINT  TO  THE  SRP  . 

UIS  =  SORT ( (CPT(l)— SRA(l) )  **2  ♦  ( CPT ( 2 )— SRA ( 2 ) ) **2  ♦ 

.  <CPT(3)-SRA(3))**2) 

RETURN  TO  EQMO  IF  SEAT  SLOCKS  ARE  OFF  RAILS 

1 F ( OFF.EQ • 1 .0  I  GO  TO  190 

chance  from  Decrees  to  radians  . 

DO  20  1=1,3 

EST1RU)  =  EST(I)  *  RPD 
WSTlK(l)  =  MST ( 1 )  *  RPD 
HAPlR(l)  =  WAP(i)  *  RPD 
20  ERLlK(l)  =  tRL(l)  *  RPD 

CALCULATE  THE  DIRECTION  COSINe  MATRICES  . 


C 

c 

c 

c 

t 

c 

L 

c 

c 

c 

ic 


CALL  OIRCOS  ( DAR , ERLIR) 

CALL  TRANS  (DRA,DAR,3,3) 

CALL  TRANS  ( DAE , OEA ,3 ,3) 

CALL  DlKCOS  (DES.EST1R) 

CALL  TRANS  (DSE ,DES ,3 , j) 

CALL  MATMPY  ( DER , OAR , DEA , 3 , 3 , 3 ) 

Call  Trans  (0RE,0tK,3,s) 

CALL  MATMPY  ( DRS , DES, DRE , 3 , 3, 3 ) 

CALL  TRANS  ( DSR, DRS, 3 ,3 ) 

CALL  MATMPY  { OSA, DEA, DSE , 3 , 3 , 3 ) 

************************************************************** 

****  SLIDER  block  FURCES  AND  TORQUES  FOR  THE  RIGHT  RAIL  **++ 
************************************************************** 


determine  seat  reference  point  in  right  rail  system  . 

CALL  VECXY  Z.  (  SRPRR  ,  SR  A  ,  AkR,  DAR  ,  1 ) 

bottom  slock  uj 

Call  SLOCK  (FS81, FAbl,TS&l,TABl,2Sl, SRPRR ,SRA,RLR,XRR,sLl,SPR, 
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r  r  f;  corn  rrr>  o  n  r 


.  OPG,SbF,uSl»WSTiR,UAP,WAPlR,DAE,DER.ORStORA,DSA,DS£t 

.  DSR,UP,SW( 1) ) 

if (1NSI.NE.26  .OR.  oTS.NE.l.)  GO  TO  30 
IF (ZTS*UP  .GE.  Zbl*UP>  FT  S  =  1.0 
IF (FT  S.£q .1.0  .AND.  llS.cG.O)  TTS  =  TIME 
C 

C  MlUDLt  BLOCK  (  2) 

C 

30  CALL  bLuCK  ( F362 , F Ae2 , T Sb 2 > TA62 , Zb2 , SRPRR , SRA ,RLR , ARR , 6L2 , SPR , 

.  DPG1S8F  »uST »WST IR ,UAP, WAP1R tDAE , OER , DRS, OKA, DSA , DSE , 

.  OSR  t  UP  ,  SW  ( <i)  ) 

IF ( INST .Nc . 26  .OR.  BTS.NE.2.)  GO  TO  40 
IF (2Ts*uP  .&£.  ZB2*uP i  FT S  =  1.0 
IF ( FTS.EQ . 1.0  .AND.  TTS.EQ.G1  TTS  =  TIME 
L 

C  TOP  CLOCK  (  3) 

C 

40  CALL  BLOCK.  ( FSB3 ,  FAb3  ,  TSB3 ,  TaB3»ZB3,SRPRR,  SRA  »  RLR  »  XRR  i  BL3  ,  SPR, 

.  0PG,3BF,UST,w3TlR,UAP,WAPIR,0AE,DERf0RS»DRA,DSA,DSE, 

.  DSR.oPtSMon 

IF ( INST .NE .26  .OR.  bTS.NE.3.)  GO  TO  50 
IF (ZTS*UP  .Gt.  Zb3*0P)  FTS  =  1.0 
IF ( FTS.EQ .1.0  .AND.  TTS.EQ.O)  TTS  =  TIME 
C 

C  ************************************************************* 

C  ****  SLIDER  BLOCK  FORCES  AND  TORQUES  FOR  THE  LEFT  RAIL  **** 

C  ********************  ***********  ****************************** 

c 

C  DETERMINE  SEAT  REFERENCE  POINT  IN  THE  LEFT  RAIL  SYSTEM 
C 

50  CALL  vECXYZ  ( bRPRL , SRA , AR L. OAR, 1 ) 

C 

L  BOTTOM  BLOCK  (  4) 

C 

Call  BLOCK  (FSa4»  FAb4,TSB4,  TAB4»DUM , SRPRL  »SRA,RLL»XRL»BL4,SPR» 

.  DPG  * SBF , U3T  »WST IR  *  UAP ,WAPIR,DaE,DER,DRS,ORA»DSA»DSE, 

.  OSR.OP.SW (41 ) 

MIDDLE  bLOCK  (  5) 

CALL  BLOCK  (FSB3, FAb5,TSB5,TAB5,DUM, SRPRL, SRA, RLL,XRL,BL5, SPR, 

.  DPG, SbFtUST, W STIR, UAP, WAP IR, DAE, DER, DRS , DRA, DSA , DSE , 

.  OSR, UP  ,  SW ( 5  )  ) 

UPPER  BLOCK  (  6) 

CALL  cLOCK  (F3B6,FAb6,T5B6,TA66,DUM, SRPRL , SRA , RLL , XKL , BL6 , S PR, 

.  DP&,SaF,UST,WSTlR,UAP,WAPIR,OAE»OER,DRS,DRA,DSA,DSE, 

.  0SR,UP,3W(6) I 

***************************************** 

****  CHECK  IF  BLOCKS  ARt  OFF  RAILS  ♦*** 
***************************************** 

IFIFL.EG.l.)  GO  TO  70 

IF(SM(2).NE.l.  .ANu.  Sh(5 ) . Nc . 1 . )  GO  TO  70 
WRITE  ENO  OF  GUIDED  STROKE  ON  OUTPUT  FILE 
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rnr*  rror  nrr  rroro 


IF ( INST .EQ.26 )  WRIT E (6*60 )  TIME 

oO  FORMAT )/5X,*END  OF  GUlOED  STROKE  AT  TIME  =  *,F7.4,*  SEC*/) 
FL  =  1. 

*  *-********♦*************  ******************  ****** 

****  TOTAL  FORCES  AND  MOMENTS  ON  THE  SEAT  **** 
************************************************ 

70  00  ao  1=1,3 

FRS(l)  =  FSB1  ( 1  )*FSo2  (1)+FSB3(1)+FSB4(I)+FSB5(I)+FSB6(I) 
TRS) I)  =  T3bllI)*TSb2ll)+ISo3)I)*TSb4CI)*TSb5(I)+TSB6tI> 

BO  CONTINUE 

total  forces  and  moments  on  airplane 

00  VO  1=1,3 

FRA) 1 )  =  ( FABl ( 1 ) ♦FAB2C 1 I+FAB3 ( I  ) ♦FA84) I ) ♦FAB5( I ) +FAB6 (1 ) ) 
.  *  SSFLG 

TRA(l)  =  (TABl(I)+TAB2)I)+TAB3(I)+TAB4(I)+-TAB5(I)+TAB6ll)) 
.  *  SSFLG 

90  CONT 1NUE 


IF  FOUR  OUTER  BLOCKS  ARE  OFF  RAILS,  SET  FLAG  TO  BYPASS  THIS 
COMPONENT  .... 

IF)SW)1)*SW(3)*SW)4)+:>W)6).EQ.4)  0FF=1.0 
IF (OFF.EQ.O)  GO  TO  130 

MRlTc  SEAT/RAIL  SEPARATION  MESSAGE  . 


C 

C 

c 


c 


IF(  INST  .tQ.  26)  WRITE)  6,1.00)  TIME 
*00  FORMAT )/5X,*SEAT/RAlL  SEPARATION  AT  TIME 
00  110  1=1,3 
FKS(1)=0. 

TRS) 11=0. 

FRA) I)=0. 

TRA) I)=G. 

SRA ) 1 )  =  0. 

110  CONTINUE 

00  120  1=1,3 
00  12U  J  =  1 , 3 
120  OSA( 1, J)  =  0 

SENU  UATA  TO  DETERMINE  TRIM  EARTH  VELOCITY 

130  IF ( 1NST.NE .31 )G0  TO  140 

CALL  MATMPY  ) TM, DAE, OAP ,3,3,1) 

140  RETURN 
END 


=  *, F7.4, *  SEC*/) 


TO  SEAT 
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Subroutine  rs  ( fpd.tpo.fab, iao.trm, 

.  FL,XYZ,EA,XPb, UPb,EP6»WPB,XAB»UAB,EAb,QAo, 

.  X  R  ,  XU i tRfCUl 

COMMON  /  CIU.AL  /  1CCAL 
COMMON  /  COVRLY  /  INST 
COMMON  /  CSSFLG  /  SSFLG 
COMMON  /  CIO  /  IRfcAU, lWRITE.IOlAu 
L 

c  standard  component  rs  generates  the  forces  and  torques  that 

C  RESTRAINS  ONE  BODY  TO  ANOTHER  (THE  MAN  IN  THE  SEAT,  ETC.) 

C 

t  ***************  OUTPUTS  *************** 

L 

C  PPd( 3 ) 

C  TPb( 3) 

C  FAd(3) 

C  TAB ( 3 ) 

C  TRM13) 

C 

c 

C  ***************  Ri  INPUTS  *************** 

C 

C  FL 

C  XY Z ( 3 ) 

C 

L  E A (b  ) 

C  XPB( 3) 

C 

C  UPb( 3 ) 

L 

C  EPBI3) 

C  HPnlb) 

C 

C  X Ab 13) 

C 

C  UAfa ( 3 ) 

C 

t  EA6(3) 

C  MAb( 3) 

C 

L  XK 

4.  XD 

C  ER<3) 

C  ED ( 3 ) 

C 

C  DIMENSIONS  OF  CALLING  ARGUMENTS  . 

C 

DIMENSION  PP8 ( 3 ) »  TPB ( 3 ) ,FAB ( 3 ) , TAB ( 3 )  ,TRM(3), 

.  XYZ(3) , EA ( 3 ) ,XPB ( 3 ) ,UPB (3 ) ,EPB( 3 ) , WPB (3 ) , 

.  XAo ( 3 ) , UAB ( 3 ) , EAB (3 ) ,MAB ( 3 ) , ER( 3) , EDI  3 ) 

C 

C  INTERNAL  DIMENSIONS  . 

C 

DIMENSION  UPB( 3 ,3 ) , DAb (3,3),DPBT(3,3) , DPA (3,3), 

.  X8(3),DELTA(3), SPRING) 3) , UXE (3) ,VEL(3), 

.  OAMP ( 3 ) , ANG ( 3 ) , T OR JUE ( 3 ) ,HPBE(3  )  ,WABE(3), 

.  EPblR(3),tfPblR(3) ,EAdIR(3) , WASIR ( 3) ,DABE ( 3,3 ) , UABEC3 ) , 

.  E AIR ( 3 ) »  DCt A l b , 3) • DC EAT (3,3) , TEMP ( 3 ) 


-  flag  to  release  attached  body  (i  =  release) 

-  X  «  V  ,  Z  BODY  AXIS  POSITQN  VECTOR  OF  THE  ATTACHED 
BODY  IN  THE  Parent  SYSTEM  (FT) 

-  PARENT  BODY  TO  ATTACHED  BODY  EULER  ANGLES  (DeG) 

-  X ,  Y  ,Z  EARTH  SYSTEM  POSITON  VECTOR  OF  THE  PARENT 
BOOY  (FT) 

-  X , Y , Z  PARENT  BOOY  AXIS  VELOCITY  VECTOR  OF  THE 
PARENT  BODY  (FT/SEC) 

-  EARTH  TO  PAReNT  BODY  EULER  ANGLES  (DEG) 

-  X ,  Y , Z  BODY  AXIS  ANGULAR  VELOCITY  VECTOR  OF 
THE  PARENT  BODY  (DEG/SEC) 

-  X  ,Y,Z  EARTH  SYSTcM  PUSiTON  VECTOR  OF  THE  ATTACHED 
BODY  (FT) 

-  X , Y, Z  BODY  AXIS  VELOCITY  VECTOR  OF  THE  ATTACHED 
BODY  (FT/SEC) 

-  EARTH  TO  AITaChED  BODY  EULER  ANGLES  (DEG) 

-  X ,  Y ,Z  BOOY  AXIS  ANGULAR  VELOCITY  VECTOR  OF 
THE  ATTACHEQ  BODY  (DEG/SEC) 

-  LINEAR  SPRING  CONSTANT  (LB/FT) 

-  LINEAR  DAMPING  CONSTANT  (LB/FT/SEC) 

-  X , Y , Z , ANGOLA R  SPRING  CONSTANTS  I  FT— LS/DEG ) 

-  A, Y,2  ANGULAR  DAMPING  CONSTANTS  ( FT-LB/OEG/SEC ) 


-  X, Y, Z  PARENT  bOOY  AXIS  FORCE  VECTOR  (Lb) 

-  X , Y , Z  PARENT  BODY  AXIS  TORQUE  VECTOR  (FT-LB) 

-  X, Y, Z  ATTACHED  BODY  AXIS  FORCE  VECTOR  (LB) 

-  X,  Y,Z  ATTACHED  bOOY  AXIS  TORQUE  VECTOR  (FT-LB) 

-  X ,  Y ,Z  PARENT  BODY  EARTH  VELOCITY  COMPONENTS 

TO  PASS  TO  THE  ATTACHED  BODY  DURING  TRIM  (FT/SEC) 
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C 

DAT*  RPO » DPR  /  .01745329,  57.29578  / 

C 

C  **************************** 

L  *****  INITIALIZATION  ***** 

L  **************************** 

C 

IP (ICLAL.NE.I)  GO  TO  5 
TRMI1)  =  T  RM  (  2  )  =  TRMI3)  =  O 
ISM  =  0 
00  2  1=1,3 

<1  EAlR(l)  =  EA(  1  )  *  RPD 

CALL  OIRCOS  ( DCc A , LAI R ) 

CALL  TRANS  ( DC EAT  ,  OCE  A ,3,3) 

dYPASS  CALCULATIONS  IP  THE  FLAG  IS  SET  TO  RELEASE  . 

5  IP(lSW.Eu.l)  GO  TO  140 
IFIPL.Nt.U  GO  TO  20 
DU  10  1=1,3 
FPBil)  =  0. 

FAb(l)  =  0. 

TPBU)  =  0. 

10  TAb(l)  =  0. 

1SW  =  1 
GO  TO  140 

*****  CHANGE  PROM  DEGREES  TO  RADIANS  ***** 

20  00  30  1=1,3 

EPblR(l)  =  EPb(l)  *  RPD 
WPblR(l)  =  WPB(I)  *  RPD 
EABIR(I)  =  EAB(I)  *  RPD 
30  MABIR(l)  =  WAd(I)  *  RPD 

CALCULATE  THE  DIRECUON  COSINE  MATRICES . 

CALL  DIRCOS  (DPB,EPBIR) 

CALL  OIRCOS  1DA8, EABI R) 

CALL  TRANS  (DABt,DAd,3,3) 

CALL  TRANS  (DPBT ,DPb,3«3) 

CALL  MATMPY  ( DPA, D Ao, GPBT ,3,3,3) 

L 

C  *********************************************************** 
4.  *4***  FORCES  AND  TURUUES  DUE  TO  LINEAR  DISPLACEMENT  ***** 

C  *********************************************************** 

C 

C  CALCULATE  THE  ATTACHED  BODY  LINEAR  POSITION  VECTOR  IN  THE 

C  PARENT  BODY  COORDINATE  SY.STeM'  1X61  . 

C 

CALL  VECXYZ  tXB , XAb ,XPb , JPb , 1 ) 

C 

C  DEI ERMiNE  THE  LINEAR  DISPLACEMENT  PROM  THE  ATTACHMENT  POINT, 

L  AND  CALCULATE  the  body  axis  spring  components  acting  on  the 

C  PARENT  oCOY  . 

L 

OU  40  1=1,3 

OELTA(l)  =  Xb ( I >  -  XYZ(I) 


rrn  r  r»  r  f*  error  r  r  r  r  f-  r  r  n  o  r  r  roro  rror 


40  SPRING!  1 )  =  DELTA  (1)  *  XR  :* 

i  i 

CALCuLATt  THE  bOUY  AXls  DAMPING  COMPONENTS  ACTING  ON  THE  PARENT  1 

bOuY  t  AND  SUM  THE  RESULTS  WITH  THE  SPRING  COMPONENTS . 

CALL  VELXYZ  ( UXE , UPo, Xb, WPbIR , DPBT )  I 

Call  MATMPY  (UAbE,DABE,UAb,3,3,l)  j 

00  50  1=1,3  I 

Dclta(I)  =  uabe ( i )  -  uxt(i) 

CALL  MATMPY  (VEL, OP o, DELTA, 3,3,1) 

DO  to U  1=1,3 
DAMP ( 1 )  =  VkL(l)  *  XD 
i  FPBCI)  =  SPRING! I )  ♦  DAMPIIl 

CALC  TOKUUE  ON  PARENT  SUDY  Due  TO  DISPLACEMENT  OF  ATTACHMENT  ! 

POINT  FROM  PARENT  bODY  CENTER  OF  GRAVITY 

CALL  CRSPRO  (TORQUE, XYZ.FPb) 

CALCULATE  THE  bODY  AXIS  FORCE  COMPONENTS  ACTING  ON  THE  ' 

ATTACHED  bODY  . 

CALL  MATMPY  ( FAb , OPa, FPb, 3 ,3 , 1 ) 

DO  70  1=1,3 
70  FAb ( I )  =  -FAb(I) 

************************ ************ ************ 

*****  TORQUc  due  to  angular  displacement  ***** 
************************************************ 

calculate  the  parent  to  attached  body  euler  angles  .  t 

CALL  C0S0IR  ( ANG, DPA ) 

determine  the  ANGULAR  displacement  from  the  attachment  angle, 

AND  CALCULATE  THE  SPRING  COMPONENTS  ACTING  ON  THE  SEAT  IN  THE 
ATTACHMENT  AXIS  SYSTEM  . 

OO  dO  1=1,3 

OELTA(l)  =  ANG  (‘♦—I  )*OPR  -  BA(t-i) 
feO  SPRINu(i)  =  DELTA ( 1 )  *  eR ( 1 ) 

CALCULATE  THE  BODY  AXIS  ANGULAR  DAMPING  COMPONENTS  ACTING 
ON  THE  PARENT  BODY  IN  THE  ATTACHMENT  AXIS  SYSTEM  . 

CALL  MATMPY  ( WPbE ,OPBT ,WPb,3, 3, 1 ) 

CALL  MATMPY  ( WAbE , DAoE , WAB « 3,3,1) 

00  VO  1=1,3  1 

90  delta< i)  =  wabeu>  -  wpbehj 

Call  MATMPY  (TEMP, UPb, DELTA, 3, 3,1 ) 

Call  matmpy  (vel, dcca, temp, 3,3, n 

DU  100  1=1,3 

DAMP ( 1 )  =  VEL! I)  *  ED ( 1 ) 

100  TEMP(l)  =  SPRING! 11  ♦  UAMP(I) 

MOVE  THE  RESTRAINT  TORQuES  INTO  THE  SEAT  SYSTEM  .  | 

CALL  MATMPY  ( TPB, DCEAT , TEMP ,3 , 3 , 1 )  I 
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CALCULATE.  THE  BODY  AXIS  TORQUE  COMPONENTS  ACTING  ON  THE 
ATTACHED  BUOY  . 

CALL  MAT MP Y  (1 AB,DPA,TPB,3,3, l) 

00  L10  1=1,3 
110  TABI1)  =  -TABU) 

CALCULATE  THE  TOTAL  MOMENT  ON  THE  PARENT  BODY  . 

00  LEG  1=1,3 

120  TPbli)  =  TPBU)  ♦  TORQUEC 1 1 

ZERO  THE  FORCES  ANU  TORQUES  ACTING  ON  THE  PARENT  BODY  IF  SSFLG  IS 
EQUAL  TO  ZERO  . 

lF(SSFLG.NE.O)  GO  TO  135 
DO  130  1=1,3 

130  FPb(I)  =  TPBU)  =  0 

SEND  DATA  TO  ATTACHED  BODY  TO  ALLOW  IT  TO  COMPUTE  THE  PARENT  BODY 
EARTH  VELOCITY  DURING  TRIM  . 

135  IF  (1N3T.NE.31)  GO  TO  140 

CALL  MATMPY  ( TRM, DPBT ,UPB,3 ,3 , 1 ) 

140  RETURN 
END 
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SUBROUTINE  SE  (UST»UDS»lUS»SRP»XDS»IXS,WST,WDS,lWS, 

.  E ST. t DS, Its, SCD.SCODOT ,ISCO,SC,SCOOT,ISC, 

•  GX  ,  GY  ,  GZ  , UR , AL  T , 

.  Fll,F12,F13,F14,F15,Fl6,F17,F18, 

.  Tll,T12,TI3»T14,T15,Tlo,T17»Tla, 

.  F21,F22,F23,F24,F25,F2e,F27,F28, 

.  T2I,T22,T23,T24,T25,T26,T27,T26, 

.  CM , CCG , CM! , CPI , TM ) 

C 

C 

L  EASIEST  seat  equations  of  motion  component 

c 

4. 

C  OtSlGNED  BY  C.L.  WEST 

t  LAST  MUuIEIEO  -  DECEMBER  6,  19S0 

C 

C  ****************  st  OulPUTS  *************** 

c 

C  LiNtAR  VELOCITIES  -  8GOY  AXIS 
C 

L  UST ( 3 )  -  X.Y.Z  LINEAR  VELOCITY  VECTOR  OF  THE  SEAT 

L  REFtRtNCE  POINT  (FT/SEC) 

L  UOSTj)  -  X.Y.Z  LINEAR  ACCELERATION  VECTOR  OF  THE  SEAT 

L  REFERENCE  POINT  tFT/ScC/SEC) 

C  IuS( 3 )  -  INTEGEKAT ION  CONTROL 

C 


u 

r 

LINEAR  POSITIONS 

-  EARTH 

SYSTEM 

U 

C 

SRPCj)  -  X.Y.Z 

LINEAR 

POSITION 

vector 

OF 

THE 

SEAT 

i. 

REFERENCE  POINT  (FT) 

c 

XUS ( 3 )  -  X.Y.Z 

LINEAR 

velocity 

VECTOR 

OF 

THfc 

SEAT 

C  REFERENCE  POINT  (FT/SEC) 

C  I XS ( 3 )  -  INTEGRATION  CONTROL 

4. 

C  ANGULAR  VELOCITIES  -  BUOY  AXIS 

c 

C  MS  I ( 3 )  -  X, Y ,Z  ANGoLAR  VELOCITY  COMPONENTS  -  P.Q.R  (OEG/SEC) 

C  MGS ( 3 )  -  X.Y.Z  ANGULAR  ACCELcRATION  COMPONENTS  ( DEG/SEC/SEC  ) 

C  IMS (3)  -  INTEGRATION  CONTROL 

f 

C  tULER  ANGLtS  —  EARTH  TO  6UOY  —  YAM, PITCH, ROLL 
L 

C  ESK3I  -  EARTH  TO  SEAT  EULER  ANGLES  (DEG) 

C  El)S(  3 )  -  EULER  ANv.Lt  RATES  (DtG/SEC) 

C  IcSUI  -  INTEGRATION  CONTROL 

4- 

c  spinal  compression  velocity  . 

c 

C  SCU  -  SPINAL  COMPRESSION  VELOCITY  (FT/SEC) 

C  SEOUL' T  -  SPINAL  COMPRESSION  VELOCITY  RATE  (FT/SEC/SEC) 

L  I SCU  -  INTEGRATION  CuNTkOl 

C 

4.  SPINAL  COMPRESSION  ...... 

C 

L  SC  SPINAL  COMPRESSION  (FT) 

C  SCOUT  -  SPINAL  COMPRtsSIQN  RATE  (FT/SEC) 

C  ISC  -  INTEGRATION  CONTROL 
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GA  -  SEAT  X-AXiS  LOAD  FACTOR  (G) 

GY  -  iE AT  Y-AXla  gOAD  FACTOR  (G) 

GZ  -  SEAT  Z-AX1S  LOAD  FACTOR  (G) 

OR  -  DYNAMIC  RESPONSE 

ALT  -  SEAT  ALTITUDE  (FT) 

**«**M*«*4M**  INPUTS  *************** 

F1K3I  THROUGH  FiB(3)  -  SEAT  AXIS  FORCE  VECTORS  ACTING  ON  THE 

EJECTION  SEAT  WHICH  ARE  GENERATED  BY 
AN  EXPLOSIVE  CHARGE  (LB) 

Tilt 3 )  through  tib(3)  -  seat  axis  torque  vectors  acting  on  the 

EJECTION  SEAT  WHICH  ARE  GENERATcO  BY 
AN  EXPLOSIVE  CHARGE  (FT-LB) 

F21(3>  THROUGH  F26(3)  -  SEAT  AXIS  FORCE  VECTORS  ACTING  ON  THE 

EJECTION  SEAT  WHICH  ARE  GENERATED  BY 
NON-EXPLOSIVE  MEANS  (LB) 

T2i( 3)  through  T2o(^)  -  seat  axis  torwue  vectors  acting  on  the 

EJECTION  SEAT  WHICH  ARE  GENERATED  BY 
NON-EXPLOSIVE  MEANS  (FT-LB) 

CW  -  COMPOSITE  SEAT  WEIGHT  (LB) 

CLG( 3)  -  X,Y,Z  StAT  AXIS  SYSTEM  COMPOSITE  CENTER  OF  GRAVITY  (FT) 
CMl(J)  -  COMPOSITE  SEAT  MOMENT  OF  INERTIA  VECTOR  ABOUT  ITS 
CENTER  OF  GRAVITY  -  IXX,IYY,IZZ  (SLUG-FT**2) 

CPK3)  -  COMPOSITE  StAT  PRODUCT  OF  INERTIA  VECTOR  ABOUT  ITS 
CENTER  OF  GRAVITY  -  IXY,1XZ,IYZ  (SLUG-FT**2) 

TM (3 )  -  X  f  Y  f  Z  VEHlCLt  tARTH  VELOCITY  COMPONENTS  TO 

DETERMINE  THE  POSITION  RATES  DURING  TRIM  (FT/SEC) 

dimensions  of  calling  arguments  . 

DIMENSION  UST (3)»UDS(3)flUS(3)tSRP(3) f ADS (3) c IXSl 3 ) » 

.  WST ( 3 ) »WDS(3)tlWS(3I>EST(3) , tuS ( 3 ) , 1ES ( 3 ) , 

.  CCG ( 3 ) » LMI ( j ) tCPI (3 ) t  TM ( 3 ) 

DIMENSION  Fll(3),F12(3),F13(3),Fl4(3) ,F IS ( 3 ) , F16(  3 ) » F 1?(  3 ) , FIB  (  3 ) t 
-  Til  (3)  ,Tl2(3),Ti.3(3)  , T14 (3 > ,T15 ( 3) » T lb( 3 )  ,  T  W(  3  )  ,  TIB  ( 3 ) 

DIMENSION  F21(3) ,F22(3) ,F23(3 > ,F24(3) ,F25 ( 3 ) . F26(  3 ) t F27( 3 ) ,F2b(3) , 
.  T21(3) ,T22(3),T*3(3),T24(3),T25(3) ,T26(3) , T27(  3 ) , T2B ( 3 ) 

INTERNAL  DIMENSIONS  . 

UiME NS  ION  T INtR ( 3  »3) »  T EMP 1(3) , TtMP2 ( 3 ) , T EMP3C 3 ) ,TEMP4< 3 ) ,DSE(3,3) , 
.  F(3) >T(3 ) »WSTIR(3)»WDSIR(3)»ESTIR(3) , DES ( 3 , 3 ) t FG ( 3 ) , TG< 3 ) 

L 

COMMON  /CICCAL/  ICC AL 
COMMON  /COVRLY/  INSI 
COMMON  /CSSFLG/  SSFLG 
COMMON  /CIO/  IREADtlWRlTEylDlAG 
C 

DAl A  RPD » OPR  /  . 0 1745 j29»  37.g9:>78  / 

DATA  GRAV  / 3^. 174/ 

C 

c  **************************** 

C  *****  IMIT  lALiZATiON  ***** 

C  **************************** 
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IF(ICCAL.NE.l)  GO  TU  2G 


c 


00  10  1=1, 
1F(F11(1) 

3 

•  ED  • 

0. 99994) 

Flld) 

- 

0 

IF(F12(1) 

.  tQ. 

0.99999) 

F 12 ( 1  ) 

= 

0 

IF  (F  13  d  ) 

.EQ. 

0.99999) 

F131I ) 

0 

IF (F 14(1 ) 

•  tQ  • 

0.99999) 

F 14 (I  ) 

= 

0 

IF( F15 (I ) 

.tu. 

0.99999) 

F 15  1 1  ) 

= 

0 

IPlFlod) 

•  EQ. 

0.99999) 

F  16  (  I  ) 

- 

0 

1F(F17(1 1 

.tQ. 

0.99V99) 

F  17  ( I  ) 

- 

0 

IF  (F  l&d ) 

•  EU. 

0.99999) 

Flo) I ) 

= 

0 

IF (F21 ( I 1 

•  EQ. 

0.99999) 

F21 (1) 

0 

IPIF2td) 

•  EQ. 

0.99999) 

F22 ( 1 ) 

= 

0 

IF(F23(11 

•  EQ  • 

0.99999) 

F23 ( 1 ) 

= 

0 

IF(F24(I) 

•  EQ. 

0.99999) 

F24d  ) 

=• 

0 

IF (F25 ( 1 1 

.EQ. 

0.99999) 

F  2  m 

= 

0 

IF  <  F2t>(  1 ) 

•  EQ. 

0.99999) 

F2o  1 1  ) 

= 

0 

IF ( r 27 ( I ) 

•  EQ. 

0.99999) 

F27 (I  1 

= 

0 

1 F ( F2o (1 1 

•  tQ. 

0.99999) 

Fcod  ) 

0 

1M1UI1) 

.EQ. 

0.99999) 

Hill) 

= 

0 

IF (T12C1 ) 

.EQ. 

0.99999) 

T12 ( 1 ) 

= 

0 

IF ( T 13( 1 1 

•  Eu. 

0.99999) 

T 13  ( 1 ) 

= 

0 

IF(T14(I) 

.EQ. 

0.99999) 

T  14  (  I  ) 

= 

0 

IF(TI5(1) 

.EQ. 

0.99999) 

TlMI) 

= 

0 

IF(Tl6(iJ 

.EQ. 

u. 99999) 

T 16 ( I ) 

= 

0 

IF(117(I  ) 

.Eu  . 

0.99999) 

T  1  7  ( 1  ) 

0 

IF(libd) 

.EQ. 

0.99999) 

T Id (I ) 

0 

IF  (T211I) 

•  EQ  . 

0.99999) 

121(1) 

= 

0 

IF  ( T  2d  1 ) 

.EQ. 

0.99999) 

T22 ( I ) 

= 

0 

IF (T23 (1 1 

•  Eu. 

0.99999) 

T23 ( I 1 

= 

0 

I F  ( T  24  d  1 

.tQ. 

0.99999) 

T  24 (I ) 

0 

iF ( T  25 ( I  ) 

.EQ. 

0.99999) 

T25d  ) 

= 

0 

IF ( I 26(1 ) 

•  cQ. 

0.99999) 

T2o(I ) 

- 

0 

IF (T27 ( 1 ) 

.tu. 

0.99999) 

T27d  ) 

= 

0 

IF ( T  2b( 1 1 

•  EQ. 

0.99999) 

T2fa( I ) 

= 

0 

CUNT INUt 

TM(11  =  TM (2) 

=  TM(3)  = 

0 

c 

C  *****  CHANGE  FROM  D  EGktt 3  10  RAOlANS  ***** 
C 

2  J  00  3U  1-1, J 

HSTIKd)  =  WST (  1  )  *  RPC 
jO  ESTIRd)  =  t ST ( 1 )  *  KPD 
l 

C  *****  3l1  UP  otAT  INERTIA  TENSOR  ***** 


C 

l 

C 


TlNERIi,l ) 
d  Nt  R (1 , 2 ) 
T INt  R( 1,3) 
T  i  Nt  K  (  2 , 1 ) 
TiNt k( 2  »  2 ) 
T INt k ( 2 , 3 ) 
TINtkl .»,!) 
T  I  Nt  k  1  3  ,  2 ) 
TINtR(3»3 ) 


CMim 
-CPI (11 
-CPI (2) 
-CPI  111 
CMH  2 ) 
-CP  1(31 
-CP  I ( 2  1 
-CPI (31 
CM1  (31 


CALCULATE  T Mt  DIRECTION  lOSINE  MATRICES 


CALL  U1KC0S  (DcS,EST Ik) 
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CALL  IRANS  ( DSE , DE3,3  ,3  ) 


*****  COMPUTE  GRAVITY  FORCES  AND  TORQUES  ***** 
00  40  1=1*3 

40  FG(I)  =  CM  *  OES (1*3)  *  SSFLG 
CALL  CRSPRO  (TG.CCG.Fb) 

*****  soM  FORCES  AND  MOMENTS  ***** 

00  SO  1=1 »  3 
F< II  =  F 1 i ( 1  i 
.  F 17  1 1 J 

.  F25 ( I ) 

T( n  =  Tii < i > 

.  T  17  (  1) 

.  T2S ( 1 ) 

SO  CONI 1NUE 

CALCULATE  THE  SEAT  ALTITUDE  .. 

ALT  =  — SRP (3) 

Calculate  the  dynamic  response 

JR  =  SL  *  06.977 


♦ 

F  12  { 1 ) 

♦ 

F13( 1 ) 

♦ 

F14( I) 

♦ 

F15( I) 

•4 

F 161 I  ) 

♦ 

♦ 

F161I) 

♦ 

F2 1  (  1 ) 

♦ 

F22 ( 1 ) 

♦ 

F231I) 

♦ 

F24t I ) 

♦ 

♦ 

F261I ) 

♦ 

F27( I ) 

♦ 

F28 ( 1 ) 

♦ 

FG  ( I ) 

♦ 

Ti2 ( I ) 

♦ 

T13C 1) 

♦ 

T14( I ) 

♦ 

T151I) 

♦ 

Tlol I  ) 

♦ 

♦ 

Tifa(I  ) 

♦ 

Tam 

♦ 

T221I) 

♦ 

T231I) 

♦ 

T2411) 

♦ 

♦ 

T  26 ( 1 ) 

♦ 

T2711) 

♦ 

T2BII) 

4“ 

TG(  I ) 

**************************************** 

*****  ANGULAR  VELOCITY  EUUAl IONS  ***** 
**************************************** 

CALCULATE  UNtK  *  WST1R 

CALL  MATMPY  (  TEMP  1 , 1 1 NER  , NST  lrl , 3 , 3  »  1 ) 

CALCULATE  MSTIR  X  1T1NER  *  MSTIR) 

call  crspro  (temp*, wstir, tempi) 

COMPUTE  CCG  X  F... 

CALL  CRSPRO  ( TEMP  3»CCG  »F ) 

C 

C  SuM  TERMS  TO  OBTAIN  TOTAL  TORQUE  . 

C 

00  oO  1=1 » 3 

oil  TtMP3<l)  =  T  (  I )  -  1EMP211)  -  TEMPS  (II 
C 

C  CALCULATE  wos  ...... 

c 

CALL  LUEwS  (T1NER,TEMP1,TeHP3,TeMP2,3,1,3,3,3,1.e-14, IERROR ) 
IF ( 1  ERROR. NE • 1 )  GO  TO  BO 
MR  IT  E(  6,70  ) 

70  FJRMAH*  INERTIA  MATRIX  OF  SEAT  IS  SINGULAR. .  .RUN  STOPPED*) 
STOP 

aO  CONT INGE 
C 

OO  90  1=1,3 
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IF(IMS(1).NE.0)  wDSlR(l)  =  TEMPI  (  I  ) 

Vo  wusm  =  MDS1R ( 1 )  *  DPR 

4. 

C  «********M«*****«««**«***»4*y***** 

C  *****  EULeR  aNULE  EQUATIONS  ***** 
c  *******  **************************** 

c 

CALL  EARATE  ( TEMPI , MS  1 1R»  tSTlK) 

DO  100  1 * 1 y  3 

loo  iRitSd  i.ne.o)cds(I)  =  Tempi m  *  opr 

L. 

i  ******* ************************* ******* 

*****  linear  velocity  equations  ***** 

i.  *************************************** 

..  CALLU'-Alt  WOST1R  X  CCO . 

c 

CALL  CR jPKO  (TEMPI, WOsiR»CCu ) 

i. 

C  CaU.ulaTl  M ST 1R  X  CCD  ...... 

CALL  CRSPRU  ( T EMP2  , HST  1R»  CCG ) 

calculate  mstir  x  (wsur  x  ccot  . 

ALL  CRSPRO  (TEMP3,WSTIR,TEMP<.) 

u  AL C  u  L  A  T  t  MST1R  X  UST . 

Call  CRSPRO  ( TEMPc.WSTIR.UST I 

CALCoLaTc  P/m  . 

LMASS  =  CM/ORAV 
DO  120  1=1,3 

120  TEMP4U)  =  F  ( 1  )  /LMASS 

SUM  IhE  ACCtLcKAT ION  COMPONENTS  . 

DU  130  1=1,3 

130  IK  I  US  (I  )  .Nt  •  0 )  UUSII)  =  TEMP4U)  -  TEMPltl)  -TEMP2U)  -  TEMP3(1) 

L 

o  =====  determine  the  load  factors  ===== 

L 

OX  =  (  TEMP  1(1)  *  T  EMP3  (  i)  -  TEMP4(1)  )/(iRAV 

UY  =  ( T EMP 1(2)  ♦  TEMP3(2)  -  TEMP4< 2)1 /GRAV 

02  =  (TeMPl!3)  ♦  TeMP3(3)  -  TEMP41 3 ) ) /ORA V 

C 

C  *************************************** 

C  *****  LINEAR  POSITION  EQUATIONS  ***** 

C  *************************************** 

L 

call  matmpy  (Tempi, ost, usr, 3, 3, ii 

DO  140  1=1,3 

140  IP(IXSm.NE.O)  XOSdl  =  TEMPI  (  1 1 
C 

L  ****************************************** 

C  *****  SPINAL  COMPRESSION  EQUATIONS  ***** 
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»****************»*»*»♦+************♦****♦ 

SPINAL  COMPRESSION  VELOCITY  EQUATION  ..... 

If ( I SCu.Nt . 0)  SC0001  =  -23.6992  *  SCO  -  2798.41  *  SC 
.  ♦  uRAV  *  02 

SPINAL  COMPRESSION  EQUATION  . 

If ( 1SC.NE . 0 )  SCOOT  =  SCO 

0OR1NU  TRIM,  SUBTRACT  TRIM  VELOCITY  FROM  POSITION  RATES 

If  (1NS1.NE.31)  00  10  16G 
DO  ISO  1=1,3 
ISO  lF(lXS(i).NE.G)  X0S(1)=X0S(1)-TM(1) 

C 

160  Rt  Turn 

eno 
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SUBROUTINE  SL  (USL  ,USLD,  IUSL,  XSL  ,  XSLO  .  IXSL  ,WSL  , WSLD  »  IWSL  , 
.  ESL.ESLG.IESL, 

.  Uu,WU) 

l 

DIMENSION  USL(3)  ,USLD(3),  I USL (3)  , XSL ( 3 )  t XSLO (  3  )  , IXSL (3) , 

.  WSl(3),WSLD(3), IWSL (3) ,ESL(3) ,  ESLD ( 3 ) , IESL  (  3 )  , 

.  UO ( 3 ) »W  u ( 3 ) 

L 

OlMtNSION  TtMP(3) ,WSLIR(3) ,tSLIR( 3) , DBS (3, 3 l , USE (3, 3) 

C 

COMMON  /CICCAL/  ICCaL 


COMMON  /CiU/  IREAD.IWRITE.IOAAG 
L 

DATA  RPu,DPR  /  .01795329,  57.29378  / 

L 

L  DIS1GNEO  bY  C.L.  WEST 

C  LAST  MODIFIED  -  utCEMBER  6,  1930 

L 

c  easiest  six  degree  of  freedom  sled  mqoel 

c 


c  ==========  sled  outputs  ========== 

L 

C  LlNtAR  VELOCITIES  -  BUOY  AXIS 

c 

L  USl( 3)  -  X,Y,Z  LINEAR  VtLOCITY  VECTOR  (FT/SEC) 

C  uSLD ( 3 )  -  Xt  Y • 2  LINEAR  VELOCITY  RATE  VECTOR  (FT/SEC/SEC) 

C  1 JSL (3 )  -  INTEGRATION  CONTROL 

L  ■  ] 

L  LINEAR  POSITIONS  -  cARTH  SYSTlM 
C 

C  XSlC 3)  -  X  ,  Y  ,  2  LINEAR  POSITION  VECTOR  (FT) 

C  ASLD(j)  -  X,  Y,Z  LINtAK  POSITION  RATE  VECTOR  (FT/SEC) 

C  I XSL (3)  -  INTtGRAllON  CUNTROL 

L 

C  ANGULAR  VcLQCITIES  -  BOOY  AXIS 
C 

C  WSL(3)  -  X,  Y  ,  2  ANGULAR  VELOCITY  VECTOR  -  P,Q,R  (DEG/SEC) 

C  MOLD (3)  -  A,  Y,Z  ANGULAR  VELOCITY  KATE  VECTOR  (OEG/SEC/SEC ) 

C  IWSl (3 )  -  INTEGRATION  CUNTRUL 

L 

C  cULEK  ANGLES  —  cAKTH  TO  BODY  —  YAW , PITCH, ROLL 
C 

C  ESL13)  -  EARTH  TO  SleD  EULeR  ANGLES  (DEG) 

L  tiLD ( 3 )  -  EULER  ANGLE  RATcS  (DEG/SEC) 

C  ieSL ( 3 )  -  INTEuKATlON  CONTROL 

L 

C  ==========  SLcO  INPUTS  ========== 

* 

C  UO(3)  -  X, Y,2  SLED  SYSTEM  LINEAR  VELOCITY  RATE  VECTOR  (FT/SEC/SEC) 

C  WG(3)  -  X,Y,2  SLEu  SYSTEM  ANGULAR  VELXITY  RATE  VECTOR  (DEG/SEC/SEC) 


C 

i.  ///// ////////////////////////////////////////////////////// ///////// 

c 

t  **************************** 

C  *****  INITIALIZATION  ***** 

C  **************************** 

L 

IF ( 1CCAL.NE. 1 )  GO  TU  cO 
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C 

DG  5  1=1,3 

lF(UQd)  .EQ.  0.99999)  uDd)  =  0 
5  l^(Mbd)  .Eg.  0.99999)  WDd)  =  0 

IF  (MSLd  )+MSLl2  )+MSL(  3)  .Ey.OI  00  TO  20 

c 

MK11 c(fa» 10) 

10  FORMAT T/5X,*SLtD  ANGULAR  VELOCITY  IS  NOT  INITIALIZED  AT  ZERO  *, 

.  * - RUN  ^TOPPED  - *//) 

C 

i  //////////////////////✓///////////////////////////////////////////// 
C 

L  CHANGE  FROM  DtGREES  TO  RADIANS  . 

L 

20  00  30  1=1,3 

WsLlKd)  =  WSL( I)  *  K PD 
30  ESLlRd)  =  ESL(I)  *  RPU 

*****  ANGULAR  EQUATIONS  ***** 

******************************* 

ANGULAR  VELOCITY  EQUATIONS  . 

DO  90  1=1,3 

90  lFdHSL(I).NE.O)  WSLD(I)  =  MD  ( I  ) 

EULEK  ANGLE  RATES  . 

CALL  fcARATE  ( TEMP,WSLlk,ESLlR ) 

DO  50  1=1,3 

50  1 F ( IESL (I).Ne.O)  ESLD(I)  =  TEMP(I)  *  DPR 

****************************** 

*****  LINEAR  EQUATIONS  ***** 

****************************** 

LINEAR  VELOCITY  EQUATIONS  . 

CALL  CRSPRD  t T EMP ,WSL IR.USL ) 

DO  oO  1=1,3 

60  1 F ( 1  US L ( I ) • NE . 0 )  USLD d )  =  UD d )  -  TEMP ( I ) 

LINEAR  POSITION  EQUATIONS  . 

CALL  D1RC0S  (OES.ESLIK) 

CALL  TRANS  (GSe,DES*3 ,3) 

call  maimpy  ( temp, dse,usl, 3,3,1 ) 

00  70  1=1,3 
70  IFllXSLd)  .NE.O)  ASlD(I)  =  TEMP(I) 

C 

RETURN 

END 
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subroutine  sp  <  trf ,  tma,tst , 

•  mG  »WGD  , lWG,tSG  »  fc  SGD  »  1  fc  SG*E  SR,ESRD,1ESR,PHA, 

.  F  » T  » T1N,ECA, 

.  FL  ,  YPR  >  AVW iWHl t SMI »  R 1 1 ,RIF,XR,UV, 

.  GSA,GSF,SPR,OPG,FMT , TMX » TNF,TOS , TSU, GMA,W ST ) 

C 

L  STANDARD  COMPONENT  iP  CALCULATES  FORCES  AND  TORQUES  APPLIED 
C  TO  The  SEAT  ay  THt  STAPAC  ST  ABlLiZAT ION  SYSTEM 
L 

L  ***************  SP  TABLES  *************** 

L 

C  TRF 

L 
L 
i. 

c 

L  TMA 

c 

L 
t 

c 

c 

C  TST 

L 
L 

c 
c 

c 

C  ***************  SP  OUTPUTS  *************** 


-  stapac  rocket  tniust  table 

the  independent  variable  is  time  (seo 

The  UEPENUtNT  VARIABLE  IS  ROCKET  FORCE  (LB) 

-  MECHANICAL  ADVANTAGE  table 

THE  INDEPENDENT  VARIABLE  IS  THE  GIMBAL  ANGLE  (DEG) 
WITH  RESPcCT  TO  THt  CAGED  POSITION 

THE  DEPENutNT  VARIABLE  IS  THE  MECHANICAL  ADVANTAGE 

-  SPRINu  TOkQUE  TABLE 

THE  INDEPENDENT  VARIABLE  IS  THE  GIMABAL  ANGLE  (DEG) 
WITH  RtsPtCT  TO  THE  CAGED  POSITION 

THt  DEPENDENT  VARIABLE  IS  THE  SPRING  TORQUE  (FT-LB) 


C 

C 

C 

c 

c 

L 

C 

c 

c 

c 

c 

c 

t 

c 

c 

L. 

c 

L 

c 

c 

L 

c 

c 

c 

c 

c 

c 


ANGULAR  VtLOCIT Y  —  GIMBAL  X-AXIS 

(LESS  The  SEAT  ANGULAR  VELOCITY  PROJECTED  ONTO  THE  GIMBAL  X-AXIS) 

Wb  -  ANGULAR  VELOCITY  (DLG/SEC) 

WGD  -  ANGULAR  ACCELERATION  (DEG/SEC/SEC) 

IWG  -  INTEGRATION  CONTROL 


EuLEk  ANGLES  —  SEAT  TO  GIMBAL  —  YAW, PI TCH, ROLL 

tSG( 3 )  -  SEAT  (0  GIMBAL  EULER  ANGLES  (DEG) 

ESGD(S)  -  EULtR  ANGLE  RATES  (DEG/SEC) 

ItSG(B)  -  INTtGRATlGN  CONTROL 

tULER  ANGLtS  —  SEAT  TO  ROCKET  —  YAW, PITCH, ROLL 


ESk( 3 )  -  ANGULAR  POSITION  ( DtG) 

tSRD (3 )  -  ANGULAR  VELOCITY  (DtG/SEC) 
IESR(j)  -  INTEGRATION  CONTROL 


PHA  -  STAPAC  OPERATIONAL  PHASE 
0  =  BEFORE  IGNITIuN 

1  =  STAPAC  IGNITION 

i.  =  STAPAC  bURNOOT 

F( 3)  -  X  »  Y  »  E  SEAT  BODY  AXIS  FORCE  COMPONENTS  (LB) 

T( 3 1  -  X,Y,Z  StAT  BODY  AXIS  TORQUE  COMPONENTS  (FT-LB) 

TIN  -  TIME  AT  STAPAC  INITIATION  (StC) 

EGA  -  SEAT  TO  GiMoAL  ROLL  EULER  ANGLE  AT  THE  CAGED  POSITION  ( OEG) 
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***************  SP  INPUTS  *************** 


FL 

YPK 


A  V  W 
MM1 

SMI 

Rll 

RIF 

XR(3 ) 

uvm 

GS  A 

GSF 

SPR 

DPG 

FMI 

TMX 

TNf 

TQS 

TSU 

GMA 

WSl(3» 


STAPAC  IGNITION  FLAG  (1  •  STAPAC  ON) 

SIAPAC  APPLICATION  FLAG 

1  =  YAW  STAPAC 

2  =  PITCH  STAPAC 

3  =  ROLL  STAPAC 

angular  Velocity  of  the  gyroscope  wheel  (deg/sec) 

MOMENT  OF  INERTIA  OF  THE  WHEEL  A 3 OUT  ITS 
SPIN  AXIS  (SlUG— FT** 2) 

MOMENT  OF  INERTIA  OF  THE  SYSTEM  LESS  ROCKET  ABOUT 
THE  GIMBAL  AXIS  (SlUg-FT**2> 

MOMtNT  OF  INERTIA  OF  THE  ROCKET  PRIOR  TO 
IGNITION  ( SLuG-FT**2 ) 

MOMtNT  OF  INERTIA  OF  THE  ROCKET  AFTER 
BURNOUT  ( SLUG— FT  **2 ) 

X,Y,Z  SEAT  ttOOY  AXIS  POSITION  VECTOR  OF  THE 
ROCKET  NOZZLt  (FT) 

X,Y,Z  ROCKfcT  FORCE  UNIT  VECTOR  IN  THE  ROCKET  COORDINATE 
SYSTtM 

GiMbAL  MOTION  STOP  IN  THE  NEGATIVE  ROLL  DIRECTION  WITH  RESPECT 
TO  THE  CAGED  POSITION  (DEG) 

GiMbAL  MOTION  STOP  IN  THE  POSITIVE  ROLL  DIRECTION  WITH  RESPECT 
TO  THE  CAGtO  POSITION  (DEG) 

GIMBAL  STOP  ANGULAR  RIGIDITY  (FT-LB/DEG) 

GIMBAL  STOP  ANGULAR  QAMPING  (FT-LB/DEG/SEC ) 

LOAD  AT  MAXIMUM  FRICTION  (LB) 

MAX  FRICTION  (FT-LB) 

FRICTION  AT  NO  THRUST  (FT-LB) 

THRUiTLINt  OFFSET  (LBI 
GYROSCOPE  WHEEL  SPINuP  TIME  (SEC) 

GIMBAL  ANGULAR  VELOCITY  AT  MAXIMUM  FRICTION  (DEG/SEC) 

XtYiZ  SEAT  BOOY  AXIS  ANGULAR  VELOCITY  VECTOR  OF 
THE  SEAT  (DEG/SEC) 


***************************************************** 


-  uIMENSIQNS  OF  CALLING  ARGUMENTS  - 

uiMcNSlQN  TRF ( 5 ) »TMA( 5) ,T ST ( 5) , ESG (3 ) , ESGO < 3 ) , I ESG ( 3 ) , 

.  eSR(3) ,ESRO(3),1eSR(3),F(3),T(3)  ,XR(3) ,UV(3) , 

.  WST ( 3 ) 

-  INTERNAL  DIMENSIONS  - 

DIMENSION  WGB( 3 ) » WRBl 3) ,FRKT ( 3 ) ,WSTG( 3 ) , TEMP ( 3 ) , DSR ( 3 , 3) ,DRS(3,3) , 
.  0SG(3.3) ,ESRIR(3) *ESGIR(3) 

C 

COMMON  /CICCAL/  ICCAL 
COMMON  /CTIME/  TlMt 
COMMON  /CiU/  iREAUylWKITEtlUiAG 
L 

DATA  RPD,DPR  /  .017*5329,  37.29576  / 

DATA  PI  /  3.14159  / 

DATA  WGB ( 2 ) yWGB (3  )  /  C  .  U  /,  WRB ( I ) ,WRB( 3)  /  0  ,  0  / 

C 

C  **************************** 

C  *****  INITIALIZATION  ***** 


c  **************************** 

c 

IF (ICCAL.Nt.l)  GO  TO  20 
<u 

PHA  *  1IN  -  G 
ECA  =  ESG( 3 ) 

00  10  1=1*3 
F( 1 )  =  0. 

10  Till  =  0. 

IF(TSU.£Q. 0.99999)  TSU  =  0.005 
IF tGMA. EG. 0.99999)  GMA  =  10. 
lF(UV(i.)  .EQ. 0.99999)  UV(1)  =  0 
1FCOVI2) .EO. 0.99999)  OV(2)  =  0 
1F(UV(3) .£U. 0.99999)  UVt3>  =  -1. 

C 

C  ///////////////////////////✓///////////✓//////✓//✓///// 

C 

C  BYPASS  COMPONENT  IF  STAPaC  IS  OFF  . 

C 

20  IFtFL.NE.l.  .OK.  PHA. £0.2.)  GO  TO  26c 
C 

C  -  WRITE  IGNITION  MESSAGE  AND  INITIALIZE  START  TIME  - 

C 

IF (PHA. EG. 1. )  GO  TO  90 
L 

IF( YPR.E0.2. )  GO  TO  90 
IF (YPK.EO.3. )  GO  TO  60 
WRITE(6,30)  TIME 

3C  FORMAT (/5X  »*YAW  STAPAC  IGNITION  AT  TIME=*»F10.4,2X,*SEC*/) 
GO  TO  oO 

90  WRITE (6*50 )  TIME 

50  FORMAT (/5X ,*P1TCH  STAPAC  IGNITION  AT  TIME=*»F1G.4,2X,*SEC*/ ) 
GO  TO  BU 

60  WK1Te(6,70)  TIMc 

70  FORMAl (/5X»*RQLL  STAPAC  IGNITION  AT  TIME=*,F10.4,2X,*SEC*/) 
SO  TIN  =  TIME 

PHA  =  1. 

90  CONTINUE 

L 

C  -  CHANGE  FROM  DEGREES  TO  RADIANS  - 

C 

00  100  1=1*3 
ESG1R(1)  =  ESG(l)  *  RPD 

100  ESRlR(l)  *  ESR(l)  *  RPD 

C 

C  -  CUMPUTe  THE  SEAT  TO  G1MBAL  DIRECTION  COSINE  MATRIX  - 

L 

CALL  D1RC0S  (DSG*  E  SGI R) 

C 

C  -  CALCULATE  THE  SEAT  ANGULAR  VELOCITY  IN  THE  GIMBAL  SYSTEM 

C 

call  matmpy  (wstg*dsg*wst*3»3*i) 

c 

C  -  DETERMINE  the  TIME  INTO  STAPAC  - 

c 

US  =  TIME  -  TIN 
C 

c  -  Determine  the  rocket  thrust  - 
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c 

NRT  =  TRF(2J 

IF<TIS.G7.TRF(NRT*3>)  GO  70  190 

FR  =•  T6LU1  <TIS,TRFC4),TRF(NRT*4),1,-NRT) 

C 

-  DETERMINE  THfc  MECHANICAL  aOVANT AGE  - 

JELl A  =  ESG( 3 1  -  tCA 
NMA  =  TMAi 2 ) 

SMA  =  T6LU1  (DELTA, TMA(4) ,TMA(NMA*4) ,1, -NMA) 

-  CALCULATE  THE  SYSTEM  INERTIA  - 

SYSMI  -  iMI  *  SHA**2*(R1I-(TI  S-TRF(4>  )/ ( TRF ( NRT+3 )-TRF (4 )  ) 

.  *(Rll-ftlF  )  ) 

»•»***♦♦»♦»*♦**»♦**»»»*»»♦♦*»»*♦*»»♦♦♦**♦*»»♦*»♦ 

*****  DETERMINE  THt  GIMBAL  X-AXIS  TORQUE  ***** 
*********************************************** 

-  CALCULATE  THE  THRUSTLINE  UFFSET  TORQUE  - 

TOFF  =  FR  *  TOS  *  iMA 

-  CALCULATE  THE  FRICTIONAL  TORqUE  - 

ANGV  =  (MG  -  USTG(1))/GMA 

TFR1CT  =  —SIGN ( AM INI (1. ,AbSt ANGV I ) t  ANGV )  *  ABS(SMA)  * 

.  (TNF*FR/FMT*(TMX~TNF> ) 

-  calculate  the  precessional  tormue - 

AVMl K  =  AVM  *  KPO 

1F(1 1S.LE.TSU)  AVM1R  =•  (l.-*-SIN(3.*PI/2.*TIS/TSU*PI)  )/2.*AVW*RP0 
IF ( T 1S.LE • 0 )  AVM IK  =•  0 
TPREC  «  -MMI  *  AVWIR  *  WSTG(2)  *  RPD 

-  DETERMINE  THE  SPRING  TORQUE  - 

NST  =  TSTI2) 

TSPR  =  TBLU1  (DELTA, TST(4)  ,TSUNST+4)  ,1,-NST) 

-  calculate  THt  gymbal  stop  torque  - 

IF(OELTA.LT.GSA)  go  to  no 
IF(UELTA.GT.GSF)  go  TO  120 
GO  TO  140 

CALCULATE  SPRING  TORQUE  . 

110  TSTOP  =  SPR  *  (gSa  -  DELTA) 

GO  TO  130 

120  TSTOP  =  SPR  *  (GSF  -  DELTA) 

L 

L  CALCULATE  DAMPING  TORQUE  ...... 

L 

130  TSTOP  =  TSTOP  -  ANGV  *  OPG 
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GO  TO  150 


SfcT  SPRING  AND  DAMPING  TORQUES  EQUAL  TO  ZERO  .... 

140  TS10P  =  0. 

-  SUM  THE  TORQUES  - 

150  TSUM  =  TOPE  ♦  TPR1CT  ♦  IPREC  ♦  TSPR  ♦  TSTOP 

*^***jt***v*.***^****************** 

*****  CALCULATE  Tm£  RATfcS  ***** 

*********************  ************ 

-  CALCULATE  THt  G1M6AL  X-AXIS  ANGULAR  VELOCITY  RATE 

IF(lWG.NC.D)  MGU  =  (TSUM/SYSM1)  *  DPR 

-  UETERM1NE  Tht  G 1M&AL  EULER  ANGLE  RATES  - 

MGbi 1 )  =  MG  -  WSTG(l) 

CALL  EaRATE  ( TEMP , MGo , ESGIR ) 

00  160  1=1,3 

160  IF(IEbG(  I)  .NE.OI  tSGO(l)  =  TEMP(I) 

-  COMPOTE  THt  ROCKET  EULER  ANGULAR  RATES  - 

WRb ( 2  >  =  MGb(l)  *  SMA 
CALL  tARATE  ( TtMP  , MKB ,ESR1R ) 

00  170  1=1,3 

170  Ii-(IESk(I».NE.O)  ESRDIU  *  TEMP(I) 

***************************************************** 
*****  CALCULATE  THE  ROCKfcT  FORCES  AND  TORQUES  ***** 
***************************************************** 

-  TRANSFORM  THE  ROCKET  ThRUST  TO  THE  SEAT  - 

CALL  01RCQS  ( DSR, ESRiK) 

CALL  TRANS  (0KS,0SK,3 ,3) 

DO  loO  1=1,3 

laO  FRKTU)  =  UV(I)  »  FR 

CALL  MATMPY  ( F , uRS, FKKT ,3,5,1  ) 

-  CUMPOTt  THE  SEAT  60UY  AXIS  TORQUE  COMPONENTS  - 

Call  CRSPRO  (T,xR,F) 

GO  TO  Z6C 

c  ********************************************* 

C  *****  MHtN  The  ROCKET  ShUIS  DOWN  ....  ***** 

i.  ********************************************* 

c 

C - lEkO  OUT  RATES,  FORCES,  AND  TORQUE  S - 

C 

1*0  DO  ZOO  1=1,5 
ESGD(l)  =  0. 

EsRom  =  o. 
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F(  I )  =  0. 

200  T(  I )  =  0. 

MGO  -  0. 

PHA  =  2. 

-  WRITE  BURNOUT  ME66AGE  - 

IF l YPR.EU.2.)  GO  TO  220 
IF  ( YPR.tQ.3.  )  GO  TO  240 
WRITE  (6,210)  TIME 
210  FuRMaT(/5X **YAW  SlAPAC.  bURNOUT  AT  T IME=*, F 10.4,2X ,*SEC*/ ) 

GO  TO  260 

220  WRITE (6,230)  TIME 

230  FORMAT </5X,*P ITCH  STAPAC  BURNOUT  AT  T1ME=*,F10.4,2X,*S£C*/) 
GO  TO  260 

<.<*0  WRIT  E  (6,250)  TIME 

250  FORMAT (/5X,*k0LL  STATPAC  oURNOUT  AT  TIME=*,F10.4,2A,*SEC*/) 
L 

2o0  RETURN 
END 


'  -1 

rl 


nrrrrf'nrrrrrppooiiorrrrrrrrrorrfirpprrnrftf'rrrpf'nff»rr>prr 


SuBROul  INt  i»R  ((RF, 

.  PM iPriDt IPW  t 

.  PHA.KQN.FST, 1ST.XCG.PMI.PPI.FR.PW1.SPI >RHO* 

.  VWl.TMI.TlG, 

.  FON, PC  b,EA . XKN , YAM . P I T . PL. POD ,P 10 ) 

FORCES  AND  MOMENTS  ACTINb  ON  THE  StAT  FROM  THt  SuSTAlNER  ROCKET 

DESlbNED  BY  C.L.  MEST 

EAST  MODIFIED  -  DECEMBER  6.  1980 

***************  rocket  tables  *************** 

TRF  -  ROCKET  THRUST  TABLE 

THE  INOEPENDcNT  VARIABLE  IS  TIME  (SEC) 

the  dependent  variable  is  the  rocket  force  (lbt 
***************  rocket  outputs  *************** 

PM  -  WEIGHT  OF  UNBURNED  PROPELLANT  (LB) 

PMD  -  PROPELLANT  BURN  RATE  (LB/SEC) 

1PW  -  INTEGRATION  CONTROL 

PHA  -  ROCKET  PHASE 

0  =  BEFOKc  IGNITION 

1  =  ROCKET  BURN 

2  =■  ROCKET  OFF 

RON  -  ROCKET  ON  Flag  (l=ON  G=OFF) 

FST(B)  -  X.Y.Z  SEAT  SYSTEM  ROCKET  FORCE  COMPONENTS  (LB) 

TSTI3)  -  X.Y.Z  SEAT  SYSTEM  ROCKET  TORQUE  COMPONENTS  (FT-L8) 

XCG(B)  -  X.Y.Z  SEAT  SYSTEM  POSITION  VECTOR  OF  THE 
PROPELLANT  CENTER  OF  GRAVITY  (FT) 

PMi(S)  -  PROPELLANT  MOMENTS  OF  INERTIA  -  IXX.IYY.IZZ  (SLUG~FT**2) 
PPU3)  -  PROPELLANT  PRODUCTS  OF  INERTIA  -  IXY.IXZ.IYZ  (SLUG-FT**2) 
FR  -  SUSTAlNER  ROCKET  FGRCE  MAGNITUDE  (LB) 

PMl  -  INITIAL  MEIGHT  OF  THE  PROPELLANT  (LB) 

SPI  -  ROCKET  PROPELLANT  SPECIFIC  IMPULSE  (LB-SEC/LB) 

RhO  -  ROCKET  PROPELLANT  DENSITY  (LB/FT**3) 

VM1  -  INITIAL  VIRTUAL  WEIGHT  (Lb) 

TM1I3)  -  SOLID  GRAIN  MOMENTS  OF  INERTIA  -  IXX.IYY.IZZ  (SLUG-FT**2) 
TIG  -  ROCKET  IGNITION  TIME  (SEC) 

***************  ROCKET  inputs  *************** 

FUN  -  ROCKET  ON  FLAG  (l*ON) 

PCG( 3 )  -  INITIAL  X.Y.Z  SEAT  SYSTEM  POSTION  VECTOR  OF  THE 
PROPELLANT  CENTER  OF  GRAVITY  (FT) 

E A (3 )  -  SEAT  TO  ROCKET  PROPELLANT  tULER  ANGLES  (DEG) 

XRN( 3 )  -  X.Y.Z  PROPELLANT  SYSTEM  POSITION  VECTOR  OF  THE  ROCKET 
NOZZLE  (FT) 

YAM  -  V AW  EULER  ANbLE  OF  THE  THRUST  VECTOR  IN  THE  PROPELLANT 
COORDINATE  SYSTEM  IOE&) 

PIT  -  PITCH  EULtK  ANbLE  OF  THE  THRUST  VECTOR  IN  THE  PROPELLANT 
COORDINATE  SYSTEM  (DEG) 

PL  -  PP.OPElLANI  GRAIN  LENGTH  (FT) 

POD  -  PROPELLANT  GRAIN  OUTSIDE  DIAMETER  (FT) 

PI D  -  PROPELLANT  bRAIN  INSlOt  DIAMETER  (FT) 
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DIMENSIONS  OP  CALLING  ARGUMENTS  ...... 

DIMENSION  TRP<&>,PSTi3),TST<3» ,XCG(3>  ,PMI (3) ,PPI(3> , 

.  TMK  3 1  «  PCG(  3  )  , E At  3  I  t  ARN  (31 

INTERNAL  DIMENSIONS  . 

DIMENSION  VM1N(3 ) , DSP (3.3 i,0PS(3«sl,QC(s) . E Al R< 3 I , TEMPT3 I , 

.  XRNST (3) 

COMM UN  /CT1ME/  TIME 

COMMON  /C1CCAL/  ICCAL 

COMMON  /CQVRLY/  INST 

COMMON  /CIO/  IREAO, IWRlTc, iul AG 

DATA  RPO  /. 01745329/ 

DATA  GRAV  / 32. 174 / 

****  ********************  **** 

*****  INITIALIZATION  ***** 

*****************  *********** 

IFdCCAL.NE.il  GO  TO  80 

DEFINE  Ttrt  PROPELLANT  CENTER  OF  GRAVITY  IN  THE  SEAT  SYSTEM 
FOR  OUTPUT  . 

QJ  10  1-1 1 3 
10  XCG(L)  =  PCGl 1 1 

M1SC  INITIALIZATION  . 

IF(PW.NE.O)  GO  TO  30 
WRIT  t(6,20) 

20  FORMAT (/5X»*  =***  PROPELLANT  WEIGHT  NOT  INITIALIZED  -  RUN* 
.  *  STOPPED  *«*  */) 

STOP 

30  PWI  =  PW 

PHA  =  RON  a  FR  a  TIG  =  0 

DO  4G  1-1 , 3 

<*C  PPHU  a  P  ST  1 1  I  a  TSTll)  a  0 

CALCuLAT t  THE  SUSTaINeK  hOCRcT's  TOTAL  IMPULSE . 

TOT IMP  *  0 
NA  =  TKF(2) 

DO  50  1=2, NA 

DELIMP  =  (TRF<I*NA*3|-TRFCI*NA*2I  I /< TRF d*3  I- TRF d *2 ) 1*0.5 
tO  T0T1MP  =  TOTlMP  +  DtLlMP 

CALCULATE  The  specific  impulse  . 

SP1  =  TOTIMP/PW 

calculate  the  initial  grain  volume  . 
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c 


PV  =  0.7854  *  PL  *  (PQD**2  -  PI0**2) 


calculate  the  density  . 

RHO  =  PW/PV 

INITIAL  VIRTUAL  WEIGHT  (Tut  EMPTY  PORTION  OF  THE  GRAIN)  . 

VM1  =  0.7854  *  PL  *  P1D**2  *  KHO 

VIRTUAL  mass  moments  of  inertia  . 

VM1MASS  =  VU1/GKA V 

VM In II)  =  (VMIMASS/12.)  *  { 3 . *( PI0/2. ) **2  *  PL**2) 

VMINC2)  =  VMIN(l) 

VM1N ( 3 )  =  ( VMIHASS/2. )  *  (PID/2.)**2 

TOTAL  MASS  AS  IF  IT  MERE  A  COMPLETELY  SOLID  GRAIN  . 

TMASS  =  0.7654  *  P0D**2  *  PL  *  RHO/GRAV 
total  moment  of  inertias  . 

TMltl)  =  (  TMASS/ 1 2 . )  *  (3.MP00/2.  )**2  ♦  PL**2) 

TMIU)  *  TMI(l) 

TM1I3)  =  ( T MASS/2. )  *  (POO/2.)**2 

INITIAL  PROPELLANT  MOMENT  OF  INERTIAS  . 

00  oO  1=1,3 

bG  PMI  ( 1  )  =  TMHI)  -  VMIN(I) 

ROTATE  the  PROPELLENT  INERTIAS  INTO  The  SEAT  SYSTEM  . 

DO  70  1=1,3 

70  EAlR(l)  =  EA(1)  *  RPO 
CALL  UIRCOS  (DSP , EaIR ) 

CALL  TRANS  (DPS, DSP ,3, 3) 

CALL  ROTATEI  CPMI,PPI,DPS) 

✓////////✓/////////////////////////////////////////////// 

RETURN  IF  SUSTAINER  RULKcT  IS  OFF  . 

60  IF ( FON.Eu. 0  .OR.  PHA. Ew.2. )  GO  TO  160 

======  ROCRET  ON  ====== 

1F(PHA.eQ.1.)  GO  TO  100 
PHA  =  RON  =1. 

TIG  =  TIME 

IF ( INST. EQ. 26 )  *RITE<6,90)  TIME 

90  F0RMAT(/5X,*SUSTA1NER  ROCRET  ON  AT  TIME  =  *,FI0.4,*  SEC*/) 
COMPOTE  THE  DIRECTION  COSINE  MATRICES  . 
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100  00  110  1=1,3 

110  EA1R(1)  =  E  A( 1 )  *  RPD 

CALL  DIRC0S  (DSP,EAIR) 

CALL  TRANS  (OPS ,0SP ,3 ,3 ) 

C0MPU1E  THRUST  VECTOR  UlKECTlUN  COSINES  . 

THE  =  PIT  *  RPO 
PS1  =  YAW  *  RPO 
UL  ( 1  )  =  COS  (PSD  *  SIM  THE ) 

OC (2 )  =  SIN(PSl)  ♦  SIN(THE) 

DC (3)  =  COS(THE) 

CALCULATE  THE  BODY  AXIS  FORCE  AND  TORQUE  COMPONENTS  .... 

NA  *  TRF(2) 

TINRKT  =  TIME  -  Tib 

IF(11NRKT.GE.TRF(NA+3) )  bu  TO  130 

FR  =  — TBLUl( T INRKT »TRF (4) ,TRF ( NA+4 ) , 1 , — NA ) 

00  120  1=1,3 

120  TtMP(l)  =  OCU)  *  FR 

CALL  MAlMPY  ( FST , UPS , TEMP ,3 ,3 , 1 ) 

Call  vecxyz  (xrnst,xrn,pcg,dps,2) 

CALL  CRsPRO  (1ST , XRNsT »FST I 

PROPELLANT  CJNSUMPT 1UN  RATE  ( LB/SEC ) . 

IF(IPW.NE.O)  PHD  =  -FR/SP1 

PROPELLANT  MASS  BURNED  (SLUGS! . 

BM  =  (PWl  -  PW J/GRAV 

BURNED  VOLUME  (FT*»3! . 

BVOL  =  BM/RHO/GRAV 

BURNED  RADIUS  OF  GRAIN  (FT)..... 

BK  =  SORT ( ( bVOL/PL/O. 7854 )  ♦  PI0**2)/2.0 

NEW  VIRTUAL  MASS  (SLUGS) . 

VMP  =  VWl/GRAV  ♦  BM 

NEW  VIRTUAL  INERTIAS . 

VM1N(1)  =  (VMP/12.)  *  ( 3. *bR  **2  ♦  PL**2) 

VMlN(i)  =  VMIN(1) 

VM1N (3 )  =  (VMP/2. )  *  BR**C 

INERTIAS  OF  REMAINING  PROPELLANT . 

PHl(l)  =  TMI(l)  -  VMIN(l) 

PMK  «.)  =  PM  I  {  1 ) 

PM1 ( 3 )  =  TMI (3)  -  VMIN(3) 

ROTATE  THE  ROCKET  PROPtLLANT  INERTIA  PROPERTIES  INTO  THE 
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I  SEAT  AXIS  SYSTEM  . 

CALL  ROT AT El  l  PM1  ,PP1  , DPS) 

GO  TO  160 

U 

l  ==-*===  AT  ROCKET  bURNOUT .  ==  =  ==  = 

C 

130  IFdNST.EC.26)  WR1TE(6,140)  TIME 

140  FORMAT </5X,*SUSTAINcR  ROCKET  OFF  AT  TIM£=* ,F1G.4,2X,*SEC*/I 
PHD  =  RON  =  0 
PHA  =  2. 

00  150  1=1,3 

150  FST ( 1 )  *  TST(l)  =  PMl(l)  =  0 
L 

160  RETURN 


rrrrf’frff’rof-fprrorrf'rrrrrrpnrrrrnf'oprprf'orr 


SUBROUTINE  Mb  (CM,CCG,CMI ,CPI , 

.  Ab»WS*XS»SMI »SPI,Wl»Xl»6Ml,bPl, 

.  M2,X2,8M2,BP2.M3,X3, BM3,BP3) 

c 

0 1Mb NS ION  CCG(3),CMl(3)»CPI(3), 

.  XS(3>  *SH1(3) »SP1 (3) rXll 3 ) tbMl( 3 ) *BPi( 3) , 

.  X2< 3>,oH2(3),bP2(3) ,X3 t 3 ) ,BM3 (3 > ,6P3 ( 3 > 

t 

DIMENSION  TSMI(3)  ,T1MI(3)  ,T2M1(3)  .T3MK3)  , 

.  TSP 1(3) »T1P 1 13) ,T2PI(3) ,T3P1U) .DIFF13) 

C 

COMMON  /C1CCAC/  1CCAL 
COMMON  /CIO/  IREADtiMRITEtlQIAo 
C 

DATA  GkAV  /32.174/ 

DESIGNED  BY  C.C.  WfcST 
LAST  MODIFIED  -  DECEMBER  6,  19dG 

NOTE  -  ALL  MOMENT  AND  PRODUCT  OF  INERTIA  VECTORS  INPUT 
INTO  THIS  ROUTINE  HAVE  BEEN  ROTATED  INTO  THE 
SLAT  COORDINATE  SYSTEM. 

***************  OUTPUTS  *************** 

CM  -  COMPOSITE  SEAT  MEIGHT  (Lb) 

CCG ( 3 )  -  X,Y,Z  SEAT  AXIS  SYSTEM  COMPOSITE  CENTER  OF  GRAVITY  (FT) 
CM 1(3)  -  COMPOSITE  SEAT  HOMfcNT  OF  INERTIA  VECTOR  ABOUT  ITS 
CENTER  OF  GRAVITY  -  IXXtlYY.IZZ  (SLUG-FT**2) 

CPU  3)  -  COMPOSITE  SEAT  PROOUCT  OF  INERTIA  VECTOR  ABOUT  ITS 
CENTER  OF  GRAVITY  -  IXX,lYY,IZZ  (SLUG-PT**2) 

***************  mb  INPUTS  *************** 

Ab  -  NUMBER  OF  oUOIES  ATTACHED  TO  THE  BASIC  SEAT 

MS  -  BAilC  SEAT  MEIGHT  (Lb) 

XS ( 3 1  -  X  »Y«Z  SEAT  AXIS  SYSTEM  POSTION  VECTOR  OF  THE 
BASIC  SEAT  CENTER  OF  GRAVITY  (FT) 

SMI(3)  -  MOMENT  OF  INcRTI A  VECTOR  FOR  THE  BASIC  SEAT  ABOUT 
ITS  CENTER  OF  GRAVITY  -  IXX.IYY.IZZ  (SLUG-FT**2) 

SPK3)  -  PROOUCT  OF  INERTIA  VECTOR  FOR  THE  BASIC  SEAT  ABOUT 
ITS  CENTER  OF  GRAVITY  -  IXY.IXZ.IYZ  ( SLUG— FT **2 ) 

MI  -  MEIGHT  OF  BODY  ONE  (Lb) 

XI ( 3 )  -  XtYfZ  SEAT  AXIS  SYSTEM  POSITION  VECTOR  OF  (Ht 

CENTER  OF  GRAVITY  FOR  BODY  ONt  (FT) 
oMI(3)  -  MOMENT  OF  INERTIA  VECTOR  FOR  BOOY  ONE  ABOUT  ITS 
CENTER  OF  GRAVITY  -  lXX,lYYtIZZ  (SLUG-FT**2> 
oPI(i)  -  PRUUUCT  OF  INERTIA  VECTOR  FOR  60DY  ONE  ABOUT  aTS 
CENTER  OF  GRAVITY  -  IXY,IXZ,IYZ  (SLUG-FT**2) 

M2  -  WEIGHT  OF  BODY  TmO  (LB) 

X2 ( 3 )  -  XtYfZ  SEAT  AXIS  SYSTEM  POSITION  VECTOR  OF  THE 

CENTER  UF  GRAVITY  FOR  BODY  TmO  (FT) 

BN2(3)  -  MOMENT  OF  INERTIA  VECTOR  FOR  BODY  TMO  ABOUT  ITS 
CENTtR  OF  GRAVITY  -  lXXtIYYtIZZ  (SLUG-FT**2) 

BP2 ( 3 )  -  PROOUCT  OF  INERTIA  VECTOR  FOR  BOOY  TWO  ABOUT  ITS 
CENTER  OF  GRAVITY  -  IXrtlXZtIYZ  (SLuG-FT**2) 

MS  -  MEIGHT  OF  oQQY  THREE  (LB) 

X3(jI  -  X.Y,Z  SEAT  AXIS  SYSTEM  PQSiTON  VECTOR  OF  THE 
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CENTER  OF  GRAVITY  FOR  BODY  7 hREE  (FT) 

BM3( 3 )  -  MOMfcNT  OF  INERTIA  VECTOR  FOR  BODY  THREE  ABOUT  ITS 
CENTER  OF  GRAVITY  -  IXX,IYY,IZZ  (SLUG-FT**2) 
bPI(3)  -  PROOUCT  OF  INERTIA  VECTOR  FOR  BODY  THREE  ABOUT  ITS 
CcNTER  OF  GRAVITY  -  IXY,IXZ,IY2  (SLUG-FT**2) 

*****  INITIALIZATION  ***** 

**************************** 

IF(lCCAL.NE.l)  GO  Tu  bO 

1FUB.EQ. 0.999991  AB  =  0. 

ZERO  HEIGHTS  AND  INERTIAS  OF  NON— EXI STANT  BODIES 

IF  (MI  .EQ.  0.99999)  Mi  =  0. 

IF (M2.  EQ.  0.99999)  W2  =  0. 

IF(W.>  .EQ.  0.99999)  M3  =  0. 

IFUB.UE.l.)  GO  TO  20 
DO  10  1=1,3 

IF (XI ( 1 ) .EQ. .99999 ) XI ( I  )s0 
IF ( bMI ( 1 ) . EQ. . 99999 )bMl ( 1 ) =0 
10  IF (bPi(I ).EQ..99999)BP1(  I )  =  0 
cO  IF (AB.Gt .2. )  GO  TO  90 
DO  30  1=1,3 

IF(X2(1).EQ..99999)X^(I)=0 
!F(bM2(i ).EQ..99999IBM2(I )=G 
30  IF(bP2(l).EQ. .99999 )bP2( I ) =0 
>♦0  IF  ( Ab.GE  .  3  .  )  GO  TO  60 
DO  50  1=1,3 

IF(X3(1).EQ..99999)X3(I)=G 
IF  (BM3(  1 ).EQ.. 99999 )BM3(1)=0 
50  IF (oP3(l ) .EQ..99995)BP3( I )=0 

zero  out  the  moment  and  proouct  vectors  . 

60  00  70  1=1,3 

TbMl(l)  =  TlMI(l)  =  T2MK1)  =  T3MK1)  =  0 
70  TSPl(I)  =  TIPI  ( I )  =  T2PI(I)  =  T3PIU)  =  0 

///////////////////////////////////////////////////////// 

Compute  the  location  of  the  composite  c.g.  from  the  srp  . 

bO  CM  *  MS  *  Mi  ♦  M2  ♦  M3 
00  90  1=1,3 

90  CCG(l)  =  ( MS*XS ( 1  )  *  M l*Xi ( 1 )  *  W2*X2(1)  *  W3*X3(1))/CW 

************************************** 

*****  SEAT  INERTIA  PROPERTIES  ***** 
************************************** 

calculate  the  seat  mass  . 

bMASS  =  WS/GRAV 

COMPUTE  the  inertia  properties  . 
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00  100  1  =  1,3 

100  DlFF(l)  =  CCGII)  -  XSI1) 

CALL  PaXIS  (TSMI.TSPl, SMI, SP1, BMASS, 0IFFJ 

****** ******* ******* ************ ******** 

*****  0qoy  1  1 NfcRTIA  PKGPfcR II  t  S  ***** 
**************************************** 

IF  1ao.LT. 1.0)  GO  TO  140 

CALCULATE.  T  Hfc  MAGS  OF  oODY  1  . 

BMASS  =  Ml/GRAV 

CuHPuTt  THt  I NfcRTIA  PKOPcKTlcS  . 

DU  110  1=1,3 

110  01FMII  =  CCGtl)  -  Aid) 

CALL  PAAlS  (TlMi, TlPltoMlfbPl, bMASS, D1FF ) 

**************************************** 

*****  oOOY  2  INfcRTI A  PROPfcRTlfcS  ***** 
**************************************** 

IF  (Ai>.lT.2.0)  GO  TO  i^O 

CALCULATE.  THE  MASS  OF  bOOY  2  . 

BMASS  =  W2/GRAV 

CQMPCi  It  THfc  INERTIA  PRUPtRTltS . 

OO  120  1=1,3 

120  QlFF(i)  =  CCG ( I )  -X2U) 

Call  PAX1S  (T2M1,I2P1,BM2,BP2,BMASS,DIFF) 

**************************************** 

*****  bUUY  3  INfcRTI A  PROPER TItS  ***** 
**************************************** 

IF  (Ab.LT. 3.0)  GO  TO  140 

calculate  the  mass  of  body  3  . 

BMASS  =  W3/GRAV 
L 

C  COMPUTE;  THfc  INfcRTIA  PRQPcRT IbS . 

L 

JO  ISO  1=1,3 

130  OiFFU)  =  CCG  (  1  )  -  X3  1 1  ) 

CALL  PAX IS  (T3M1 ,T3PI ,bM3,BP3, bMASS, OIFF) 

C 

L  *********^*** ******* ********* ******************************* 
L  *****  COMPUTfc  THfc  COMPOSITE  BODY  INfcRTIA  PROPERTIES  ***** 

C  ************************************************************ 
L 

ItO  00  ISO  1=1,3 


APPENDIX  H 


EASIEST  SUBROUTINES  AND  FUNCTIONS 


This  appendix  contains  listings  of  the  EASIEST  subroutines  and  functions, 
which  include  the  following: 


ARTAN2 

D I  SECT 

PAXIS 

BLOCK 

EARATE 

PCAERO 

BRIDL2 

FSW 

RATIO 

BRIDL3 

LAG 

RLIM 

BRI0L4 

LIBRIDL 

ROTATE  I 

CAD 

LILINE 

TBLU3 

CEAERO 

LI LOAD 

TLU 

COSOIR 

LINDST 

UNPACK 

DET3 

LINEPL 

VECXYZ 

OIRCOS 

LOOK 

VELXYZ 

*'i  ii*  nilrinur'  i< 
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FUNCTION  ARTaN2(AI,AK> 


FOUR  CiUaORANT  ARCTANGENT  FUNCTION,  A 2  bEINu  THfc  NUMERATOR  ANO  AR 
BEING  THE  DENOMINATOR. 

IF  (  AtoSt  AR )  -  .OGGOG1  *  ABG(Ai))  10,10,30 
10  IF ( A 1 )  20,50,20 

20  ARTAN2  =  1.55079  *  5IGN(1.,AII 

GO  TO  60 
C 

30  ARTAN2  =  ATANU1/AR) 

IF ( AR)  40,20,60 

40  ARTAN2  =  3.14159  ♦  ARTAN2 
N  *  AKTAN2/3. 14159 
EN  -  N 

ARTAN2  =  ART AN2  -  6.2631S*EN 
GO  TO  60 
L 

50  ARTAN2  =0. 

60  RETURN 
ENO 


439 


SUBROUTINE  BLOCK  l  FSE  AT.FAlRP  , TSfc  AT  ,TAIRP  , ZBL , 

.  SRPR,SRPA,RAlLL,XKAIL,XBS,SPR.DPG,FRICT, 

.  UST • WST *  UAP »  WAP . OAE  »  OER  »  DRS » ORA  *  OSA» OSE  * 

.  DSR,GP,FLAG> 

t 

C  DESIGNcD  bY  C.L.  WtST 

•L  LAST  MODIFIED  -  DtCtMbER  o,  I960 

C 

C  CALCULATE  THE  FORCES  AND  MOMENTS  ON  THE  SEAT  ANU  AIRPLANE  FROM 
C  THE  BLOCKS 
C 

c_  ***************  BLOCK  OUTPUTS  *************** 

L 

C  FSEAT(3)  -  X,Y» Z  SEAT  BODY  AXIS  FORCE  COMPONENTS  (LB) 

C  FAIRP(S)  -  X«  Y*  Z  AlRPLANt  bOOY  AXIS  FORCE  COMPONENTS  (Lb) 

C  TSEAT13)  -  X»  Y » Z  SEAT  BQuY  AXIS  MOMENT  COMPONENTS  (FT-LB) 

C  TAIRP(S)  -  XtY,Z  AlRPLANt  BODY  AXIS  MOMENT  COMPONENTS  (FT-LB) 

C  ZBL  -  RAIL  AXIS  Z  COORDINATE  OF  BLOCK 

C 

C  ***************  BLOCK  INPUTS  *************** 

C 

L  SRPR (3 )  -  X,Y,Z  RAIL  POSITION  VECTOR  OF  THE  SRP  (FT) 

C  SRPAI3)  -  X,Y,Z  AlRPLANt  POSITION  VECTOR  OF  THE  SRP  (FT) 

C  RAiLL  -  RAIL  LENGTH  (FI) 

C  XRAIL  -  X.Y.Z  AIRPLANE  POSITION  VECTOR  OF  THE  ORIGIN 

L  OF  THt  RAIL  COORDINATE  SYSTEM  (FT) 

C  POINT  ON  THE  AIRPLANE  (FT) 

C  AbS(3)  -  Xt  Y  *  Z  SEAT  POSTION  VECTJR  OF  THE  BLOCK  (FT) 

L  SPR  -  RAIL  SPRING  CONSTANT  (Lb/FT) 

C  OPG  -  RAIL  DAMPING  CONSTANT  (LB/FT/SEC) 

C  FkACT  -  SLIDER  BLOCK  FRICTION  CDEFFICEINT 

C  UST ( 3 )  -  SEAT  AXIS  VELOCITY  OF  SEAT  REFERENCE  POINT  (FT/SEC) 

C  WST(3)  -  SEAT  AXIS  ANGULAR  RATES  OF  SEAT  (RAD/SEC) 

C  UAP( 3)  -  AIRPLANE  AXIS  VELOCITY  OF  AIRPLANE  (FT/SEC) 

L  WAP  1 j )  -  AlRPLANt  AXIS  ANGULAR  RATES  OF  AIRPLANE  (RAD/SEC) 

C  DAt( 3»3)  -  AIRPLANE  TJ  EARTH  DIRECTION  COSINE  MATRIX 

C  UER( 3*3)  -  EARTH  TO  RAILS  OIRECTION  COSINE  MATRIX 

C  QRS(3,3)  -  RAILS  TO  SEAT  OIRECTION  COSINE  MATRIX 

t  DRA(3,4>  -  RAILS  TO  AIRPLANE  DIRECTION  COSINE  MATRIX 

C  DSA(3*->)  -  SEAT  TO  AlRPLANt  DIRECTION  COSINE  MATRIX 

C  QSE(3»3)  -  SEAT  TO  EARTH  DIRECTION  COSINE  MATRIX 

C  OSR( 3, J)  -  SEAT  TO  RAILS  DIRtCTIQN  COSINE  MATRIX 

C  UP  -  EJECTION  UIRtCTiON  FLAG 

C  +  1  =  UPWARD  WRT  THE  AIRPLANE 

C  -1  =  DOWNWARD  WRT  ThE  AIRPLANE 

C  FLAG  -  BLOCK  POSITION  SWITCH  (  0  =  ON  RAILS  I  =  OFF  KAILS  ) 

C 

L  DIMENSIONS  OF  CALLING  ARGUMENTS  . 

C 

DiMtNSlON  FSEAT (3 ) «FA1RP( 3) »  TSEAT (3) »TAIRP(3) »SKPR( 3) »  SRP A ( 3)  » 

.  XRAIL (3) ,ABS(B) ,SPR(2) ,DPG(2) ,UST ( 3 ) , WST ( 3 ) , UAP < 3 ) , 

.  W AP ( 3 ) *  DAt ( 3 » 3 ) ,DER(3,3),DRS(3t 3) ,DRA (3,3 ) ,DSA ( 3t 3) , 

.  DSE(3t3).DSK(3»b) 

c 

C  INTtkNAL  DIMENSIONS  . 

L 

DIMENSION  XbR ( 3) » USot (3) ,F0tFL(3) ,ARM(3), 

.  XbA(3) tUABE (3),RVBE (3)»RV6R(3)*TEMP13) 


rr  ni>r  rrrrro  cnrror.  pt*onc»r  ror  rnr 


comnon/cqvrly/inst 

CO MM CN/C l 0/1 RE AD  ,lMRITt,lOIAG 
DAT A  TEMP  /OtGtU/ 

calculation  of  slider  block  location  in  the  rail  axis  system  ... 

CALL  VECXYZ  (XBR.XBS, SRPR,0SR,2) 

ZBL  *  X8R ( 3 ) 

TEMPO)  =  XuR  ( 3 ) 

SET  FORCES  =  0  IF  BLOCK  OFF  RAILS  (EXCEPT  DURING  INITIALIZATION) 
FLAG  =•  0 

1F11NS1.EU.31.0R. INST. EU. 61)  GO  TO  20 
IF(XuR(3)*UP.GT.RAIll*UP)  GO  TO  20 
00  10  1*1.3 
FaEAT ( I ) *0 • 

FAlKPt I )*0. 

TSEaT(I)=0. 

TA1RP( 1 )*0 . 

10  CONTINUE 
FLAG  =1. 

GO  TO  SO 

COMPUTE  VELOCITY  OF  BLOCK  IN  EARTH  AXES  SYSTEM  . 

cO  CALL  VELXYZ  ( USBE , UST ,XBS ,WST »OSE ) 

coordinates  of  dLOCK  in  airplane  axes  system  . 

CALL  VECXYZ  C X8A,XdS,SRPA ,DSa ,2) 

VELOCITY  OF  BLOCK  POSITION  MRT  THE  AIRPLANE  IN  EARTH  AXES  SYSTEM 
CALL  VELXYZ  (UAUE.UAPtXbA.MAP.OAE) 

RELATIVE  VELOCITY  OF  bLOCK  WRT  THE  RAILS  IN  EARTH  AXES  SYSTEM  .. 
00  30  1*1.3 

30  RVBEd)  *  USBE(l)  -  GABt(l) 

RELATIVE  VELOCITY  OF  ULOCK  MRT  RAILS  IN  RaIL  AXES  SYSTEM  . 

CALL  MATMPY  (RVBR.OtR.RVBc, 3,3,1) 

FORCES  UN  SEAT  IN  RAIL  AXES  DUE  TO  RAIL  RIGIDITY  AND  DAMPING  ... 

FOEFL(l)  *  -SPR(l)  *  XbR(l)  -  DPG41)  *  RVbR(i) 

F0eFL(2)  *  — SPR12 )  *  XBR( 2 )  -  DPG(2)  *  RVBR(2) 

FRVEL  *  SI GN( AM1N1 (AuS(RVBR(3)),1.0) , RVBR ( 3 ) ) 

FDEFH3)  =  -FRICT*SmRT  (FDEFL  (1) **2«-F0EFL  (2  ) **2  )*FRVEL 

FORCES  ON  SEAT  IN  SEAT  AXIS  SYSTEM  . 

CALL  MATMPY  ( FSEAT .DRS.FOEFL ,3,3,1) 

FORCES  ON  AIRPLANE  IN  AIRPLANE  AXIS  SYSTEM  . 


or o  r*  r> r  r»on 


c 

00  40  1-1,3 

40  FDEFL(l) =--FDEFL  ( I ) 

CALL  MATMPY  ( FAIRP , DR A, FDEF L,3 , 3, 1 ) 

AIRPLANE  MOMENT  ARM  . 

CALL  VECXYZ  (ARM, TtMP, XRAIl,0kA,2I 

MOMtNTS  ON  SEAT  . 

CALL  CRSPRO  (T3£AT,XBS,FSEAT) 

MOMENTS  ON  AIRPLANE  . 

CALL  CRSPRO  (TA1RP, ARM, FAaRP) 

C 

30  RETURN 
ENO 
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SobROuTlNE  BRI0L2  (FAR, 

.  APX,XPCOO,  PTl »  PT2 ) 

THIS  ROUTINE  CALCULATES  THE  FORCE  APPLICATION  POINT  OF  A  FORCE 
APPLIED  TO  A  TWO  STRAND  BRIDLE. 

*****  BR10L2  OUTPUTS  ***** 

FaP(3  >  -  X,Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  FORCE  APPLICATION  POINT  (FT) 

*****  BRIOL2  INPUTS  ***** 

APXI3)  -  X,Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  BRIDLE  APX  (FT) 

XPCOO(B)  -  X,  Y,Z  DECELERATED  OBJECT  BOOY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  PARACHUTE  (FT) 

PT1 (3 )  -  X,  Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIOLE  ATTACHMENT  POINT  ONE  (FT) 

PT2IS)  -  X,Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  TWO  (FT) 

DIMENSION  FAP ( 3 ) ,APX( 3) ,PT1(3 ) .PT2I3) ,XPCDO(3 ) 

DIMENSION  DELA1(3) ,UELA2(3) .GCN43 ) ,Xl (3 ) ,DC3I (3 ) »XIN( 3 )» 

.  APXT (3) y01FF(3) tUVl (3) 

CALCULATE  The  DIRECTION  cosines  of  THE  NORMAL  TO  VECTORS  APX, PTl 
AND  APA,PT2  . 

Oii  10  1=1,3 

OfcLAlU)  =  PT11I)  -  APXU) 

10  Dt LA 2 ( I )  =  PT2(I)  -  APX(l) 

CALL  CRSPRD  (DCN,DELA1,0ELA2) 

RN  =  SuRT  ( DCN  ( 1 )  **2  ♦  DCN(2  )  **2  *  DCN(3)**2  ) 

DO  20  1=1,3 

20  DCN(I)  =  DCN( 1 )/RN 

calculaTh  the  normal  from  apx  to  vector  pti,pt2  . 

CALL  LINDST  C XI , R AI ,0C3I , PTl , PT2 , APX ) 

C 

C  CALCULATE  THE  UNIT  VECTOR  FROM  XPCDO  TO  PTl  . 

C 

DU  bO  1=1,3 

30  D1FMI)  =  PTl(I)  -  XPCOO(i) 

C 

RESULT  =  SURT(DIFFU)**2+0IFF(2)**2*DIFF(3)**2) 

C 

DU  40  1=1,3 

40  UVUIl  =  D1FF1D/REJU4.T 
C 
C 

C  CALCULATE  THE  LOCATION  OF  THt  BRIDLE  CONFLUENCE  POINT  . 

C 

PHI  =  ARTAN2  (  DCN ( 1 ) *UVi ( 1 ) ♦DCN( 2 )*UV1 ( 2 ) ♦  DCN) 3 ) *UV1 ( 3 ) , 
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.  -OC3l(l)*UVl{lH-OC31(2)*UVl(2)*DC3I(3)*UVl(3)  )) 

SIMPHl  =  SlN(PHl) 

COSPHl  =  COS(PHI) 

DU  30  1=1,3 

50  AP XT  (II  =  XI  ( 1 )  ♦  RAI  *  (  — 0C3  1(11  *C0SPH  I  ♦  OCNU  )  *S  INPHI  > 

C 

C  CALCULATE  THt  UNIT  VECTOR  ANO  MAGNITUDE  OF  THE  NORMAL  FROM 

L  THE  OKI L)Lt  CONFLUENCE  POINT  TO  VECTOR  PT1,PT2 . 

C 

CALL  LINO ST  (X1,RA1,DC31,PT1,PT2,APXT) 

CALCULATE  THE  UNIT  VECTOR  FROM  XPCDO  TO  APXT  . 

00  60  1=1,3 

50  01 FF  ( 1 )  =  APXT(l)  -  XPCuOdi 

RESULT  =  SQRT(GIFF(1)**2*D1FFC2)**2«-DIFF(3)**2> 

00  70  1=1,3 

70  uvim  =  diff(  d/result 
dot  the  parachute  line  unit  vector  onto  DC3i  . 

CALL  OUTPRD  (COSINE, Ui~»I,UVl, 3) 

DETERMINE  THE  MAGNITUDE  UF  THE  VECTOR  FROM  THE  CONFLUENCE  POINT 
TO  VECTOR  PT 1 »PT2  ALONG  THE  LINE  FORCE  UNIT  VECTOR  . 

IF (COSINE. Nt.O.)  R1  =  RAI/CQSINE 

calculate  The  intersection  of  the  parachute  line  force  vector 

WITH  VEC10R  PT1,PT2  . 

00  bO  1=1,3 

bG  X  INI 1 )  =  APXT ( 1 )  ♦  R1  *  UV1I1I 

OETtRMlNE  THE  FORCE  APPLICATION  POINT  . 

TtST  =  (XlN(i»-PTl(in*(PI2(l)-PTl(l)  >*(XIN(2I-PT1( 2ii* 

.  ( PT2 ( 2 )— PTl ( 2 )  )  ♦(  XlN(3i-PTl<3) »*( PT2 ( 3)-PTl ( 3 I) 

lF(TEST.LE.O)  GO  TO  120 

RUN  =  SQRT((XIN(1I-PT1(1) >**2+(XlN(2)-PTl(2) )**2+ 

.  (XIN(3)-PT1(3>)**2) 

R12  =  SmRT  ( CPT2( 11— PTl(l) )**2  ♦  ( PT2 ( 2 J-PT1 < 2 ) >**2  ♦ 

.  (PT2(3I-PT1(3))**2  > 

IFIR12-KliN.GE.Ji  GO  TO  1U0 
C 

00  90  1=1,3 
9u  FAP< 1 )  =  PT2(I  ) 

GO  TO  140 
C 

lJO  DO  lio  1=1,3 
110  FAP(l)  =  XIN(I) 

GO  TO  140 

L 

=20  00  i3C  1=1,3 

130  FAP( 1 )  =  PTl(I) 
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subroutine  bridl3  (far, 

.  APX,UV » XPCDO »PT1, PT2*PT3»XI) 

ROUTINE  FOR  COMPUTING  1 He  FuRCfc  APPLICATION  POINT  FOR  A  BRIDLE 
WITH  THRkt  FLEXIBLE  LINeS 


*****  BRI0L3  OUTPUTS  ***** 


FAP(3)  -  X  ,Y  ,2  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  FORCE  APPLICATION  POINT  (FT) 


*****  oRIOLB  INPUTS  ***** 


APX( 3 )  - 

UV (3)  - 

XPCbQ ( 3 ) 

PTK3)  - 

PT2( 3 )  - 

PT3(3I  - 

Xi(3)  - 


X , Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  BRIDLE  APEX  (FT) 

PARACHUTE  LINE  UNIT  VECTOR 

-  X , Y, Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITON  VECTOR 
OF  THE  PARACHUTc  (FT) 

X, Y , Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  ONE  (FT) 

X,Y»Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  TWO  (FT) 

X , Y ,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  THREE  (FT) 

X  ,  Y,  2  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  INTERSECTION  OF  THE  BRIDLE  ATTACHMENT  POINTS  PLANE 
WITH  THE  PARACHUTE  LINE  FORCE  VECTOR  (FT) 


DIMENSION  FAP(3),APA(3),UV(3) , PT I ( 3) »PT2(3),PT3(3) , XI ( 3 ) , 
.  XPCDO (3 ) 

DIMENSION  XN123 (3 ) , DCI23( 3) , XNI23 ( 3), DC 123 (3) ,XN213(3) , 

.  DC213 (3 ),XN 113(3), 0CII3(3), XN31 2(3) , DC3 1 2 ( 3 ) , 

.  XNI12(3)  ,QCil2(3) 

COMPUTE  THE  INTERSECTION  OF  THE  NORMAL  FROM  POINT  1  TO 
VECTOR  2,3  . 


CALL  LiNOST  ( XN 123 ,0, 0C123 , PT 2,PT3 ,PT 1 ) 

COMPUTE  THE  INTERSECTION  OF  THt  NORMAL  FROM  T Ht  FORCE-PLANE 
INTERSECTION  TO  VECTOR  2,3  . 

CALL  LINDST  ( XNI23 ,0, 0C123* PT 2 ,PT3 ,X I ) 

-  TEST  FOR  COMPRESSION  IN  LINE  1  - 

TEST  =  DC 12 3 ( 1)*UC 123(1)  ♦  0C123( 2 )*0CI23 ( 2 )  ♦ 

.  UC 1 23 ( 3 ) *0C 1 23 ( 3 ) 

IF  (TEST)  10,10, 2U 

LINE  1  UNDER  COMPRESSION  -  COMPUTE  THE  FORCE  APPLICATION 
POINT  LYING  ON  VECTOR  c,3  ...... 


10  CALL  BKIUL2  ( FAP, APX, XPCDO, PT2.PT3 ) 

GO  TO  BO 
C 

C  COMPUTE  THE  NORMAL  FROM  POINT  2  TO  VECTOR  1,3 
C 
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20  CALL  L1N0ST  tXN213,0, 0L213.PT 1,PT3 ,PT2  ) 

COMPUTE  THE  NORMAL  FROM  THt  FORCfc-PLANE  INTERSECTION  TO 
VECTOR  1,3  . 

CALL  LiNDST  ( XNI 13 ,0, DCI13,PT 1 ,PT3 . XI > 

-  TEST  FOR  COMPRtSSlON  IN  LINfc  2  - 

TfcSl  =  DC2 13 ( 1 )*0C113 ( 1 )  +  0C2 13 < 2 ) *DCI 13 C 2 )  ♦ 

.  DC213t3)*0Cil3(3> 

1F(TEST)  30,30,40 

LlNc  2  UNDER  COMPRESSION  -  COMPUTE  THE  FORCE  APPLICATION 
POINT  LYING  ON  VECTOR  1,3  . 

30  CALL  6R1UL2  ( FAP, APX, XPCOO, PT 1 , PT3 I 
GO  TO  bO 

COMPUTE  The  NORMAL  FROM  POINT  3  TO  VECTOR  1,2  . 

40  CALL  LINDST  ( XN31 2,G,0C31e ,PT 1,PT2 ,PT3 > 

COMPuIE  THE  NORMAL  FROM  THc  FORCE-PLANE  INTERSECTION  TO 
VECTOR  1,2  . 

CALL  LINDST  (XNI 12 , 0,  uCI12  ,  PT  1  ,PT2  »XI  } 

-  test  for  compression  in  LINE  3  - 

TEST  =  0C312(  l)*0Cii2m  ♦  QC312(2 l*QCI  12121  ♦ 

.  OC312( 3) *DC112 (3) 

IF  (TEST)  50,50,60 

LINE  3  UNDER  COMPRESSION  -  COMPOTE  THE  FORCE  APPLICATION 
POINT  LYING  ON  VECTOR  1,2  . 

50  CALL  faRI0L2  (FAP, APX, XPCOO, PT1.PT2) 

GO  TO  bO 

-  ALL  THREE  LINES  IN  TENSION  - 

60  DU  TO  1=1,3 
TO  FAP( 1)  =  XI (i ) 

L 

bO  RETURN 
END 
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SUbROUT 1NE  bR 1DL4  (FaP, 

APX,UV,XPCD0,AP1,AP2  ,AP3,AP4,XI ) 

C 

C  THIS  ROUTINt  DETERMINES  THt  THREE  BRIDLE  ATT ACHMENT  POINTS 
C  TO  BE  USED  IN  dRI0L3 
C 

C  *****  6RIUL4  OUTPUTS  ***** 

C 

C  FAPt 3 )  -  X,Y,Z  DECfcLERATtO  OBJtCT  BODY  AXIS  LINEAR  POSITION  VECTOR 

C  OF  THE  FORCE  APPLICATION  POINT  C FT ) 

C 

C  *****  BRI0L4  INPUIS  ***** 

C 

t  APX13)  - 

C 

C  UV(*)  - 

C  XPCUJC3) 

C 

C  AP 1 ( 3  )  - 

c 

C  AP2I3)  - 

C 

C  AP3(3)  - 

c 

C  AP1*  (  3  »  - 

t 

C  XI (3 )  - 

C 

c 
c 

DIMENSION  FAP (3) , aPX(31 ,UV(3) , API C 3 ) , AP2( 3 ) , AP3 (3 ) , APA(4 ) , 

.  XI (3 ) *  XPCuO( 3 ) 

DIMENSION  XN12413 ) ,DCI24(3> ,XN124(.>) ,DCI24(3) 

C 

C  THE  FOUR  ATTACHMENT  POINTS  OF  THE  BRIDLE  ARE  DESIGNATED  AS  1,2, 3, 4 
C  (NUMBERED  CONSECUTIVELY  IN  A  COUNTER  CLOCKWISE  DIRECTION) 

C  LET  POINTS  2  AND  4  DEFINE  A  LINE  AND  CHECK  TO  SEE  WHICH  SIDE  OF 

c  the  line  the  force-plane  intersection  lies  on 

c 

CALL  LINDST  IXN124,DC 124, AP2, AP4,AP1 ) 

CALL  LINOS!  ( XNI 24,DC1Z4, AP2 , AP4, XI ) 

c 

TEST  =  0C124(  1 )  *DC  124  ( 1)+DC124I2)*DCI24(2)  +  DC  1241  3 )  *DC  124(3) 
IF(TEST.GE.O)  DO  TO  10 
C 

CALL  bRlUL3  (FAP,APX,UV,XPCD0,AP2,AP3,AP4,XI ) 

GO  TO  20 
C 

1U  CALL  ORIDL3  (FAP,APX,UV,XPCUU,aP1,AP2,AP4,XI ) 

c 

20  RETURN 
END 


x,y,z  decelerated  object  body  axis  linear  position  vector 

OF  The  BRIDLE  APEX  (FT) 

parachute  line  force  unit  vector 

-  X, Y,2  decelerated  object  body  axis  linear  position  vector 

OF  THE  PARACHUTE  (FT) 

X*Y,Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POoITON  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  ONE  (FT) 

X , Y, Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  TWO  (FT) 

X , Y, Z  DECELERATED  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRIDLE  ATTACHMENT  POINT  THREE  (FT) 

X , Y, Z  DECtLERATEO  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  BRlOLt  ATTACHMENT  POINT  FOUR  (FT) 

X,Y,Z  OECELbRaTEO  OBJECT  BODY  AXIS  LINEAR  POSITION  VECTOR 
OF  THE  INTERSECTION  OF  THE  BRIDLE  ATTACHMENT  POINTS  PLANE 
WITH  THE  PARACHUTE  LINE  FORCE  VECTOR  (FT) 
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C 


SObRUOT  lNE  CAO  <CF,EF,EFDUTf  I EF.EL.ELDOT,  I  tL  ,  WK  ,  WK.DOT  ,  IWK, 

•  W  6 1  MB  DOT  f  1  W  b  , 

.  FL,lCP,TlME,C£X,CSK,CI,C,VI,PAtTF,CVH,CBP,Cl, 

.  CV»C2,TItTHA,6*BXP,PT ,R  ,T  YPE • 

.  1 SO,FSO,T  Ot ) 

CUMPuTE  3  THE  PERFORMANCE  OF  A  CLOSED  TELESCOPING  TUBE 

ACTING  AGAINST  A  LOAD  IN  ANT  G  ENVIRONMENT  AND  USING  A  BURNING 

PROPtLLANT  AS  A  SOURLt  OF  tNtRGY  ...... 


DIMENSION  TCP  (  S ) 

COMMON  /  COVRLY  /  INST 

COMMUN  /  L 10  /  IK t AD, iWRl TE • I OIAG 

DATA  P 102  /  1.570b0  / 


PRINT  ..ATAPoLT  IGNITION  STATEMcNT 


lF(FL.Nt.O)  GO  TO  20 

1FUNST.EQ.26)  WRUE(o,10)  TYPE, TIME 
10  FGkMAT(/5X,Ab,*  I ON IT  ION  AT  TIMc  =  *,F10.A,*  SEC*/) 
FL  =  1.0 

calculate  the  catapult  force  decay  after  stripoff  .... 

20  IF (Fl.Ew.L.)  GU  TO  AO 
TASO  =  TIME  *  ISO 
1FUAS0.LT. TOE)  GU  TO  30 
FL  =  3. 

CF  -  0 
GU  TO  ISO 

>0  IF (TDE.NE.O)  CF  -  FSO  *  CUSITaSO/TDE  *  PI02) 

GU  TO  ISO 

COMPUTE  PROPELLANT  CONSUMMED  . 


AO 


Na=T  CP (2 ) 

W  =  Cl  ♦  TBLU1  (WB»TCP (A) ,TCP (NA*A) ,1,-NA ) 

HAS  ALL  THE  PROPELLANT  ouRNED  . 

IF(C.GE.W)  GU  TO  SO 


ALL  BURNED 


W  =  C 


COMPUTE  INTERNAL  VOLUME  . 

SO  VOL  =  VI  ♦  PA  *  CEX  *  12. 

C 

C  DON'T  LEI  THE  VOLUME  DECREASE  BELOW  INITIAL  VALUE 
C 

lF(VGL.GE.Vi)  GU  TO  60 
L 

VOL  =  VI 

i, 

60  IF(W.NE.O.O)  GO  TU  70 
TEMP  =  TF 


449 


ore  or  r*  r*  r*  o  o  o  o  00000000000  of*r  o  o  o  r  r  o  r  o  o  oro 


GO  TO  bO 
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WHEN  STRIPOFF  OCCURS  . 

lF(CEX.LT.CSR)  GO  TO  if>G 

Ft.  =  2. 

EFDUT  =  G. 

ELDOl  =  G. 

MKOOT  =  0. 

WoDCT  -  0. 

TSO  =  TIMt 
rSO  =  CF 

PR1NI  CATAPULT  STRIPOFF  STATEMENT 

IFUNST.fcQ.Zb)  WRITE  ( 6t  14G  )  TYPfc.TIME 
14G  FuRMaT (/5X»Ab»*  STR1P0FF  AT  TIME  =  *»F10.4»*  SEC*/) 
C 

ISO  RETURN 
END 


\ 
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SUBROUTINE  Ct  (UCP,UDCP,lULP,XCP,XDCP,IXCP,WCP,WDCP,lWCP, 

.  ECP  , EDCP , I ECP, SCD,  SCDDQT ,  1SCD, SC, SCOOT > ISC » 

•  kjX  ,GY,GZ*DR,F  Ali  »TAO  »WT  ,S,B«C,CIN,CX,CY,  CZ  » 

.  Cl , CM, CN, ALPHA, BtTA,VMACH,Q, ALT, SEP, 

•  SW , PC, CEW,CMI , CPI , CLP , CMQ, CNR ,XSP ,FAB , TAB , FDQ, 

.  TDO,FAU,TaU,TRM) 

c 

4  ***************  Ct  QOIPulS  *************** 

c 

C  LINtAR  VELOCITIES  -  BODY  AXIS 
C 

C  UCP( 3)  -  X, Y , Z  LINtAR  VELOCITY  VECTOR  OF  THE  CREWPERSON  (FT/SEC) 

C  UUCP (3)  -  X, Y, Z  LINEAR  VELOCITY  RATE  VECTOR  OF  THE  CREWPERSON 

C  1  FT/SEC/SEC) 

C  IUCPC3)  -  INTEGERATiON  CONTROL 

w 

C  LINEAR  POSITIONS  -  EARTH  SYSTEM 
C 

C  ACP ( 3 )  -  X, Y,Z  LINEAR  POSITION  VECTOR  OF  THE  CREWPERSON  (FT) 

C  XDCP (3 )  -  X , Y , Z  LINEAR  POSITION  RATE  VECTOR  OF  THE  CREWPERSON  (FT/SEC) 

C  IXCP (3)  -  INTEGRATION  CONTROL 

<L 

L  ANGULAR  VELOCITIES  -  BODY  AXIS 
C 

C  WCP ( 3 )  -  X,Y ,Z  ANGULAR  VELOCITY  COMPONENTS  -  P,Q»R  (OEG/sECI 

C  WDCP ( 3 )  -  X, Y ,Z  ANGULAR  VELOCITY  RATE  COMPONENTS  ( DEG/ SEC/SEC ) 

C  IWCP ( 3 )  -  INTEGRATION  CONTROL 

L 

L  EULER  ANGLES  —  EAkTH  TO  BODY  —  YAW, PITCH, ROLL 
C 

L  ECP( 3 )  -  EARTH  TO  CREWPERSON  EULER  ANGLES  (DEG) 

C  EOCP(^)  -  EULER  ANGLE  RATES  ( DtG/SEC ) 

C  lECP(3)  -  INTEGRATION  CONTROL 

c 

L  SPINAL  COMPRESSION  VELOCITY  . 

C 

C  SCO  -  SPINAL  COMPRESSION  VELOCITY  (FT/SEC) 

C  SCDuOI  -  SPINAL  COMPRESSION  VELOCITY  RATE  (FT/SEC/SEC) 

C  I SCO  -  INTEGRATION  CONTROL 

c 

L  SPINAL  COMPRESSION  . 

C 

C  SC  SPINAL  COMPRESSION  (FT) 

(L  SCOOT  -  SPINAL  COMPRESSION  KATE  (FT/SEC) 

C  ISC  -  INTEGRATION  CONTROL 

c 

L  GA  -  CREWPERSON  SYSTEM  X-AXIS  LOAD  FACTOR  (G) 

C  GY  CREWPERSON  SYSTEM  Y-AXIS  LOAD  FACTOR  (G) 

C  GZ  CREWPERSON  SYSTEM  Z-AXIS  LOAD  FACTOR  (G) 

L  DR  DYNAMIC  RESPONSE 

C 

C  FAD( 3)  -  X , Y »Z  BODY  AXIS  FORCE  COMPONENTS  OF  THE  AERODYNAMIC 

FORCE  ACTING  ON  THE  CREWPERSON  (LB) 

TaG(S)  -  X, Y , Z  BODY  AXIS  TORQUE  COMPONENTS  OF  THE  AERODYNAMIC 
TORWUE  ACTING  ON  The  CREWPERSON  (FT-LB) 

W1  -  WEIGHT  OF  THE  CREWPERSON  CORRESPONDING  TO  HIS 

PERCENTILE  PLUS  CLOTHING  AND  EQUIPMENT  (LB) 

S  -  AERODYNAMIC  KcFtRcNCE  AREA  (FT**2) 
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C 

L 

C 

c 

w 

c 

c 

c 

c 

c 

c 

L 

C 

C 

C 

c 


B  -  AERODYNAMIC  LATERAL  REFERENCE  LENGTH  (FT) 

C  -  AERODYNAMIC  LONGITUDINAL  REFERENCE  LENGTH  ( FT ) 

C1N( 4)  -  CREWPtRSON  INERTIA  PROPERTIES  TO  o£  USED  AFTER 

SEaT/CREwPEkSON  REPARATION 
CIN(I)  =  IXX 
CINI2)  =  IYY 
CIN (3)  =  III 
C1M4)  =  1XZ 

CX  -  X  AXIS  AtRODYNAMIC  FORCE  COEFFICIENT 

CY  -  Y  AXIS  AERODYNAMIC  FORCE  COEFFICIENT 

Cl  -l  AXIS  AERODYNAMIC  FORCE  COEFFICIENT 

CL  -  AERODYNAMIC  ROLLING  MOMENT  COEFFICIENT 

CM  -  AERODYNAMIC  PITCHING  MOMENT  COEFFICIENT 

CN  -  AERODYNAMIC  YAWING  MOMENT  COEFFICIENT 

ALPHA  -  CRtWPtRSON  aNgLe  OF  ATTACK  (DEG ) 

BETA  -  CRtWPERSON  SIOtSLIP  ANGLE  (DEG) 

VMACH  -  CREWPERSON  MACH  NUMBER 

Q  -  CREWPERSON  DYNAMIC  PRESSURE  (LB/FT**2) 

ALT  -  CREWPERSON  ALTITUDE  (FT) 

StP  -  StAT/CREWPtRSON  SEPARATION  FLAG  FOR  OUTPUT 

(1  »  SEPARATION) 


***************  CE  INPUTS  *************** 


sw 

PC 

CEW 

CMI ( 3 ) 

CP  K  3) 

CLP 
CMw 
CNR 
XSPl 3) 

F Afa(  3 ) 

TAo( 3 ) 

FDOl 3 ) 

TDG(  3 ) 

FAU( 3 ) 

TaU( 3) 

TRMI 3) 


FLAG  FOR  SEAT/CREWPERSON  SEPARATION 
(1  =  StPARATlON) 

CRtWPtRSON  PERCtNTlLt 

WEIGHT  OF  CRtWPERSON  CLOTHING  AND  EQUIPMENT  (LB) 

CREWPERSON  MOMENT  OF  INERTIA  VECTOR  -  IXX,IYY,1ZZ 
(  SLUG— FT*<-2) 

CREWPERSON  PRODUCT  OF  INERTIA  VECTOR  -  IXY ,1X2,1 YZ 
( SLUG— FT**2) 

AERODYNAMIC  ROLL  DAMPING  COEFFICIENT  (1/DEG) 

AERODYNAMIC  PITCH  DAMPING  COEFFICIENT  ( 1/DEG) 

AERODYNAMIC  YAW  DAMPING  COEFFICIENT  (l/DtG) 

X , Y , Z  CREWPERSON  SYSTtM  POSITION  VECTOR  OF  THE  BASE 
OF  THE  SPINE  (FT) 

X , Y, Z  BODY  AXIS  tORCE  COMPONENTS  ACTING  ON  THE  CREWPERSON 
FROM  THE  RESTRAINT  COMPONENT  (LB) 

X, Y,2  BODY  AXIS  TORyUE  COMPONENTS  ACTING  ON  THt  CREWPERSON 
FROM  THE  RtSTAlNT  COMPONENT  (FT-LB) 

X , Y , Z  BODY  AXIS  FORCE  COMPONENTS  ACTING  ON  THE  CREWPERSON 

from  the  parachute  line  component  (lb> 

X, Y,Z  BODY  AXIS  TORQUE  COMPONENTS  ACTING  ON  THE  CREWPERSON 
FROM  THE  PARACHUTE  LINE  COMPONENT  (LB) 

X, Y,2  BODY  AXIS  FORCE  COMPONENTS  ACTING  ON  THE  CREWPERSON 
-  AN  AUXILIARY  INPUT  -  (LB) 

x,y,z  body  axis  torque  components  acting  on  the  crewperson 

-  AN  AUXILIARY  INPUT  -  (FT-LB) 

X , Y , Z  PARENT  BOO Y  EARTH  VELOCITY  COMPONENTS 
TO  DETtRMINc  POSITION  RATES  DURING  TRIM  (FT/SEC) 


DIMENSIONS  OF  CALLING  ARGUMENTS 


DIMENSION  UCP(3) ,00CP(3),IUCP<3) , XCP ( 3 ) ,XOCP( 3) , IXCP13), 
WCP( 3) ,WDCP(3), IWCP (3) , tCP ( 3 ) ,EOCP(3), ItCP(3), 

FAD (3 ) ,1 AO( 3 ) ,C IN (4 ) , 

CM1(3) ,CP1(3),XSP(3 ) ,FAB ( 3 )  ,TAB ( 3 ) , FDQ( 3) , TDOt 3 ) , 
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.  F  AU  (  3 ) , T  AU ( 3 ) , TRM ( 3 ) 

C 

C  INTERNAL  DIMENSIONS  . 

C 

DIMENSION  TiNtK(3.j),T EMP l(  3) , TEMP  2 1 3 ) , TEMP3( 3  )  , 

.  UW6(3> ,UW(3) ,U0(3),ECPIR(3) ,WCPIR<3) ,EDCPIRC3> . 

.  WGCP 1K( 3 ) , OEC13 , 3 )  , uCE( 3,3),TBLCP(LQ) , TBLCPWT C 10) . 

.  TBLlXXt 10),TBLIYY(iG),TbLl22( 10 ) , TBLI X2 ( 10 ) .TBLS110) , 

.  1 BLB (1G),TBLC(1G),F(3),T(3) 

C 

COMMON  /  C ICC AL  /  ICC AL 
COMMON  /  COVRLY  /  INST 
COMMON  /  CTIME  /  TIME 
COMMON  /  CSSFLG  /  SSFLG 
COMMON  /  CIO  /  1READ, IWRITE» ID1AG 
C 

DATA  RPOtOPK  /  .01745329,57. 29578  / 

OaTa  GRaV  /32.174/ 

C 

DaTa  T faLCP  /3.  ,  15  •  ,25.  ,35. , 45 •  ,55  •  ,65*  ,75*  , B5.  ,93  •/ 

DATA  TBLCPWT  /132. 3, 142.7, 149. 1,154. 3, 159. 3, 164. 6, 170. 5, 

.  177.4,166.5,200.9/ 

DATA  1 oLlXX  /10. 53, LI. 51, 12.10,12.56,13.00,13.47,14.00, 

.  14.64,15.51,16.97/ 

DATA  TBL1YY  / 10. 36, 11 .57, 12 . 16, 12 .61 , 13 .04 , 13. 50, 14. 0 1 , 

.  14.63 ,16.46, 16.92/ 

OATA  TBLI22  /1.68 , 1.78 ,1.B3, 1 .90, 1 .95,2.01 ,2 .07 ,2. 14, 

.  2.24,2.41/ 

DATA  TdL1X2  /— .52  ,— .51 ,— .50  ,—.50,  “*.49  ,—. 4a  ,  —  .48  ,“.47  ,—.47  ,  —  .46/ 
DATA  IBLS  //. 46, 7. fa5,B. 09, fa. 30, 6. 49, 6.67, 8. 67,9.10, 9. 36,9.85/ 
DATA  T bLB  /i. 38, 1.41, 1.44, 1.46, l.4B,l.50,1.52,1.54,1.57,1.62/ 
OATA  TBLC  /5. 43, 5. 55, 5. 63, 3. 69, 5. 74, 5. 79, 5. 84, 5. 89, 5. 97, 6. 10/ 

******* ****** *************** 

*****  1N1T 1AL12AT ION  ***** 

*** ************************* 

lFCICCAL.Nt.l)  GO  TO  20 

CX  =  CY  =  Cl  =  CL  =  CM  =  CN  =  ALPHA  *  BETA  =  VMACH  =  G 
Q  =  SEP  -  0 
DO  10  1=1,3 

TRM(I)  =  FAU(I)  =  TAOU)  =  0 
IF (XSPI 1 )  .EQ.  U. 99999)  XSP1I)  =  0 
IF(FaBII)  .EQ.  0.99999)  FAB  ( I )  =  0 
IF (TABII)  .EQ.  0.99999)  TAB(I>  =  0 
IF(FUOIl)  .EQ.  0.99999)  FDO(i)  =  0 
1F(TD0(1)  .EQ.  0.99999)  TOO(l)  =  0 
IF(FAUU)  .EQ.  0.99999)  FAJtl)  =  0 
lF(TAOCl)  .EQ.  0.99999)  TAUll)  =  0 
10  CONTINUE 

IFCSW  .EQ.  0.99999)  Sw  =  0 

WT  =  ToLUl(PC,TbLCP,ToLCPWT, 1,-10)  ♦  CEW 

S  =  TBLU1(PC,TblLP,TbLS, 1,-10) 

B  =  TbLUHPC,TbLCP,TBLB, 1,-10) 

C  =  TBLUl(PC,TBLCP, TBLC, 1,-10) 

*****  CALCULATE  THE  CREWPtRSON  INERTIAS  FOR  USE  AFTER 
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orr  r>  r  c  i**  r<  r>romr>or*  r  r  •  r  rrrro  nr 


SEaT/CREWPERSON  SEPARTION 

ClNtl)  =  T  BLUl ( PC  , TBLCP,TBL1XX, 1»— 10 ) 

C1N( 2)  =  TBLUllPC, TbLCP.TOL 1YY, 1,-10) 

CiN (3)  =  1 bLUl ( PC  , ToLCP,TBL122, 1,  — 10 ) 

C1N(4)  -  TaLUl(PCtTbLCP,T3LlXZ, 1,-10) 

//////✓/✓//////////////////////✓///////////////////////// 

CHANGE  PROM  DEGREES  TO  RADIANS  ...... 

i  DO  30  1*1,3 

ECPlR(l)  =  ECP(I)  *  RPO 
I  rtCPlR(l)  *  MCP11)  *  RPD 

COMPUTE  the  direction  cosine  matrices  . 

CALL  01RC0S  ( DEC,ECPIR) 

CALL  TRANS  (0CE,0£C,3,3) 

ESTABLISH  POSITIVE  ALTITUDE  . 

ALT  =  -  XCP (3) 

BYPASS  The  AERODYNAMIC  CALCULATIONS  UP  TO  S£ AT/C RE tf PERSON 
SEPARATION  . 

IF (SW.EU.l • )  GO  TO  40 

SET  UP  THE  SEATED  CREWPEKSON  INtRTIA  TENSOR  . 

T  INERT  1,  1 )  *  CMIU) 

TINERU.2)  =  -CPI(l) 

T INER (1,3)  =  -CPI (2) 

TINER(2,1)  =  —CPI ( 1) 

T1NER(2,2>  =  CMIC2I 
T 1NER(2,3)  =  -CP 1(3) 

TINtR(3» 1 )  *  —CPI (2) 

TINE R(3,2)  =  -CPI (31 
TINER(3,3)  *  CM1 (3) 

GO  TO  110 

iEl  uP  THE  EXTENDED  CReWPERSON  INERTIA  TENSOR . 

I  T INER (1,1)  =  CIN(1) 

T 1NER( 1,2)  =  0 
T1N£R(1,3)  =  —CIN  <  4) 

T INeRI 2, 1 )  =  0 
T INERT  2, 2)  =  C1N( 2 ) 

T INERT  2,3)  =  0 
T INER (3, 1 )  =  — C IN  ( 4  ) 

T1NER(3, 2)  =  0 
TlNERt3,3)  =  CIN13) 

MK1TE  ThE  SEAT/CREMPERSON  SEPakATIJN  MESSAGE  . 

IFISEP.Ew. 1. )  GO  TO  60 
SEP  *  1. 
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ppppppppp  r  P  o  p  p  p  p  t'  r  p  p  p  r>  p  ppppppppo 


1FTINST . kQ  .26  )  WRITE (6*50)  TIME 

50  F0RMAT(/5X,*S£AT/CRtWPERSjN  SEPARATION  AT  TIME  =  *,F10.4,*  SEC*/) 

OBTAIN  SPtEO  OF  SOUND,  AlK  DENSITY*  ANO  WIND  VELOCITY  . 

CALL  ATMOS  IVS,RHU, ALT, UW, 0*0,0) 

PUT  The  WIND  INTO  BODY  AXIS  . 

CALL  MATMPY  (UW8,0tL,UW, 3,3,1) 

A Du  The  WIND  VELOCITY  TO  THE  CREWPERSON  VELOCITY  . 

00  90  1=1, 3 

i  UGU)  =  UCPU)  -  UWB(I) 

CALCULATt  THE  AERO  VARIABLES  . 

IF (OOt I) . EQ.O.  .AND.  00(3). EQ.U.)  U0(1)  =  .01 
ALPHA  =  AR  T AN2 ( UO ( 3 ) , UO (1)1  *  DPR 
CALL  DQTPRD  (VBAR2*U0,U0,3) 

VoAR  =  SORT ( VoAR2  ) 

BETA  =  AS1N{ UO (2)/V8AR)  *  DPR 
VMACH  =  VoAR/VS 

COMPOTE  DYNAMIC  PReSSURt  X  REFERENCE  AREA  . 

0  =  .5  *  RHO  *  VbAK2 
QAC  =  Q  *  S 

CALCULATt  THE  AERODYNAMIC  COEFFICIENTS  . 

TBLALPH  =  ALPHA 

IF (ALPHA.  LT.  0)  TBLALPH  =  ALPHA  ♦  360.0 
TBLdETa  =  ABS ( BET  A  ) 

CALL  CEAERO  (CX,CY,CZ, CL, CM, CN, TBLALPH, TbLBETA, PC) 

CY  =  CY  *  S IGN( 1 . ,BLT A) 

CL  =  -CL  *  SIGN11.,BETA) 

CN  =  -CN  *  SIUN(l.,oETA) 

ADL  DAMPING  TERMS  FOR  AN  AIRSPEED  GREATER  THAT  .1  FT/SEC  . 

IF ( VbAR  .LE.  0.1)  GO  TO  100 

Cu2V  =  C/l VBaR*VBAR) 

BU2V  *  B/( VBAR* VBAR) 

ADD  ROLL  DAMPING  . 

CL  =  CL  *  CLP  *  WCP(l)  *  BOEV 

AuO  PITCH  DAMPING  . 

CM  =  CM  *  CMO  *  WCP ( 2 )  *  COaV 

ADD  YAW  DAMPING  . 
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nnorr  o  nro  r  r«  o  o  c  f-<  r  n  r  r  f  r  c  one  eon  non  or- 


C 


CN  *  CN  ♦  CNR  *  WCP (3 )  *  b02V 
**********  AERODYNAMIC  FORCES  ********** 


100  FA0(1)  =  QAC  *  CX 

FAD(  2 )  =  QAC  *  CY 
FAD(3)  =  UAC  *  CZ 

**********  AERODYNAMIC  torques  ********** 

TAO(l)  =  QAC  *  b  *  CL 
TA0<2)  =  QAC  *  C  *  CM 
TAD(3 )  =  QAC  *  a  *  CN 

*****  SUM  FORCE*  (INCLUDING  GRAVITY  >  AND  MOMENTS  ***** 

110  00  120  1=1 y  3 

F(i)  =  FAo  ( 1 )  ♦  FOO(U  ♦  FAU(I)  ♦  FAD(I)  ♦  WT  *  DEC(I,3) 
.  *  SSFLG 

T( I )  =  T  AO ( 1 )  ♦  TDO(I)  *  TAU(I)  *  TAD(l) 

120  CONT INufc 

CALCULATE  THE  DYNAMIC  RESPUNSE  . 

DR  =  SC  *  bb.977 

**************************************** 

*****  ANGULAR  VELOCITY  EQUATIONS  ***** 
**************************************** 


calculate  tiner  x  wcpir  . 

CALL  MAlMPY  (TEMPI, TINER, WCPIR, 3, 3,1) 

calculate  wcpir  x  (tiner  *  wcpir)  . 

CALL  CRSPRD  (TEMP2.WCPIR, TEMPI) 

SUM  TERMS  TO  OBTAIN  TU1AL  TORQUE  . 

DO  130  1=1,3 

130  T tMP 311)  =  T ( 1 )  -  TEMP2(I) 

CALCULATE  WDCPIR  . 

CALL  LUEQS  (TINER, TEMPI, TfcMP3,TEMP2, 3, 1,3 ,3,3,1. E-14, 1ERR0R ) 

IF ( I  ERROR. NE .1 )  GO  TO  150 
WRIT t( 6,140) 

140  FURMAK*  INERTIA  MATRIX  OF  CReWPERSON  IS  SINGULAR. .  .RUN  STOPPED*) 
STOP 

150  Du  16U  1=1,5 

160  IF(IWCP( I) . NE.O |  WDCPIR ( I )  =  TEMP  1(1) 

*********************************** 

*****  cULeR  ANGLc  equations  ***** 
*********************************** 
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rr  rrrrr'f*n  r  r  r  f ■  r  o  r  o  orr  rnrnr  prr  non  rnrrrrp 


CALL  fcARATE  ( TEMP  1 ,WCPIR, E CPI R) 

00  170  1=1,3 

*70  1F(1ECP(  I )  .NE.O)  LOCPlR(l)  =  TEMP  1(1) 

♦♦♦♦♦**♦*-*********♦*♦♦♦=*♦*=*»♦♦**»*♦»* 

*****  LINcAR  VELOCITY  EQUATIONS  ***** 
♦*♦*»♦*♦»**»»♦♦»♦♦*♦»♦*♦♦♦»♦♦»♦*♦»»*«♦♦ 

CALCULATE  THE  CORIOLIS  ACCELERATION  (WCPIR  X  UCP )  . 

CAUL  CRSPRO  ( TEMP  1, WCPIR, UCP ) 

CALCULATE  F/M  . 

CPMASS  *  WT/GRAV 
DU  IdO  1=1,3 

160  TEMP  2 ( I )  =  F( I ) /CPMASS 

SUM  the  acceleration  components  . 

DO  190  1=1,3 

190  IF ( 1 UCP l 1 ) .Nt.O )  UUCP ( 1 )  =  TEMP2 ( I )  -  TEMPl(I) 

=====  CALCULATE  THE  LOAD  FACTuRS  ===== 

DETERMINE  WDCPIR  X  XSP  . 

Call  crsprd  (Tempi, wdcpir,xsp) 

DETERMINE  WCPIR  X  (WCPIR  X  XSP)  . 

CALL  CRSPRD  ( TEMP 2 ,WCP1R,XSP ) 

CALL  CRSPRD  (1EMP3, WCPIR, TcMP2) 

DETERMINE  THE  LOAD  FACTORS  . 

OX  =  — (F ( 1 )/CPMASS  ♦  TEMPI ( 1)  ♦  TEMP3 ( 1 ) J/GRAV 
GY  =  — (F (2 ) /CPMASS  ♦  T EMP 1(2)  *  TEMP3 (2) )/GRAV 
G2  =  - ( F ( 3  ) /CPMASS  T EMP  1(3)  ♦  TEMP3(3)  )/GRAV 

*************************************** 

*****  LINEAR  POSITION  EQUATIONS  ***** 
*************************************** 

CALL  MATMPY  ( TEMPI ,DCE ,UCP , 3 , 3, 1 ) 

OU  2 00  1=1,3 

200  IFUXCP(i).NE.O)  XDCP(I)  =TEMPl(i) 

****************************************** 

*****  SPINAL  COMPRESSION  EQUATIONS  ***** 
****************************************** 

SPINAL  COMPRESSION  VEL0C1IY  EQUATION  . 

IF(ISCO.NE.O)  SCDDuT  =  -23.6992  *  SCO  -  2796.41  *  SC 
.  *  GRAV  *  G L 

SPINAL  COMPRESSION  EQUATION  . 


rrr  r»  r>  r 


c 


IF(ISC.NE.O)  SCOOT  =  SCO 


OcK INC  TRIM,  SOoTRaCT  TRIM  VELOCITY  FROM  POSITION  RATES 

1FUNST.NE.31)  GO  TO  220 
00  210  l«i » 3 

210  IF(IXCPd)  .Nfc.O)  XDCPCI)  =  XDCP(I)  -  TRM(I) 

*****  CHANGE  FROM  RADIANS  TO  DEGREES  ***** 

220  DO  230  1  =  1 *3 

EOCP(l)  =  EDCPIR(I)  *  OPR 
230  WQCP11I  =  MOCPlR(l)  *  OPR 

RETURN 

ENO 


f 
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subroutine  ceaero  (cx  »cy»cz.,cl,cm,cn,  ALPHA,BtTA»pc ) 

DIMENSION  TCX(8,13,2) ,TCY (6,13,2) ,TCZ(8,13,2) , 

1  CL (8,13.2) ,T CM (3, 13, 2) , T CN (8,13,2), 

T8ET  A ( 6 ) , I ALPHA ( 13 ) ,TPC(2) 


DATA  ( ( ( TCX( 1 , J 

,K),  1=1 

,  8  )  ,  J  =  1 

* 

-0.7063,-0.7063 

,-0.6642 

,-0.6099 

*— 0 .6176,-0.6176 

,-0.6182 

,-0.5560 

* 

-0.3174,-0.3174 

,-0.3244 

,-0.3173 

* 

0.0191,  0.0191 

,  0.0617 

,  0.0879 

* 

0.2640,  0.2640 

,  0.3473 

,  0.2383 

* 

0.‘»882,  0 .4o82 

,  0.5048 

,  0.4907 

* 

0.5664,  0.5864 

,  0.6006 

,  0.5669 

♦ 

0.5250,  0.5250 

,  0.51o7 

,  0.5363 

* 

0.3631,  0.3631 

,  0.2653 

,  0.2458 

* 

O.0376,  0.0378 

,  U .0303 

,  G.C113 

* 

-0.3097,-0.3097 

,-0.3329 

,-0.3566 

* 

-0.6183,-0.6183 

,-0.6155 

,-0.5990 

* 

-0  .7063,-0.7063 

,  —  0.6o4<: 

,-0.6099 

DATA  (UTCX(I,J 

,K>,  1=1 

,8),  J=1 

*• 

-0.7327,-0.7327 

,-G.o697 

,— 0 . 61 26 

* 

-0.6037,-0.6037 

,-0.5943 

,-0.5071 

A 

-0.2935,-0.29^3 

,-0.3034 

,— 0 .2810 

* 

0.0130,  0.0150 

,  0.02^4 

,  O.Q8c9 

* 

0.2640,  0.2640 

,  0 . 29  16 

,  0.2494 

* 

0.503b,  0.503b 

,  0.5025 

,  0.4278 

* 

0.6700,  0.o700 

,  0.6197 

,  0.5526 

* 

0.3ol4,  0.5614 

,  0.3364 

,  0.5682 

6 

0.2693,  0.2693 

,  0.0530 

,  0.2388 

♦ 

0.0059,  0.0059 

,  0.0110 

,-0.0123 

* 

—0.3350, —0.3350 

,-0.3443 

,-0.3122 

* 

-0 .6469, —0.6409 

,—0.6366 

,-0.5762 

* 

-0.7327,-0.7327 

,-0.6697 

,— 0 . 6l  26 

OaTa  ( t ITCY ( I , J 

,K),  1=1 

,8),  J=1 

♦ 

0.  ,  0.0559 

,-0.1501 

,-0.4278 

* 

0.  ,  0.0273 

,-0.1408 

,—0.4061 

* 

0.  ,-0.0095 

,-0.1570 

,-0.3584 

♦ 

0.  ,—0.0230 

,-0.1ob9 

,-0.3046 

♦ 

0 .  ,0 .006 1 

, — 0. 144b 

,-0.3696 

* 

0.  ,—0.0652 

,-0.2422 

,— 0 .4668 

♦ 

0.  ,  0.0242 

,-0.2139 

, -0.5061 

♦ 

0 .  , —0 • 040 1 

,-0.2845 

, — 0 .4625 

* 

0.  ,-0.0886 

,-0.2043 

,-0.4672 

♦ 

0.  ,-0.0842 

,-0.2098 

,-0.4341 

* 

0.  ,—0.0822 

,  —0.2640 

,-0.4925 

♦ 

0.  ,-0.0080 

,-0.1922 

,-0.4524 

♦ 

0.  ,  0.0559 

,-0.1501 

,  —0 . 42  7  6 

DATA  (((TCYII.W 

,  K ) ,  1 =1 

,  8  )  ,  J  =  1 

0.  ,—0.0446 

,-0.i359 

,-0.3641 

0.  ,-0.0t»2a 

,-0. 1411 

,-u. 3290 

8.  ,-0.0153 

,-0.l3o8 

,-0.2974 

0.  ,-0.0293 

,-0.1388 

,  —0 • 2666 

0.  , -0.Ci.21 

,-0.1999 

,  —0 . 36  36 

0.  , — 0.067b 

,  —0.  <.762 

,-0.4458 

0.  ,-0.0236 

, -0.2042 

,-0.4314 

13),  K=l,l)  / 

-0.5004,-0.3017,-0.0729,-0.0898, 
-0.4141,-0.2508,-0.0961,-0.0696, 
-0.2471,-0.1553,-0.1235,-0.0898, 
-0.0199,-0.0454,-0.0534,-0.0898, 
0.2129,  0.0899,-0.0035,-0.0696, 
0.3730,  0.1918,  0.0516,-0.0898, 
0.4485,  0.2593,  0.0663,-0.0898, 
0.4208,  0.2283,  0.0359,-0.0698, 
0.1569,  0.0462,— 0.0635,— 0.0898, 
-0.0147,-0.0384,-0.0424,-0.0898, 
-0.2923,-0.1970,-0.0743,-0.0696, 
-0.5208,-0.3282,-0.0960,-0.0698, 
-0.5004,-0.3017,-0.0729,-0.0898/ 

13),  K=2*  2)  / 

-0.4624,-0.3180,-0.0855,-0.0376, 
-0.3653,-0.2623,-0.0980,-0.0376, 
-0.2507,-0.1197,-0.0730,-0.0376, 
0.0387,  0.0369,-0.0377,-0.0376, 
0.1968,  0.0811,  0.0115,-0.0376, 
0.3519,  0.2251,  0.1094,-0.0376, 
0.4423,  0.3026,  0.1535,-0.0376, 
0.4418,  0.2942,  0. 1685, -0.0376, 
0.1663,  0.1055,  0.0356,-0.0376, 
-0.0100,-0.0067,-0.0367,-0.0376, 
-0. 2478,-0. 1431, -0.03o9, -0.0376, 
-0.4643,-0.2956,-0.2037,-0.0378, 
-0.4624 ,-0.3160, -0.0655, -0.0376/ 

13),  K=l,l)  / 

-0.6545,-0.7659,-0.7094,-0.6854, 
— O. 6172,-0. 6603 , —0 .6828,-0. 6854 , 
—0.5500, —0 .6365,-0.6548, —0 . o85  4 , 
-0.4497, -0.552 1,-0. 6 162,-0.0854, 
-0.5458,-0.6565,-0.6287,-0.6854, 
—0 .6133 , — 0 .68  74, —0 . 6840 , —0 .68  5  4, 
-0.6741,-0.7252,-0.7153,-0.6854, 
— 0 • o 174, —0 .7046,— 0. 7335, —0.6854 , 
-0.6197,-0.7370,-0.7753,-0.6854, 
-0. 6554, -0.6032,-0. 7823, -0.6b54, 
-0.7022,-0.7839,-0.7906,-0.6854, 
-0.6568,-0.7583,-0.7586,-0.6854, 
-0.6545,-0.7659,-0.7094,-0.6854/ 

13),  K=2,2)  / 

-0. 5237, -O. 61 b5, -0.5995, -0.5636, 
-0.5048,-0.5731,-0.5610,-0.5836, 
-0.4289,-0.5629,-0.5607,-0. 5836, 
-0.4045,-0.4979,-0.5535,-0.5836, 
-0.4897,-0.5510,-0.5734,-0.5836, 
-0.5490,-0.6332,-0.5846,-0. 5836, 
-0.5635,-0.6022,-0.6160,-0. 5836, 


*  0.  ,-0.0144,-0.2190,-0.3961,-0.5249,-0.6027,-0.6123,-0.5836, 

*  0.  ,  0.0006,-0.1797,-0.3591,-0.5151,-0.5870,-0.5874,-0.5836, 

*  0.  ,—0.0260, —0.12il,— 0.3306,— 0.5298,— 0.5897,— 0.6420,— 0.5836, 

*  0.  ,-0.0164,-0.1769,-0.4301,-0.5883,-0.6462,-0.6588,-0.5836, 

*  0.  ,  0.0102,-0.1165,-0.3813,-0.5472,-0.6291,-0.6089,-0.5836, 

*  0.  ,-0.0446, -0.1359, -0.3641, -0.5237, -0.6165,-0.5995,-0.5836/ 

C 

DATA  (<(TCZ(1,J,K),  1=1,8),  J=1,13),  K= 1,1)  / 

*-o. 0230, -0.0230, -0.01 77, -0.0375, -0.0600, -0.0599, -0.0627, -0.0422, 
*-0.1042, -0.1042, -0.1011, -0.09 18,-0-.  0695, -0.1192, -0.0741, -0.0422, 
*-0.2552, -0.2552, -0.26 11, -0.22 22, -0.1591, -0.0801, -0.0605, -0.0422, 
*-0.2772,-0.2772,-0.2784,-0.2566,-0.2339,-0.1772,-0.0735,-0.0422, 
*-0.2844,-0.2844,-0.2632,-0.2797,-0.2245,-0.1709,-0.0846,-0.0422, 
*-0.1 581, -0.1581, -0.16 Vo, -0.1522, -0.1390, -0.0891, -0.0466, -0.0422, 

*  0.0156,  0.0156,  0.0191,  0.0100,  0.0033 ,-0.0322,-0.0610,-0.0422, 

*  0.0796,  0.0796,  0.0715,  0.U578,  0.0419,  0.0071,-0.0247,-0.0422, 

*  0.1269,  0.1269,  0.1873,  0.1424,  0.0976,  0.0237,-0.0435,-0.0422, 

*  0.2862,  0.2862,  0.^6*.8»  0.2000,  0.1228,  0.0192,-0.0618,-0.0423, 

*  0 . 200 £. ,  0.2002,  0.1863,  0.1504,  0 .0733  ,-0.0083,-0.0988,-0. 0422 , 

*  0.1124,  0.1124,  0.1093,  0.0612,  0.0088,-0.0330,-0.0720,-0.0422, 

*-0.0230,-0.0230,-0.0177,-0.0375,-0.0600,-0.0599,-0.0627,-0.0422/ 

C 

OATA  l ( ( T CZ (1,J,K),  1=1,8),  J=l,13),  K=2,2)  / 

*  0.0471,  0.0471,  0.0202,-0.0124,-0.0694,-0.0836,-0.0684,-0.0327, 
*-0.0669,-0.0669,-0.0671,-0.0987,-0.0860,-0.1145,-0.0708,-0.0327, 
*-0.2314,-0.2314,-0.2186,-0.1931,-0.1657,-0.1251,-0.0754,-0.0327, 
*-0.2429,-0.2429,-0.2506,-0.2488,-0.2234,-0.1389,-0.1007,-0.0327, 
*-0.2743, -0.2743, -0.2768, -0.2557, -0.2092, -0.1461, -0.0640, -0.0327, 
*-0.1847,-0.1847,-0.1736,-0.2008,-0.1823,-0.1144,-0.0792,-0.0327, 
*-0.0049, -0.0049, -0.0344, -0.0633, -0.0657, -0.0574, -0.0351, -0.0327, 

*  0.1996,  0.1996,  0.1536,  0.1157,  0.0469,  0.0527,  0.0660,  0.0327, 

*  0.1680,  0.1680,  0.1749,  0.1368,  0.0995,  0.0483,-0.0098,-0.0327, 

*  0.2679,  0.2679,  0.2453,  0.2004,  0.1273,  0.0304,  0.0169,-0.0327, 

*  0.1896,  0.1896,  0.1931,  U.1472,  0.0684,  0.0024,-0.0611,-0.0327, 

*  0.0763,  0.0763,  0.0649,  0.0273,-0.0258,-0.0601,-0.0621,-0.0327, 

*  0.0471,  0.0471,  0.020i, -0.0124, -0.0694, -0.0836, -0.0684,-0.0327/ 
C 

Data  ((<TCL(1,J,K),  1=1,8),  0  =  1,13),  K=l,l)  / 

*  0.  ,  0.0051,  0.0171,  0.0343,  0.0272,  0.0189,  0.0021,-0.0025, 

*  0.  ,  0.0121,  0.0395,  O.OSuO,  0.0430,  0.0381,  0.0173,-0.0024, 

*  0.  ,  0.0007,  0.0172,  0.0372,  0.0396,  0.0412,  0.0339,-0.0024, 

*  0.  ,-0.0016,  0.0070,  0.0204,  0.0467,  0.0540,  0.0405,-0.0024, 

*  0.  ,  0.0112,  0.0083,  0.0145,  0.0478,  0.0593,  0.0410,-0.0025, 

*  0.  ,  0.0024,  0.0037,  0.0224,  0.0311,  0.0417,  0.0367,-0.0025, 

*  0.  ,-0.0012,-0.0012,  0.0070,  0.0176,-0.0151,  0.0029,-0.0024, 

*  0.  ,-0.0123, -0.0186, -0.0125, -0.0044, -0.0139, -0.0064, -0.0024, 

*  0.  ,  0.0003, -0.0163, -0.0336, -0.0389, -0.0367, -0.0216,-0. 0024, 

*  0.  ,  0.0034,-0.0066,-0.0272,-0.0409,-0.0327,-0.0184, -0.0024, 

*  0.  ,  0.0004,-0.0036,-0.0132,-0.0186,-0.0301,-0.0215,-0.0024, 

*  0.  ,  0.0061,  0.01*0,  0.0159,  0.0081 ,-0.0022, -0. 0127,-0. 002*, 

*  0.  ,  0.0051,  0.0171,  0.0343,  0.0272,  0.0189,  0.0021,-0.0025/ 

C 

DATA  U(TCU1,J,K),  1=1,8),  0  =  1,13),  K=2,2)  / 

*  0.  ,  0.0184,  0.0292,  0.0310,  0.0275,  0.0158,  0.0066,  0.0080, 

*  0.  ,  0.0332,  0.0417,  0.0564,  0.0543,  0.0350,  0.0158,  0.0079, 

*  0.  ,  0.0138,  0.0229,  0.0339,  0.0*40,  0.0498,  0.0336,  0.0079, 

*  O.  ,  0.0039,  0.0112,  0.0208,  0.0464,  0.0549,  0.0377,  0.0080, 

*  0.  ,  0.00*3,  0.0099,  0.0242,  0.0473,  0.0537,  0.0309,  0.0080, 
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c 


c 


L 


L 


0.  ,  0.0132, 

C .0030 

,  0.0134 

0 •  ,-0.0077, 

—0.0000 

,— 0.0051 

0.  ,— 0.0006, 

-0.0064 

,-0.0113 

0.  , -0.0064, 

-0.0309 

,-0.0251 

0.  ,-0.0021, 

-0.0123 

,-0.0268 

0.  ,  0.0032, 

-0 .0003 

,-0.0099 

0  .  ,0.0 137 , 

0.0156 

,  0.0133 

0.  ,  O.OlbHt 

0.0292 

,  0.0310 

DATA  tt(TCM(I,J, 

K),  1  =  1 

,  6 ) ,  J  =  1 

* 

0.0179,  0.0179, 

0.0127 

,  0.0117 

*-0.0291,-0.0291, 

-0.0114 

,  0.0018 

*• 

-0.0066,-0.0066, 

0.0017 

,  0.0098 

* 

0 .0  149,  0.0149, 

0.0119 

,  0.6062 

* 

0.0530,  0.0530, 

0.0466 

,  0.0473 

* 

0.057a,  0.0576, 

0.O556 

,  0 . 05 1 5 

* 

O.Ul5^>,  0.0155, 

0.0161 

,  0.0117 

*-0.0576.-0.0578, 

-0.0471 

,-0.0470 

*— 0 .0b^i,-0 .0622 , 

-0.0615 

,-0.0567 

*— 0 .0224,-0 .0224, 

-0.01b5 

,-0.0096 

♦ 

0.0306,  0*0306 , 

0.0306 

,  0.0303 

♦ 

0.0436,  0.0438, 

0.0408 

,  0.0355 

* 

0.0179,  0.0179, 

0.0127 

,  0.0117 

DATA  ( ( (1CM( 1 , J, 

K.)  »  1=1 

,6),  J=1 

* 

-O.0234,— 0 .0234 , 

-0.0191 

,-0.0135 

*• 

-0.0401,-0 .040 1 , 

-0.0406 

,-0.0236 

*-0.0*32,-0.0232, 

-0.00  76 

,-0.0120 

♦ 

0.0065,  u.0085. 

0.0079 

,  0.0039 

* 

0.0425,  0.0425, 

0.0444 

,  0.04*1 

* 

0.0543,  0.0543, 

0.0489 

,  0.0408 

* 

0.0249,  O .0249 , 

0.0199 

,  0.0165 

*—0.0104,— 0.0104, 

-0.Ol*0 

,-0.01o4 

*-0.0441,-0.0441, 

-0.0415 

,-0.0269 

*— 0.01*5,-0.0125, 

-0.0101 

,-0.0058 

* 

0.U832,  0.0332, 

0 .0270 

,  0.0185 

♦ 

0.024b,  0.024b, 

0.0<.4l 

,  0.0164 

♦ 

-0.0234,-0.0234, 

-0.0191 

,-0.v>135 

DATA  (((TCN(1,J, 

K),  1=1 

,  8  )  ,  8=1 

0.  ,-0.0034, 

-0.0031 

,-0.0120 

0 .  ,0 .0006 , 

-0.0026 

,-0.0143 

0.  ,  0.0006, 

0.0010 

,-0.0113 

0.  ,—0.0030, 

-0.0025 

,-0.0014 

0.  ,-0.0003, 

-0.0004 

,-0.0091 

0.  ,-0.0057, 

-0.0112 

,-0.0104 

0.  •  0.0025, 

-0.0010 

,-0.0070 

0.  ,  0.0023, 

-0.0072 

,-0.0072 

0.  ,  0.0204, 

-0.0052 

,-0.0060 

0.  ,-0.0041, 

-0.0C94 

, -0.0121 

0.  ,-0.0005, 

-0.0067 

,-0.0175 

0.  ,-0.0034, 

-0.0076 

,-0.0165 

0.  ,-0.0034, 

— 0.0031 

,-0.0120 

DATA  ( ( ( TCNi I , J , 

K),  1=1 

,6),  J=1 

♦ 

0 •  »— UaOObbf 

-0.0014 

,-0.0012 

% 

0 •  t  0 • 001b  t 

0.0015 

,  0.U005 

♦ 

0 •  #-0*0033f 

-0.0052 

,-0.0035 

0.0267,  0.0390,-0.0171,  0.0080, 
-0.0091,  0.0001,-0.0007,  0.0079, 
-0.0079,-0.0045,  0.0127,  0.0079, 
-0.0267,-0.0265,-0.0086,  0.0079, 
-0.0267,-0.0215,-0.0097,  0.0080, 
-0.0151,  0.0169,  0.0032,  0.0075, 
0. 0059, -0.0024,-0. 0069,  0.0080, 
0.0275,  0.0158,  0.0068,  0.0080/ 

13),  K=l, 1 )  / 

0.0107,  0.0025,-0.0022,-0.0065, 
-0.0017,-0.0023,-0.0033,-0.0065, 
0.0029,-0.0058,-0.0042,-0.0065, 
0.0169,  0.0058,-0.0009,-0.0065, 
0.0352,  0.0255,  0.0056,-0.0065, 
0.0433,  0.0301,  0.0097,-0.0065, 
0.0114,-0.0151,-0.0063,-0.0065, 
-0.0216,-0.0203,-0.0085,-0.0065, 
-0.0435,-0.0228,-0.0086,-0.0065, 
-0.0129 ,-0.00 66, -0.0048, -0.0065, 
0.0237,  0.0177,  0.0036,-0.0065, 
0.0254,  0.0185,  0.0109,-0.0065, 
0.0107,  0.0025,-0.0022,-0.0065/ 

13),  K=2,2)  / 

-0  .0097,-0.0029,-0.0006,-0.0004, 
-0.0189,-0.0079,  0.0045,-0.0004, 
-0.0092,-0.0017,-0.0011,-0.0004, 
0.0066,  0.0043,  0.0002,-0.0004, 
0.0351,  0.0192,  0.0026,-0.0004, 
0.0316,  0.0512,-0.0082,-0.0004, 
0.0107,-0.0049,-0.0056,-0.0004, 
-0.0119,-0.0175,-0.0100,-0.0004, 
-0.0193,-0.0151,-0.0054,-0.0004, 
-0.0081,-0.0044,  0.0012,-0.0004, 
0.0124,  0.0062,  0.0046,-0.0004, 
0.0136,  0.0070,  0.0063,-0.0004, 
-0.0097,-0.0029,-0.0008,-0.0004/ 

13),  K=l» 1 )  / 

-0.0252,-0.0340,-0.0257,-0.0123, 
-0.0242,-0.0344,-0.0232,-0.0123, 
-0.0167,-0.0132,-0.0148,-0.0123, 
-0.0156,-0.0155,-0.0081,-0.0123, 
-0.0063,-0.0106,-0.0099,-0.0123, 
-0.0071,-0.0061,-0.0077,-0.0123, 
-0.0036,-0.0096,-0.0131,-0.0123, 
-0. 0101 ,-0.00oa, -0.0090, -0.0 123, 
-0. 0 135, -0.01b6, -0.0171, -0.0123, 
-0.0210,-0.0231,-0.0236,-0.0123, 
-0.0233,-0.0205,-0.0200,-0.0123, 
-0.0272,-0.0304,-0.0250,-0.0123, 
-0.0252,-0.0340,-0.0257,-0.0123/ 

13),  K=2,2)  / 

-0.0058,-0.0116,-0.0098,-0.0012, 
-0.0047,-0.0116,-0.0070,-0.0012, 
—0 .0057 , — 0 . 0060 , — 0 • 0063 , —0.0012 , 
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*  G.  »  0.0024,-0.0014, -0.0005, -0.0044, -0.0049, -0.0006, 

*  J.  ,  0.0056,  0.0036,-0.0032,-0.0003,  0.0005,  0.0012, 

*  0.  ,  0.0040,  0.0005,-0.0027,-0.0014,  0.0016,  0.0132, 

*  0.  ,  0.0051,  0.0013,  0.0002,  0.0017,  0.0028,  0.0001, 

*  0.  ,  0.0000,-0.0024,-0.0026,-0.0036,-0.0019,  0.0000, 

*  0.  ,-O.OGiO,  0.0068,-0.0003,  0.0006,-0.0027,-0.0001, 

*  0.  ,-0.0010,  0.0004,-0.0016,— 0.0062,-0.0061,-0.0031, 

*  0.  ,  0.0013,  O.OOOU, -0.0071, -0.0108,-0. 0076, -0.0055, 

*  0.  ,-0.0036, -0.0004,-6.0036, -0.0116, -0.0109, -0.0113, 

*  0.  ,-0.0066,-0.0014,-0.0012,-0.0058,-0.0116,-0.0098, 

C 

DATA  (T8£TA( I), 1=1, 8)  /  0., 5. ,15. ,30. ,45. ,60. ,75. ,90.  / 
C 

DATA  ( I ALPHA (1), 1=1, 13)  /  0. • 30. , 60 . , 90 . , 120. , 150. , 160 . , 
.  240 . , 270 . , j 00 . , 330. , 3o0 .  / 

C 

DATA  ( TPC (11,1=1,2)  /  5. ,75.  / 


C 


*****  CAlCuLaT fc  THfc  AERU  COtFPIClfcMTi  ***** 

LX  =  TbLU3(bETA, ALPHA, PC, T6ETA,TALPHA, TPC, TCX, 
.  1,1,1,8,13,2,8,13,2) 

CY  =  TBLU3I8ETA, ALPHA, PC, T8ETA.TALPHA, TPC, TCY, 
.  1,1,1,6,13,2,8,13,2) 

CL  ~  T6LU3(B£TA, ALPHA, PC, T8ETA,TALPHA, TPC, TCZ, 
.  1,1,1,8,13,2,6,13,2) 

CL  *  T6LU3(oETA, ALPHA, PC, T6ETA,TALPHA, TPC, TCL, 
.  1,1,1,6,13,2,8,13,2) 

CM  *  T8LU3(8ETA, ALPHA, PC, TbtTA,TALPHA, TPC, TCM, 
.  1,1,1,6,13,2,8,13,2) 

CN  *  T6LU3 (BETA, ALPHA, PC*  TbETA, TALPHA , TPC , TCN , 
.  1,1,1,6,13,2,6,13,2) 

RE  TORN 
END 


-0.0012, 

-0.0012, 

-0.0012, 

-0.0012, 

-0.0012, 

-0.0012, 

-0.0012, 

-0.0012, 

-0.0012, 

-0.0012/ 


210., 
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SUbROUT INt  COSUlRUNUtDCDS) 
alHtNSION  ANG (  3  )  »  DCUSOt  3  ) 

CALCULATES  THE  EULER  ANGLES  EROM  THE  DIRECTION  COSINE  MATRIX 

ANG(  11  -  ARTAN2<DCGS<l»2l»0C0S<ltin 
C 

ANG< 2)  *  ASINl-DCOSU,3)> 

C 

ANG 13)  =  ARTAN2(OCOS<2,3) ,DC0S(3,3)) 

C 

RETURN 

END 


AD-A096  597  B0EIN6  MILITARY  AIRPLANE  CO  SEATTLE  WA  F/G  1/3 

ANALYSIS  OF  EJECTION  SEAT  STABILITY  USING  EASY  PROGRAM t  VOLUME  — ETC<U> 
SEP  80  CL  WEST*  B  R  UMMEL»  R  F  YURC2YK  F33615-79-C-3407 

UNCLASSIFIED  AFWAL-TR-80-3014-VOL-1  NL 


e-jr 


FUNCT  ION  0fcT3(Dil»012»Di3»u21  ,022  » D2 3*031, D32*D33) 


FUNCTION  FOR  COMPUlINb  T Ht  VALUE  OF  A  3 

Ot 13  =  Oil* (022*033— 023*032 ) —0 12*<  021*033' 
1  ♦  013*(021*032-022*U31) 
re  turn 
END 


X  3  DETERMINENT 
023*0311 
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c  subroutine  disect  —  cntry  point  of  compass  prog  picker 


lOfcNT 

Pli-KER 

LIST 

L  tK|GiU 

ENTRY 

OISEC I 

USE 

/WORD/ 

1TKCOP 

bSS 

4 

1 SQUAD 

bSS 

1 

USE 

0 

OIStCT 

bSS 

1 

sai 

-15 

S82 

3 

SA2 

1SQUAO 

MX3 

-15 

LOOP 

BX7 

— X2+X3 

6X6 

— X7 

SA6 

ITROOP+B2 

LX2 

X2tBl 

S62 

62— 1 

GE 

62, LOUP 

EQ 

OISECT 

END 
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SUBR OOl 1NE  eARATE  ( tADOT ,WbOOt,tULEK) 

DIMENSION  EAOOT (3 ) t MBOOY(  » E  ULER ( 3 ) 

DATA  PSiO  /  0  / 

CALCULATES  THE  EULER  ANGLE  RATeS  FROM  THE  BODY  AXIS  ANGULAR 
VELOCITY  VECTOR 

»****»«*•«•****  calling  seuuence  *************** 

**  OUTPUT  ** 

EAOOT ( 3 )  -  EULER  ANULE  RATES  —  YAR .PITCH, ROLL  —  (RAO/SECt 

*»  INPUT  *» 

MoOOYtS)  -  X.Y.Z  BODY  AXIS  ANGULAR  VELOCITY  COMPONENTS  (RAD/SEC) 
EULER t3)  -  EULeR  ANGES  (HAD) 

CP  =  COS( EULER12 )  ) 

SP  -  SINt  EULER  12)  ) 

CR  -  COS ( EULER ( 3 ) ) 

SR  =  SINt  EULERt  31) 

C 

EAOOTf 2)  -  WflOD Y ( 2 )  *CK  -  WBOOYt3)*SR 
IFtCP.NE.O.)  PSIO  =  f  WbOOY  t  2 ) *SR  «•  WBOOYt 3)*CR) /CP 
EALtOTtI)  a  PSIO 
EAOOT 13)  =  WBOOYtl)  ♦  PSID*SP 
C 

RETURN 

END 
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FUNCTION  FSW(A,B,C,0) 
L 


C  THIS  FUNCTION  IS  DESIGNED  AS  FOLLOWS  - 


L 

FSW 

-  6 

IF 

A 

IS 

less  than  zero 

C 

FSW 

-  C 

IF 

A 

IS 

equal  to  zero 

C 

FSW 

=  C 

IF 

A 

IS 

GREATER  THAN  ZERO 

C 


IF  ( A ) 

10.20*30 

10 

FSW=B 

GO  TO 

40 

20 

FSW=C 

GO  TO 

40 

30 

FSW=0 

40 

Rt TURN 

END 
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SUBROUTINE  LAG  (CSOOT, CSCOM, CSPOS ,CSTRM ,TCt T I  ME , TO ) 

RESPONSE  OF  A  FIRST  ORDER  LAG  FUNCTION  TO  A  CONTROL  SURFACE  STEP 
INPUT.  TO  MAY  BE  USED  TO  MECHANIZE  A  TIME  DELAY,  WITH  THE  CONTROL 

surface  remaining  at  its  trim  position  until  time  to. 

DEFINITION  OF  CALLING  ARGUMENTS  . 

CSOOT  -  CONTROL  SURFACE  RATE  (DEG/SEC >  -  OUTPUT  - 

CSCOM  -  CONTROL  SURFACE  COMMANDED  PQSITQN  (DEG) 

CSPOS  -  DEFLECTION  OF  THE  CONTROL  SURFACE  FROM  ITS 
TRIM  POSITION  (DEG) 

CSTRM  -  CONTROL  SURFACE  TRIM  POSITION  (DEG) 

TC  -  TIME  CONSTANT  (SEC) 

TIME  -  SIMULATION  TIME  (SEC) 

TO  -  TIME  DELAY  AFTER  WHICH  THE  CONTROL  SURFACE  RATE  IS 
CALCULATED  (SEC) 

IF (T IME— TO.GE.O )  GO  TO  ID 
CSOOT  =  0 
GO  TO  cO 

10  CSOOT  =  (CSCOM  -  (CSPQS*CSTRM) )/TC 


io  RETURN 


SUBROUTINE  PCittRQ 


(FLIFT»FDRAG» FMDOT «  SCT  » 
SN,XPC,UPC,TLS,OTItTDU,VOL(UVL, 

CT ,CNtCM,FD,6»STI,RFS, FLA,TLA,TEM) 


C 

L 

L 

L 

C 

L 

C 

c 

L 

L 

c 

c 

t 

c 

c 

L 

C 

C 

c 

c 

c 

c 

c 

c 

l 

L 

c 

c 

c 

c 

L 

C 

c 

c 

c 

c 

L 

L 

C 

C 

c 

C 

L 

C 

C 

C 

L 

L 


THIS  KUUTlNt  DtTtRMINtS  PARACHUTE  AERODYNAMIC  FORCES  ACTING 

the  parachute 


ON 


PCAfcRQ  OUTPUTS 


********** 


FLIFTC3J  -  X»Y ,Z  EARTH  SYSTEM  LIFT  COMPONENTS  ACTING  ON 
THE  PARACHUTE  (LB) 

FORAU(->»  “  X »  Y  »  Z  EARTH  SYSTEM  DRAG  COMPONENTS  ACTING  ON 
THE  PARACHUTE  (LB) 

FMOOK3)  -  X,Y,Z  EARTH  SYSTEM  MASS  ACQUISITION  FORCE 
COMPONENTS  ACT I No  ON  THE  PARACHUTE  (LB) 

SCT  -  COMPUTED  TANGENTIAL  DRAG  AREA  (FT**2) 

**********  PCAtRQ  INPUTS  ********** 


SN 


XPC ( 3 )  - 

UPC(3)  - 

TLS 

Oil 

TUG 

VOL 

UVL ( 3 )  - 
CTO)  - 

CN(3)  - 

CM (2 )  - 

FD 
6 

Sli 

RFS 

FLA 

TLA 

TEM 


FLAG  TO  INDICATE  AERODYNAMIC  CALCULATION  MODE 

1  =  FROM  PARACHUTE  LAUNCH  TO  L INESTRETCH 

2  =  DURING  INFLATION 

3  *  DURING  REEFING 

4  =  AFTER  REEFING 

5  =  PARACHUTt  INFLATED 

X,Y,Z  EARTH  SYSTEM  LINEAR  POSITION  VECTOR  OF  THE 
PARACHUTE  (FT) 

X»Y»Z  EARTH  SYSTEM  LINEAR  VELOCITY  VECTOR  OF  THE 
PAKACHUTc  (FT/SEC) 

TIME  AT  LINESTRETCH  (SEC) 

THE  TIME  DURATION  OF  PARACHUTE  CANOPY  INFlaTIuN  I 
REEFING  DURATION  (SEC) 

VOLUME  OF  THE  FILLED  CANOPY  (FT**3) 

parachute  line  unit  vector 

CONSTANTS  USED  in  THE  EQUATION  THAT  CALCULATES 
tangential  drag  area 

CONSTANTS  USEO  IN  THE  EQUATION  THAT  CALCULATES  THE 
NORMAL  DRAG  AREA 

CONSTANTS  USED  1NTHE  MACH  EFFECTS  EQUATION 
HAKE  TO  FREE  STRtAM  RATIO 

CONSTANT  USED  IN  THE  EQUATION  FOR  CALCULATING 
SCD  OF  THE  PARACHUTE 

inflated  parachute  drag  ARtA  (ft**e) 

PROOUCT  OF  RtFcRENCE  AREA  AND  TANGENT 
COEFFICItNT  HHEN  RtEFED  (FT**2) 

PARACHUTE  MOOE  FLAG 
5  =■  LINES  SEVERED 

PARACHUTt  LAUNCH  TIMt  /  LINE  SEVERING 
TIME  DURATION  FOR  PARACHUTE  EMERGENCt 
SEVERENCE  IStC) 


THE 


FORCE 


TIME  (SEC) 
/  LINE 


Calling  Sequence  dimensions 


DIMENSION  FLIFT(3).FDRAG(3),FM00T(3) , XPC( 3 ) ,UPC (3 ) , UVL { 3 ) . 
.  CT(3).CN(3)»CM(2) 

C 

C  INTERNAL  dimensions  . 

c 
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OlMtNslON  UO  ( 3 )  i  OH  (3)  ,TEMP1(3),TEMP2(3)  ,UV V ( 3  )  ,  UVL1 FT  (31 
C 

COMMON  /CTIME/  TIME 
COMMON  /CIO/  1REAU,1WRITE,1DIAG 
C 

DATA  P102  /  1.57060  / 

C 

L  ZlRQ  THt  MASS  ACQUISITION  FORCE  ...... 

C 

00  5  1=1,3 
5  FMOOT(l)  =  0 
C 

C  -  OETfcRMiNt  THt  AERO  PARAMETERS  - 

C 

call  ATMOS  (VS»RHQ,-XPCm,Urf, 0,0,0) 

UUll)  =  UPC(l)  -  UM( 1 ) 

UO 12 )  =  UPC ( 2 )  -  UM (2 ) 

U0(3)  =  UPC (3 )  -  UW ( 3  ) 

VbAR  =  SORT ( UO ( 1 ) **2>U0( 2 ) **2*U0(  3)**2 ) 

VMACH  =  VBAR/VS 
C 

C  -  CALCULATE  ALPHA  (THt  ANGLE  WHOSE  COSINE  IS  THE  CHUTc  - 

C  VtLQCIT Y  UNIT  VECTOR  DOTTED  ONTO  THE  LINE  UNIT  VECTOR 

C 

C  UETtRMINt  TmE  PARACHUTE  VELOCITY  UNIT  VECTOR  . 

C 

DO  10  1=1,3 

10  UVV(l)  a  UO ( I ) /VbAR 
L 

C  IF  THt  LINES  HAVE  BE  tN  SEVtRtu . 

C 

FACTOR  =  1. 

1 F ( FLA .Nt .5  . )  GO  TO  15 
IF (T  LA.tQ.O )  TLA  =  TIME 

FHFT(l)  =  FLIFT  (21  =  FL1FT  (3 )  =  ALPHA  =  S1NA  =  0 
COSA  *  1. 

delta  =  Tint  -  tla 

lMUtLTA.Gt.TEM)  GO  TJ  dO 
FACTOR  *  S IN ( DtLT A*PI 02/T tM ) 

UO  IU  bO 

DOT  the  VELOCITY  UNIT  VECTOR  ONTO  THt  LINE  UNIT  VECTOR  . 

L 

15  CALL  UOIPRO  (CALPHA,UVV,UVL,3) 

1 F ( A  bS ( LALPHA ).GE.1.0)  CALPHA  =  SIGN! I .0, CAL PH A) 

c 

ALPHA  =  ACOS(CALPHA) 

SlNA  &  SI N ( ALPHA ) 

COSA  =  COS (ALPHA) 

c 

C  -  CALCULATE  THt  MASS  ACQUISITION  FORCE  - 

C 

C  CALCULATE  THt  MASS  ACQUISITION  FORCE  IF  SW  =  2  OR  4  . 

L 

IF ( SW.NE .2 .  .AND.  SW.Nt.4.)  GO  TO  40 
C 

RHUS  =  RHO*(  ( l.«-.2*VMALH**2)**2.5) 

PCN1F  =  (  (  TlM£--ruU)-TLS)/UTl 


p  p  p  p  p  pri1  p  p  p  p  pppp  p  p  r  p  p  rppp  pppp>p 


PCNT  =  PCNTF 

IF  (PCNT. GT. 0.5)  PCNT  =  0.5 
DOTH  -  0.01*PCNT*VQL*kh0S/0T 1 
00  30  1=1,3 

30  FMUOT(I)  =  — DQTM*UG ( I ) 

************************************************ 

**  LOGIC  TO  CHOOSt  IHt  PROPER  EQUATIONS  ** 
************************************************ 

AO  GO  TO  (50,60,70,o0,&0),  SM 

-  EQUATIONS  USED  PRIOR  TO  LlNESTRETCH  - 

ANO  AFTER  THE  LINES  ARE  SEVERED 

iu  SCT  =  b  *  STI 
SCN  =  0.0 
GO  TO  90 

-  EQUATIONS  USED  WHEN  THE  CHUTE  IS  INFLATING  - 

CALCULATE  THE  MAKE  TO  FREE  STRtAM  RATIO  . 

t>U  FC  =  FD 

IF(VMACH.GT.l.O)  FC  =  ( 1 .0+ (CM( 1) ♦CM (  2)  *i  VMACH— 1 .0 ) ) * 

(VMACH-1.0) )*F0 

CALCULATE  THE  VARIABLES  USED  IN  DETERMINING  THE  NORMAL  AND  TANGENTIAL 
OKAG  AREAS  DURING  CHUTe  INFLATION  . 

SCI I A  =  STI  ♦  4(CT(3)*ALPHA»CT(2))*ALPHA+CTll))*ALPhA 
SCLLS  =  B  *  SCTIA 

SCI  =  SCOLS  ♦  ( SCT 1A— SCDLS ) ♦PCNTF *FC 

SCN  =  ((CN(3)*ALPHA*CN12) )*ALPHA+CNll))*ALPHA*PCNTF*FC 
GQ  TO  90 

-  EQUATIONS  USED  MmeN  IHt  CHUTE  IS  REEFED  - 

70  SCT  =  RFS 

SCN  =  0. 

GO  TO  90 

-  EQUATIONS  USED  MHEN  THE  CANOPY  IS  FILLED  - 

dO  sCT  =  STI  ♦  (  (  CT  (  3  )*ALPHA-»-CT  (  2)  )  *  ALPHA+CT  (IT)  *  ALPHA 
SCN  =  ( (CN ( 3 ) ♦ALPH A+CN (21) ♦ALPHA+CN ( 1 ) ) * ALPHA 

***************************************** 

♦  ♦  CALCULATE  THE  LIFT  AND  DRAG  AREAS  ♦♦ 

************* *********** ********  ********* 

50  SCL  =  ABS ( SCN*COS A  -  SCT*sINA) 

SCO  =  ABS  (SCN*SINA  ♦  SCT*COSA) 

C 

c  ************************************************ 

C  **  CALCULATE  THE  cAKTH  AA1S  LIFT  COMPONENTS  ** 

c  ********************  ****************  ************ 
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prrr  n 


C 

c 

C  COMPOTE  THE  UNIT  VECTOR  IN  THt  0IRECT10N  OF  LIFT  . 

C 

1FIFLA.EQ.5.)  uo  TO  120 
CALL  CRSPRO  (TEMP  1 , UO ,UVL ) 

CALL  CRSPRO  ( T EMP2  »U0 »  TtMPl ) 

RESULT  =  SORT (TEMP2(1 )**2  ♦  TEMP2(2)**2  ♦  TEMP2(3)**2) 
DO  100  1=1,3 

100  UVLlFTd)  =  TEMP2 (1)/KESULT 

C 

E  =  .3*RH0*SCL*V6AR»VdAR 

c 

UO  110  1=1,3 

1L0  FLIFTdl  =  -E  *  UVL1FT  ( 1 ) 

************************************************ 

**  CALCULATE  THE  cARTH  AXIS  DRAG  COMPONENTS  ** 

♦»»»»»♦  *********  ******************************** 

120  E  =  .S*RHO*SCD*VbAR*VoAR 
L 

DO  130  1=1,3 

130  FORAG(l)  =  -E  *  UVVdl  *  FACTOR 
C 

return 

end 


subroutine  ratio  <nv,gv,tv,kat,nc * 
dimension  Tvm 
c 

IF  (NV.fcG.l)  GO  TO  10 
IFlGV-TV(l).GT.O)  GU  TO  30 
10  NC  =  I 
20  RAT  =  0 
GO  TO  60 

aO  00  40  NCNT=2,NV 
NC  =  NCNT 

I F ( G V— T V <  NC ) )  50,20,40 
40  CONTINUt 
GO  TO  20 

50  RAT  =  (TV(NC)  -  GV )/( TV(NC)  -  TV(NC-l)) 
60  RETURN 
END 
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function  runiaa.bb.cc  ) 


c 

FUNCTIUN  WHICH  LIMITS  iHt  VALUfe  OF  VARIABLE  AA 
TO  WITHIN  A  RANGE  OtFINED  BY  VARIABLES  BB  AND  CC 

IF (AA.LT.BB)UO  TO  lo 
IF ( AA.GT . CC ) GO  TO  20 
RL 1M  =AA 
GO  10  SO 

4. 

10  RLlH=bb 
GO  TO  30 
L 

<£.(j  RL  IN  =CC 
C 

30  RfclORN 
END 
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C  n  c  n  r  c*  r 


SUbRUUTINE  ROTATE  I  (8Mi,BPI,DC) 

DIMENSION  bMI(3) ,oMlT(3),aPI(3),bPlTC3) ,DC(3,3) 

TRANSFORMS  INERTIA  PROPERTIES  FROM  ONE  AXIS  SYSTEM 
TO  ANuTHER  THROUGH  A  DIRECTION  COSINE  MATRIX  . 


TRANSFORM  THE  MOMENTS  OF  INERTIAS 


00  10  1=1,3 

SMITH)  =  DC  ( I  ,  1 )  **2*bMI  ( 1 )  +  DCC 1 ,2 ) **2*BMI ( 2 )  ♦ 

.  DUI,3)**2*BM1(3)  -  (DC(I,1)*DC(I,2)*BPI(1)  ♦ 

-  DC( I,l)*DC(i,3)*BPI (2)  +  DC(l,2)*0C(I,3)*bPl(3))*2.0 

10  CONT INUfc 


C 

u.  TRANSFORM  THE  PRODUCTS  OF  INERTIA 


C 


20 


bPITU  J 


BP IT (2) 


BP  IT (3) 


-0C( 1,1 )*0C (2,1)*BM1 (1) 
DC  ( 1, 3 )*DC (2,3 )*BM I ( 3) 
OCC 1,2 )*DC(2«1 ) ) *BP I( 1 ) 
DC  (1,3  )*DC(2,1) )*bPI(2) 
DC ( 1 ,3 ) *0C (2,2  ) ) *BP I ( 3 ) 
— OC ( 1,1 )*0C (3,1)*BMI(1) 
0C( 1 , 3 ) *DC( 3,3 )*BM 1(3) 
OC ( 1 , 2 ) *DC (3,11) *oP 1(1) 
OC ( 1 ,3 ) *DC (3 , 1 ) ) *BP 1(2) 
OC ( 1 , 3 )*DC (3,2) ) *BPI ( 3 ) 
-OC  (2,11  *DC  ( 3,1 )  *bM  1  ( 1 ) 
DC(2,3)*DC(3,3)*8M1(3) 
DC ( 2 , 2 ) *DC (3,1) )  *b  P 1  ( 1 ) 
0C(2,3)*0C(3,1) )*BPI(2) 
DC  (  2 , 3  ) *0C (3,2) ) *8  P I  (  3 1 


-  DC ( 1 , 2 )*DC (2,2) *8MI  1 

♦  ( DC 1 1 , I ) *0C ( 2 , 2 )  * 

♦  (  DC ( 1 , 1 1 *DC (2,3)  ♦ 

♦  ( DC ( 1,2) *DC (2,3)  ♦ 

-  DC ( 1 , 2 )*DC (3,2) *BMI l 

♦  (DC (1,1)* DC  13, 2)  ♦ 

♦  ( DC ( 1 , 1 ) *0C (3,3)  ♦ 

♦  ( DC  ( 1 , 2 ) *0C ( 3 , 3 )  ♦ 

-  0C(2,2)*DC(3,2)*BMI( 

♦  ( DC ( 2 , 1 ) *0C ( 3  » 2  )  ♦ 

♦  ( DC ( 2 , 1 ) *DC (3,3)  ♦ 

( DC  (  2 ,2 )  *DC  (3,3)  + 


2)  - 


2)  - 


2)  - 


DO  20  1=1,3 
BMIU)  =  BMiT(l) 
bPK  1)  =  bPIT  (  I  ) 


C 


RETURN 


FUNCTION  TBLU3U1 ,Y1 , 21 ,X , Y . Z , F3.NDX.NDY, NDZ .NX.NY.NZ.MX ,MY ,MZ ) 
I.****** 


C 

C 

c 

c 

l 

c 

i. 

c 

C 

c 

c 

c 

c 

c 

L 

C 

c 

L 

C 

c 

L 

C 

c 

c 

c 

c 


PURPOSE 

TbLU3  PERFORMS  TadLE  SEAkCH  AND  LAGRANGI AN  POLYNOMIAL 
INTERPOLATION  OF  USER— DEe  INEl)  DEGREt  ON  3  INDEPENDENT 
VARIABLES 
USAGE 

DIMENSION  A  (NX)  >  Y(NY),  Z  <  NZ  )  ,F3(  MX,MY,MZ  ) 

V  =  TBLU3CX1, Y1,21,X,Y,Z,F3»NDX,NDY»NDZ,NX,NY,NZ,MX,MY,MZ) 
INPUT  PARAMETERS 

XI , Y 1 , Z 1  -  POINi  TO  INTERPOLATE  FOR 

X,  Y  ,Z  -  ARRAYS  OF  INDEPENDENT  VARIABLES 
F3  -  30  ARRAY  OF  DEPENDENT  VARIABLE 
NDX.NOY.NDZ  -  DEGREE  OF  INTERPOLATION  FOR  EACH  DIMENSION 
NX  »NY » NZ  -  lAbS  OF  EALH  IS  THE  NUMBER  OF  DATA  POINTS  IN 
THE  RESPECTIVE  X,  Y  OR  2  ARRAY.  IF  NEGATIVE. 
NEARtST  END  POINT  IS  TO  BE  USED  UPON 
EXTRAPOLATION 

MA.MY.MZ  -  DIMENSIONAL  CONSTANTS  FOR  F3  ARRAY 
OoTPuT  PARAMETERS 

V  -  RESULT  OF  TABLE  SEARCH  AND  INTERPOLATION 

SUCCESS  V  =  INTERPOLATED  VALUE 

ERROR  V  =  INDEFINITE  VALUE  WHERE  RIGHTMOST  DIGIT 

Defines  the  error  detected 

1  UATA  values  within  x,  y  or  z  are  not  distinct 

2  ONE  OF  NDX,  NDY  OR  NDZ  IS  LESS  THAN  ZERO 

3  ONE  OF  NX,  NY  OR  NZ  IS  ZERO 

4  EITHER  MX.lT.IABS(NX)  OR  MY.LT. IABS(NY) 


c****** 


DIMENSION  Xm,Ym,Zm,F3(MX,MY,MZ> 

INTEGER  SEARCH 

OATa  ERR2/I777000G0000UUO0O0Q2B/ 

DATA  EKR3/1 77700000UGQOOOU0003B/ 

DATA  ERR4/ 17770GOOGUUuOGOOODG4b/ 

C  TEST  FOR  USER  ERRORS 

TbLU3  -  0 

IF  ((NDX.lT.G).UR.(NOY.LT.G).OR.(NDZ.LT.O>)  TBLU3  =  ERR2 
IF  ( (NX.EQ.OJ .OR. (NY.tQ.O).OR. (NZ.EQ.O) )  TBLU3  =  ERR3 
IF  ( (MX.LT.lAbS(NX)).OR.(MY.LT.IABS(NY) ) )  TBLU3  =  ERR4 
IF  (TbLUS.NE.O)  GO  TO  SO 

C  SET  UP  INITIAL  PARAMETERS 

X2  =  XI 
Y2  -  Y1 
Z*  =  Z1 
MUX  =  NUX 
MCY  =  NDY 
MUZ  =  NDZ 

C  SEARCH  FOR  XI,  Y1  AND  Zi  IN  TABLES 

IX  =  SEARCH(X2,X,MDX,NX,I ) 

IY  =  SEARCH! Y2 , Y  » MDY , NY , J ) 

IZ  =  SEARCH ( Z2 , Z, MD2, NZ.K ) 

c  Test  for  exactness  in  i  or  more  dimensions 

1W  =  1X*IY*IZ 
IF  (1W.EQ.0)  GO  TO  <,0 
IF  (  1W.NE.3)  GO  TO  10 
TbLU3  =  F3 ( I , J  »A ) 

GO  TO  SO 
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10  IF  (ix.tu. 0)  4»0  TO  20 
X2  =  XU) 

MDX  =  0 

20  IF  tlY.EQ.O)  GO  TO  30 
Y2  =  Y ( J ) 

MGY  =•  0 

30  IF  (12.EQ.0)  GO  TO  *0 
22  =  UK.) 

M02  -  0 

C  INTERPOLATE 

40  TbLU3  =■  TfcRP3IX2fY2t22tX,Yi2,F3,M0X,MDY,M02,MX»MY,M2»I.J,K) 

30  RETURN 
END 


r  f  r>  r  c  p  o  c  pop  nrr  r  n  n  rrri  pop  o  pro  poppooppo 


Subroutine  tlu (  ib ,nx  ,  ny ,nz  »  row ,colm,p age ,xg, yg,zg,ans,ntab) 

DIMENSION  18  11), ROW (NX) ,COlM(NY) » P  AGE (NZ) , ANSI  6) 
firsTP  (x,y,z)  =  x  -  z*(x  -  y > 
c 

C  WHAT  BALL  PARK  Is  THE  POINT  IN  . 

C 

call  ratio  (nx, xu , row , kaTx , 1 ) 

CALL  RATIO  (NY , YG ,COLM,RA TY , J ) 

CALL  RATIO  (NZ,ZG,PAGt,RATZ,K) 

IT'S  JUST  PRIOR  TO  THE  '1Th*  HOW,  'JTH*  COLUMN  AND  THE  »KTH*  PAGE  ... 


NulE  -  IF  ONE  OF  THE  INCOMING  ARGUMENTS  IS  OUT  OF  THE  TABLE  BOUNDS, 
THE  APPROPRIATE  VALUE  OF  RATX ,RATY,R ATZ ,  WILL  aE  ZERO  . 

what  is  the  location  of  the  next  higher  point  . 

NXY  -  NX»NV 

NP  =  I  ♦  NX*(J-1)  ♦  NXY*(K-1) 

LET'S  INTERPOLATE  FROM  AS  MANY  AS  NTA8  TABLES . 

DO  50  L=l,NTAb 

b  =  C  =  E  =  0 

where  is  the  point  between  rows  .... 

CALL  UNPACK  (NP , I B ,C1 »C2) 

A  =  FIRSTF  (C2«C1«KATX) 

IF  Wt  ARE  IN  THE  FIRST  COLUMN  JUMP  TO  STATEMENT  10  . 

IF  (J.EQ.l)  GO  TO  iO 
JUMP  TO  THE  NEXT  LOWER  COLUMN  ..... 

NP  =  NP  -  NX 

atTWEEN  ROMS  IN  THE  ADJACENT  COLUMN  . 

CALL  UNPACK  (NP , I B, Cl ,  C2) 

8  =  FIRSTF  (C2, Cl, RATX) 

JUMP  TO  THE  NEXT  LOWtR  PAGE . 

iO  NP  =  NP  -  NAY 

IF  WE  ARE  NOT  ON  THt  FIRST  P Ai»E  JUMP  TO  STATEMENT  20 . 

IF  (K.NE.l)  GO  TO  20 

IF  Wt  ARE  IN  THE  FIRST  COLUMN,  JUMP  TO  STATEMENT  *0  . 

IF  ( J.EU.l)  GO  TO  AG 
JUMP  TO  THt  NtXT  HlGHtR  COLUMN  . 
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f -nr’  r'f’Ci  r'on  r  o  c*1  r>  r-  r>  o  o  p  non  pop 


c 


NP  =  NP  ■*•  NX 
GO  TO  40 


IF  Wt  ARt  IN  THE  FIRST  COLUMN,  JUMP  TO  STATEMENT  30 

cO  IF  (J.E&.l)  GO  TO  30 

btTwEEN  ROMS  . 

CALL  UNPACK  ( NP , lb ,Cl ,C2) 

C  =  FIRSTF  (C2 ,C1 ,RATx) 

JUMP  TO  Tht  NEXT  HIGHER  COLUMN  . 

NP  =  NP  NX 

bETwEEN  ROWS  AGAIN  IN  THE  NEXT  HIGHER  COLUMN  .... 

_>0  CALL  UNPACK  INP  ,  I b  t Cl ,  C2) 

D  =  FIRSTF  (C2.C1.RATX) 

bETMEEN  COLUMNS  . 

E  =  FIRSTF  (OtCyRATY] 

40  F  -  FIRSTF  (A.B.RaTY) 

NOW  BETWEEN  PAGES  . 

ANSI L )  =  FIRSTF  IF.E.RATZ) 

MUVt:  TO  THE  BEGINNING  OF  THE  NEXT  TABLE  .... 

50  NP  =  NP  ♦  NXY  ♦  NZ*NXY 

THAT’S  IT,  LET’S  GO  HOME  .... 

RETURN 

END 
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SUBROUTINE  UNPACK  ( NP , 16, W0RD1 , WORD2 ) 

DIMENSION  I6(l),JMuRO(6) 

COMMON  /WORD/  I TRUOP< 4) , 1 SQUAD 

Data  FOUR  /4.0/,  BN  /16383./,CM1N  /-1.6/,  RANGE  /3.0/ 

NPRIOR  -  1 

PNlS  =  NP 

WORD  =  PNTS/FQUR 

NMORO  -  WORD  +0.1 

NSuBWRD  =  (WORD  -  FLOAT  (NMORO)  )*FOUR 
IF  INSUBWRD.tQ.l)  NPRIOR  =  2 
IF(NPRIOR.EQ.l)  GO  TO  20 
1SQUAG  -  IB(NWORO) 

CALL  DISECT 
DU  10  1=1,4 

AO  JWOKOdl  =  1  TROOP  ( I  ) 

20  ISGUAD  =  I B (NWURD+1 ) 

IF  ( NSUBWRD. EQ. G )  ISUUAD  =  IB  (NWORD) 

CALL  OISECT 
DO  30  1=1,4 

30  JMORDI 1+4 )  =  ITROOP(l) 

IF  ( NSuBWRD.tQ. 0)  NSUBMRO  =  4 
1H0RU1  =  JWQRD ( NSUBWRO+3 ) 

IMORDz  =  JWORD( NSUBWRD+4) 

MOROi  =  CM  IN  ♦  (FLOAT  ( IWORDI) /BN) *RANGE 
M0RD2  =  CM IN  ♦  (FLOAT ( IWGRuZ ) /BN ) *RaNGE 
RETURN 
END 
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SUBROUTINE  VECXYZ  ( TRANS, VEC, ORIGIN, DC, IOPT > 

DIMENSION  TRANS (3) »VeC(3) *ORI GIN( 3 ) ,DCC 3.3 ) , DIFF C 3 ) 

TRANSFORMS  VECTORS  FROM  ONE  REFERENCE  FRAME  INTO  ANOTHER 


*****  CALLING  ARGUMENTS  ***** 


TRANS  ( 3) 
VEC( 3) 
ORIGIN  (3) 
0C(3,3) 
10P1 


-  TRANSFORMED  VECTOR  l OUTPUT) 

-  INPUT  VECTOR 

-  Secondary  system  origin  in  the  primary  system 

-  DIRECTION  COSINE  MATRIX 

-  FLAG  TO  uETERMINt  TYPE  OF  TRANSFORMATION 

1  =  FROM  PRIMARY  TO  SECONDARY 

2  =  FROM  SECONDARY  TO  PRIMARY 


IFU0PT.EQ.2)  GO  TO  20 
C 

DO  10  1-1,3 

10  DlFF(l)  -  VEC(l)  -  ORIGIN) 1 ) 

CALL  MATMPY  (TRANS, DC, DIFF, 3,3,1) 
GO  TO  AO 
C 

20  CALL  MATMPY  (TRANS, DC , VEC , 3 ,3 , 1 ) 
DU  30  1=1,3 

30  TKANS(l)  =  ORIGIN  ( 1 )  *  TRANSU) 

C 

40  Rt  TURN 
END 
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SUBROUTINE  VELXYZ  ( U, OSEC , XPT , WSEC , OSI ) 

DIMENSION  U13)  ,USEC(3)  ,XPT(3)  .MSEC  (3)  ,UPTSEC(3)  , 

.  TEMPO), 031(3,3) 

COMPUTES  THE  EARTH  SYSTEM  VELOCITY  VECTOR  OF  A  POINT 
DISPLACED  FROM  THE  ORIGIN  OF  A  SECONDARY  COORDINATE  SYSTEM 

**********  CALLING  ARGUMENTS  ********** 

U (3 )  -  X,  Y  ,Z  EARTH  SYSTEM  VELOCITY  VECTOR  OF  A  POINT 

OISPLACEu  FROM  THE  ORIGIN  OF  A  SECONDARY  SYSTEM 
(FT/SEC)  —  OUTPUT  — 

UStC ( 3)  -  X,Y ,Z  BODY  AXIS  VELOCITY  VECTOR  OF  THE  SECONDARY 

SYSTEM  (FT/SEC) 

XPT  -  X,  Y  ,  Z  BODY  AXIS  POSITION  VECTOR  OF  THE  DISPLACED 

point  in  the  Secondary  system  cft) 

MSEC  -  X,Y,Z  BODY  AXIS  ANGULAR  VELOCITY  VECTOR  OF  THE 

SECONDARY  SYSTEM  (RAD/SEC) 

DS1( 3,3 )  -  SECONDARY  TO  EARTH  SYSTEM  DIRECTION  COSINE  MATRIX 


CALCULATE  WSEC  X  XPT  . 

CALL  CRSPRD  (TEMP .MSEC, XPT) 

DtTERMINE  U3EC  ♦  (WSEC  X  XPT)  . 

DU  1G  1=1,3 

10  UPISeCII)  =  USEC(I)  +  TEMP ( 1 ) 

TRANSFORM  THE  VELOCITY  VECTOR  FROM  THE  SECONDARY  TO  THE 
EARTH  SYSTEM  . 

CALL  MATMPY  (U,DSI,UPTSEC, 3,3,1) 

RETURN 

END 


APPENDIX  I 


FILOAD  INPUT  DATA 


This  Appendix  contains  the  FILOAD  Input  Data.  FILOAD  is  a  program  which 
creates  a  random  access  file  from  input  data  that  defines  the  variable 
names  in  the  calling  sequence  for  each  standard  component.  This  random 
access  file  is  employed  by  the  Model  Generation  program  to  build  the 
model  defined  by  the  user  in  the  Model  Generation  input  data. 
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AGINPT  =  b 
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CZ 

APTABS 

=•  2 

1CX 

20. 

1 

ICZ 

20. 

1 

SYMBOL. 

AP  = 

101 

AS1NPT 

=  19 

OFF 

UP 

ZWS 

XEM 

3 

COX 

tCX 

EC  Y 

ECZ 

CLP 

CMC 

CNR 

S 

SRP  3 

0S7 

3 

EST 

3 

WST 

3 

OSA  3 

J  SRA 

3  RON 

aSUUTP 

=  17 

F2  3 

1  12 

3  l  ALP 

BET 

VM 

0 

CX 

CY 

Cl 

CL 

CM 

CN 

tXL 

EXA 

LEN 

3 

TCZ 

20 

HO 

ASTABS  =  1 

1 At  20.  1 
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INTAbS  =  0 

SYMbOt,  IN  =  1°1 

HOOtS  =  IN 

1T1NPT  *  * 

±  N  V  G*U  N 

lTJUlP  =  1 

S  N  2S 

iTlAbS  =  0 

SYMoOL,  II  =  10i 

MOOtS  =  II 

lllNPl  =  * 

fcrt  ^1 

iiQUlP  =  5 
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HlAtoS  =  0 
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S  N  2S 

CATAbS  = 

symbol,  la 

MOOtS  «  LA 

LC1NPT  = 
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1. 

0) 

29. 

10 

*. 

10  2 

LOCATION 

OF 

INDEPENDENT  VARIABLES 

I7E10. 

k 

0) 

1  • 

10 

3 

10  11 

CMO(M) 

variation  of  cmo  with 

PITCH 

RATE 

1  it  10. 

0/2810.0) 

—3.7 

—3.45 

—3.33 

-3.17  -3.15 

-3.5 

-5.15 

CMQ 

-3.0*. 

— *  .88 

CMQ 

11 

0 

11  2 

(7fclO. 

0) 

2. 

29. 

33. 

11 

3 

11  4 

LOCATION 

OF 

INDEPENDENT  VARIABLES 

(7E10. 

0) 

A. 

2. 

11 

5 

11  o7 

CMDE1M, A) 

VARIATION  OF  CMO  WITH  ELEVATOR  POSITION 

( 7F10.U/2F10.0) 


-O.01I 

-0.01558 

-O.  01445 

-0.0131 

-0.012 

-0.0121 

-0.0121 

CMOS 

A  = 

— . u084 

— .0^55 

CMOS 

A  = 

-0.016 

-0.01495 

-6.01395 

-0.0127 

-0.01175 

-o.one 

—0 .01*0 

CMDS 

A  = 

-.0084 

-.0055 

CMOS 

A  = 

— 0. 0156 

-0.01455 

—0.01360 

— 0.01235 

-0.01145 

-0.0115 

-0.01178 

CMDS 

A- 

-.0884 

-.0055 

CMOS 

A  = 

502 


-0.016 

-0.01495 

-0.01395 

-0.0127 

-0.01150 

-0.01125 

-0.0116 

CMOS 

A1 

-.0063 

-.0053 

CMOS 

A 1 

-0.0J.34 

-0.01445 

-0.01340 

-0.01185 

-0.01080 

-0.01115 

-0.0114 

CMOS 

A1 

-.0062 

-.0055 

CMDS 

A 1 

-0.01365 

-0.0119 

-0.01565 

-0.0095 

-0.0065 

-0.0091 

-0.0102 

CMOS 

A2 

-.0075 

-.0035 

CMDS 

A  2 

-0.0099 

-0.0064 

-0. 00775 

-0.0071 

-0.00675 

-0.0073 

-0.0087 

CMOS 

A2 

-.0069 

-.0055 

CMOS 

A2 

1  *  0 

12  2 

I7E10.0) 

*1. 

29. 

33. 

12  3 

12  4 

LOCATION  OF 

INDEPENDENT  variables 

(7c.iO.O) 

1. 

2. 

12  5 

12  31 

CMOA(MtA) 

VARIATION 

OF  CMO  WITH  AILERON 

POSITION 

( 7tlo. 0/2E 10.0) 

-C. 000 54 

-0.00052 

-0. 00052 

-0.00052 

-0.00053 

-0.00069 

-0.00096 

cmoaf 

A 

— .  000-. 

-.00035 

CM  DA 

A 

-0.00040 

-0.00040 

-O. 00040 

-0.00044 

-0.00048 

-0.00060 

-0.00080 

CM  DAE 

A 

— .GUCoS 

-.00062 

CMDA 

A 1 

-0.00032 

-0.00032 

-0.00035 

-0.00038 

-0.00042 

-0.00051 

-0.00049 

CMDAE 

A 

-0.0002 

-0.0002 

CMDA 

A2 

13  0 

13  2 

(JtlG.O) 

2. 

27. 

32. 

13  3  13  4  LOCATION  OF  INDtPENOENT  VARIABLES 

(7610. O) 

!•  c* 


15  3 

13  40 

CYo ( M  » A  ) 

VARIATION 

OF  CY  WITH 

BETA 

(7c 10. 0/2610.0) 

-.0115 

-.6117 

-.011a 

-.0121 

-.0124 

-.0129  -.0143 

CYB 

A  -0 

-.0144 

-.0116 

CYB 

A=0 

-.0.113 

—.0x13 

-.0114 

-.0116 

-.0119 

-.0125  -.0134 

CYB 

A=a 

-.013 

-.0104 

CYB 

A=8 

-.0106 

-.0106 

-.0107 

-.0108 

-.0111 

-.0114  -.0119 

CYB 

A=i 

—.0 1. 

-.0091 

CYB 

A  =  1 

—.0096 

-.0098 

-.0096 

-.0095 

-.0094 

-.0097  -.0102 

CYB 

A=2 

-.0106 

-.0108 

CYB 

A=2 

14  0 

14  2 

(7610. 0) 

2. 

29. 

40. 

14  3 

14  4 

LOCATION  OF 

INDEPENDENT  VARIABLES 

(1610.0) 

2. 

2. 

14  3 

14  40 

CPY(M,A) 

VARIATION 

OF  CY  WITH 

ROLL  KATE 

( 7t Io.0/2t 10.0) 

—0.06 

-0.065 

-0.065 

-0.07 

-0.06 

-0.03  -0.03 

CYP 

A= 

-.03 

-.03 

CYP 

A=0 

♦■0.23 

♦0.24 

♦0.23 

♦0.20 

♦0.15 

♦0.34  ♦0.42 

CYP 

A  = 

.21 

.0*3 

CYP 

A  =  8 

♦0.235 

♦0.24 

♦0.21 

♦  0.17 

♦0. 11 

♦0.28  ♦Q.BO 

CYP 

A 1 

.32 

.07 

CYP 

A  =  l 

♦0.2 65 

♦0  .24 

♦0.21 

♦0.17 

♦0.11 

♦  0.28  ♦0.60 

CYP 

A2 

.32 

.07 

CYP 

A  =  2 

15  u 

15  2 

(7610.0) 

A-  • 

c  9. 

3o  . 

15  3 

15  4 

LOCATION  OF 

INOtPtNDENT  VARIABLES 

( 7t 10. 0  t 

1.  2. 


IS  s 

15  40 

CYR(M,A> 

variat ion 

OF  CY  WITH  YAW  RATE 

(7t lG.0/2t lO.O) 

0.735 

0.  7b 

c 

• 

CD 

0.635 

0.88  0 .08 

0.56 

CYR 

A  = 

.455 

.31 

CYR 

A=0 

O.  7dS 

0.80 

0.62 

0.855 

0.90  0.915 

0.61 

CYR 

A 1 

-477 

.273 

CYR 

A  —  1 

o.7as 

o.bO 

0.82 

0.855 

0.90  0.915 

0.61 

CYR 

A 1 

.477 

.273 

CYR 

A  =  1 

0.650 

0.66 

u  .67 

0.70 

0.735  0.75 

0.49 

CYR 

A  2 

-A3© 

.433 

CYR 

A  =  2 

16  0 

1©  2 

(7t.10.0l 

29. 

41. 

16  © 

lo  4 

LOCATION  OF 

INOtPcNOBNT  VARlABLtS 

17E10.G) 

1. 

2. 

16  5 

16  40 

CYOR IM,A) 

VARIATION 

OF  CY  WITH  RUDDER 

POSITION 

(7 El 0.0/  2.1 10. 01 

.00219 

.0021 

•0020o 

.00204 

.00139  .00163 

.00149 

CYDR 

A= 

.00126 

.00097 

CYDR 

A  = 

.00219 

.0021 

,0020b 

.00204 

.00189  .00163 

.00149 

CYDR 

A 1 

.00126 

.0-097 

CYDR 

Al 

.00206 

.00197 

.00195 

.00191 

.00177  .00152 

.0014 

CYOR 

A  2 

.00117 

.OGObb 

CYDR 

A2 

•GGlbb 

.0018 

•0017b 

.00174 

.00161  .00139 

.00123 

CYDR 

A2 

.00105 

.0007© 

CYOR 

A2 

17  o 

17  2 

UfclO.O) 

2. 

29. 

52. 

17  © 

17  4 

LOCATION  of 

INDtPfcNOENT  VARIABLES 

(7E io.O) 

1. 

2. 

17  S 

17  40 

CYOA(M.A) 

VARIATION 

OF  CY  WITH  AILERON 

POSITION 

(7tl0.0/2tl0.0) 

•00026S 

.000265 

.000265 

.O002o5 

.000265  .000265 

.000265 

CYDA 

A  = 

.000145 

.00007 

CYDA 

A  = 

.0002 

.0002 

.0002 

.0002 

.0002  .0002 

.0002 

CYDA 

A- 

.000005 

—.00006 

CYDA 

A  = 

-.000017 

-.000017 

-.000017 

-.000017 

-.000017  -.000017 

-.000017 

CYDA 

Al 

-.00012 

—.000 1 b 

CYDA 

Al 

0. 

0. 

0. 

0. 

0.  0. 

0. 

CYDA 

A2 

-.000103 

•  GOO  1 

CYDA 

A2 

lb  0 

i.b  2 

17b lO.O 1 

2. 

29. 

31. 

18  3 

18  4 

LOCATION  OF 

INUcPENOENT  VARIABLES 

17tlO.O) 

1. 

2-  • 

lb  s 

16 

CLS ( M  *  A ) 

VARIATION 

OF  CL  WITH  BETA 

t  7t  10.0/i.t  1U.G) 


0U0S5 

00019 

—  ,o0054 

0. 

~.00os5 

— .oOUb2 

-.00076 

-.00067 

-.00065 

CLB 

CLB 

A=0 
A  =0 

00183 
U0O2  / 

-.00192 

0. 

-.00198 

-.00205 

-.00216 

-.00225 

-.0021 

CLB 

CLB 

A-B 
A  =  6 

00243 

GGo45 

-.00247 

-.0004 

—  .002*»5 

—  .002*>3 

-.0024 

-.00235 

-.0023 

CLB 

CLB 

A=  1 
A=  1 

-.0028 

— .0w262 

-.00265 

-.0027 

-.00277 

-.00266 

-.0029 

CLB 

A=  1 

-.00067 

-.00067 

CLB 

A  =  1 

-.0026 

-.00312 

-.00325 

-.00338 

-.00351 

-.0036 

-.00362 

CLB 

A=2 

-.0016 

-.0016 

CLB 

A=2 

-.0028 

-.00399 

—.004.2 

-.00423 

-.00435 

-.00447 

-.00452 

CLB 

A=2 

-.0044 

—.0044 

CLB 

A=2 

19  0 

19  2 

(7tl0.G) 

2. 

29. 

33. 

19  3 

19  4 

LOCATION 

OF  INDEPENDENT  VARIA8LE3 

1  7t 10. 0 ) 

1. 

2. 

19  5 

19  67 

CLP ( M  »  A ) 

VARIATION 

OF  CL  WITH 

ROLL  RATE 

(1110.0/21:10.0) 

-0.29 

-0.267 

-0.285 

-0.26 

-0.291 

-0.336 

-0.345 

CLP 

A= 

-.266 

-.214 

CLP 

A=0 

-0.295 

-0.295 

-0.290 

-0.29 

-0.304 

-0.338 

-0.332 

CLP 

A  = 

-.25;> 

-.207 

CLP 

A  =4 

-0.30 

-0.304 

-0.30 

-0.30 

-0.302 

-0.324 

-0.319 

CLP 

A* 

-.247 

-.203 

CLP 

A=8 

-0.31 

-0.310 

-0.31 

— O. 306 

-0.270 

-0.263 

-0.300 

CLP 

A 1 

-.24 

-.198 

CLP 

A  =  1 

-0.271 

-0.270 

-0.261 

-0.245 

-0.215 

-0.218 

-0.268 

CLP 

A  1 

-0.225 

-.183 

CLP 

A  =  1 

—0.246 

-0.247 

-0.233 

-0.205 

-0.173 

-0.170 

-0.228 

CLP 

a2 

-.195 

-.155 

CLP 

A=2 

-0.205 

-0.211 

-0.20 

—0. 160 

-0.130 

-0.133 

-0.166 

CLP 

A2 

-.17 

-.13 

CLP 

A=2 

20  0 

20  2 

17110. 0) 

2. 

29. 

31. 

20  3 

20  4 

LOCATION 

OF  INOEPtNOENT  VARIABLES 

(7110.0) 

1. 

2- 

20  5 

20  56 

CLR(M.A) 

VARIATION 

OF  CL  WITH 

YAW  RATE 

(7110.0/2110.0) 

.015 

.Gc 

.015 

.015 

.018 

.03 

.05 

CLR 

A=0 

.07 

.031 

CLR 

A=C 

.094 

.1 

.107 

.  ii5 

.136 

.14 

.07 

CLR 

A=8 

.075 

.038 

CLR 

A  =  8 

.132 

.146 

.157 

.168 

.183 

.14 

.057 

CLR 

A  =  1 

.06 

.031 

CLR 

A  =  1 

,io5 

.188 

.196 

.21 

.226 

.14 

.01 

CLR 

A=1 

.005 

.016 

CLR 

A  =  1 

.193 

•22 

.233 

.247 

.266 

.14 

-.025 

CLR 

A  =  2 

-.045 

-.045 

CLR 

A =2 

•2 

.255 

.27 

.285 

.305 

.14 

-.04 

CLR 

A  =  2 

-.065 

-.065 

CLR 

A=2 

2 1  0 

21  2 

(7110.0) 

• 

29. 

36. 

21  3 

21  4 

LOCATION 

JF  INDEPENDENT  VARIABLES 

(7t 10. 0 ) 

1. 

2. 

* 

21  5 

21  49 

CLUR(M,A) 

VARIATION  OF  CL  WITH  RODDER  POSITION 

(7E10.0/2tlG.0) 

♦0.0002.-5  +0.000235  +0.000245  +U. 000250  +0,000250  +0. 000222  +0.000210  CLDR  A= 
.00014  .000105  CLDR  A= 


505 


♦0*000030 

♦0.000035 

♦0.000065 

♦O.UOOG35 

♦0.000035  ♦0.000035 

+0.000030 

CLOP  A= 

0. 

0. 

CLDR  A= 

— 0 *000050 

-0.000055 

-0.000035 

-0.000053 

-0.000055  -0.000055 

-0.000055 

CLDR  A 1 

—.000065 

-.000055 

CLDR  A1 

— 0  *000120 

-0.000120 

-0.000130 

-0.O00130 

-0.000130  -0.000120 

-0.000110 

CLDR  A 1 

-.0001 

-.0001 

CLDR  Al 

-0.000230 

-0.o00260 

-0.000270 

-0.U00275 

-0.000270  -0.000250 

-0.000230 

CLDR  A2 

-.00015 

-.00015 

CLDR  A2 

22  0 

22  2 

(7210. 0) 

2. 

29. 

33. 

22  3 

22  4  LOCATION  OF 

INDEPENDENT  VARIABLES 

( 7t lu.Q ) 

1. 

2. 

22  5 

2.  67  CLOA(M,A) 

VARIATION 

OF  CL  WITH  AILERON 

POSITION 

(72 10.0/2t 10.0) 

—.000745 

-.GOOol 

—.000625 

-.000845 

-.00086  -.00089 

-.00078 

CRDA  A= 

-.000355 

-.03023 

CRDA  A= 

— .000a 

-.000875 

-.000903 

-.00094 

-.00097  -.000995 

-.000865 

CRDA  A= 

-.00036 

-.00023 

CRDA  A= 

-.000375 

-.000915 

-.000945 

-.00094 

—.00087  -.00078 

-.00073 

CRDA  A= 

-.00033 

-.00022 

CRDA  A= 

-.0408 

-.00085 

-.00081 

-.00073 

-.00055  -.00046 

-.0005 

CRDA  Al 

-.0003 

-.00021 

CRDA  Al 

-.000645 

—.0006 

-.000545 

-.00047 

-.00041  -.000355 

-.00039 

CRDA  Al 

-.00026 

-.0002 

CRDA  Al 

-.0004 

-.00026 

-.00022 

-.00017 

-.00016  -.000165 

-.00023 

CRDA  A2 

-.000245 

-.000245 

CRDA  A2 

-.000605 

-.000205 

-.00 018 

-.00015 

-.00011  -.00009 

-.000095 

CRDA  A2 

-.00U125 

-.000125 

CRDA  A2 

23  0 

23  2 

(7210.0) 

2. 

29. 

31. 

23  3 

23  4  LOCATION  OF 

INDEPENDENT  VARIABLES 

17210.0) 

1. 

2. 

23  5 

23  58  CNd(M»A) 

VARIATION 

OF  CN  WITH  BETA 

(7210.0/2210.0) 

.00x92 

.0018 

.0016 

.00164 

.00196  .0024 

.00307 

CNB  A=0 

.00  246 

.0012 

CN8  A=0 

.00195 

.04194 

.00195 

.00198 

.00212  .0023 

.00265 

CNB  A=6 

.00246 

.00084 

CNB  A=6 

.00202 

.00205 

.00207 

.00219 

.00224  .00235 

.00257 

CNB  A=1 

.0029 

.00087 

CNB  A=1 

.00203 

.00194 

.00193 

.00192 

.00192  .00205 

.0024 

CNB  A= 1 

.00226 

.00226 

CNB  A=1 

.00*13 

.0015 

.00153 

.0016 

.0017  .00187 

.00212 

CNB  A =2 

.003/7 

.00377 

ENB  A=2 

.00152 

.00105 

.00115 

.0013 

.00147  . 001o7 

.0019* 

CNB  A =2 

.00357 

.00357 

CNB  A  =2 

24  0 

24  2 

(7210.0) 

X. 

29. 

39. 

24  3 

24  4  LOCATION  OF 

INDEPENDENT  VARIABLES 

(7210.0) 

1. 

im  • 

24  5 

24  49  CNP(H»A) 

VARIATION 

OF  CN  WITH  ROLL  RATE 

♦0.005 

♦0.005 

♦0.005 

♦0.005 

♦0.005 

♦0.005 

♦0.005 

CNP 

A  = 

.005 

.005 

CNP 

A=0 

-0.035 

-0.045 

-0.040 

-0.032 

-0.032 

-0.040 

-0.055 

CNP 

A= 

-.017 

.005 

CNP 

A  =4 

-0.073 

-0.056 

-0.050 

-0.042 

-0.040 

-0.10 

-0.20 

CNP 

A- 

-.042 

-.003 

CNP 

A  =  6 

-0.C63 

— O.OoB 

-0.064 

-0.055 

-0.050 

-0.075 

-0.125 

CNP 

A  1 

-.07 

-.01 

CNP 

A  =  1 

-0.056 

-0 .068 

— 0.0o4 

-0.055 

-0. 050 

-0.075 

-0.125 

CNP 

A2 

-0.07 

-.01 

CNP 

A=2 

25  0 

25  2 

( 7fc 10.0  ) 
2. 

25. 

37. 

25  3 

25  4 

LOCATION 

OF  INDcPENOcNT  VARIABLES 

17tl0.0 1 
1. 

2. 

25  5 

25  49 

CNR1M.A) 

VARIATION 

OF  CN  WITH 

YAW  RATE 

(7E10.G/2t 10.0) 

— C.307 

-0.32 

-0.325 

-0.34 

-0.357 

-0.374 

-0.38 

CNR 

A  = 

-.332 

-.205 

CNR 

A  =  0 

-0.3*5 

-0.341 

-0.350 

-0.365 

-0.375 

-0.360 

-0.36 

CNR 

A  1 

-.31 

-.16 

CNR 

A  =  1 

-0.340 

-0.370 

-0.382 

-0.395 

-0.403 

-0.403 

-CL.  39 

CNR 

A 1 

-.31 

-.18 

CNR 

A=1 

-0.375 

-0.40 

-0.41 

-0.42 

-0.425 

-0.410 

-0.39 

CNR 

A2 

-.31 

-.16 

CNR 

A  =  2 

— 0.4*5 

-0.435 

-0.44 

-0.445 

-0.435 

-0.410 

-0.39 

CNR 

A2 

—.31 

-.18 

CNR 

A  =2 

26  0  26  2 

WtlO.O) 

2.  29.  41. 

*o  j  *6  4  LOCATION  OF  INDEPENDENT  VARIABLES 

(7E10.0 ) 

1*  2-m 

lb  i  lb  40  CNDR  ( M » A )  VARIATION  OF  CN  WITH  RUDDER  POSITION 


tltlO. 0/2tl0.0) 

-.00131 

-.0013 

-.00126 

-.00124 

-.00116  -.00111 

-.001 

CNDR 

A- 

-.00052 

-.00031 

CNDR 

A= 

-.00131 

-.0013 

-.00126 

-.00124 

-.00118  -.00111 

-.001 

CNDR 

Ai 

-.00052 

-.00031 

CNDR 

A  1 

-.00122 

-.00121 

-.00116 

-.00115 

-.0011  -.00103 

-.00093 

CNDR 

A2 

-.00045 

-.00045 

CNDR 

A2 

-.00111 

-.00111 

-.00106 

-.00106 

-.00101  -.00095 

-.00086 

CNDR 

A* 

—  ,u0036 

—.00036 

CNDR 

A2 

27  0 

t  7c 10. 0 ) 

27  2 

2. 

29. 

34. 

27  .> 

*7  4 

LOCATION  OF 

INDEPENDENT  VARIABLES 

(ifclO.O) 

A. 

2. 

*7  5 

27  49 

CNOA(M.A) 

VARIATION 

OF  CN  WITH  AILERON 

POSITION 

(7tlU.Q/2tl0.u) 

-.000126 

-.000056 

-.000063 

-.000073 

-.000089  -.000108 

-.000123 

CNDA 

A  = 

-»00o045 

-.000024 

CNDA 

A  = 

.0000* 

.000075 

.000077 

.O00076 

.000074  .000065 

.000048 

CNDA 

A  = 

.00006 

.000075 

CNDA 

A  = 

.00017 

.000206 

.000*06 

.000202 

.000192  .00016 

.000172 

CNDA 

Al 

.000212 

.0^9223 

CNDA 

Al 

507 


.000173 

.000245 

.000237  .000222 

.000205 

.000195 

.00019 

CNDA  A 2 

.000192 

.000192 

CNDA  A2 

.00013 

.00025 

.000227  .00018 

.000133 

.00011 

.000097 

CNOA  A2 

.00009 

.00009 

CNDA  A 2 

28  0 
(7810.01 
a. 

28 

0 

NM1 

kb  l 

28 

a 

MACH  NUMdtK  TABL8  1 

(7b 10.0/8 10.0) 

0.2 

0.5 

0.7  O.a 

0.9 

1.1 

l.b 

MACH  1 

2.1 

29  0 
(78i.0.U) 
9. 

29 

0 

NM2 

MACH  1 

29  i 

29 

9 

MACH  NUMbtR  TA8L8  2 

(7tlG. 0/2810.0) 

0.2 

0.8 

0.7  0.8 

0.9 

1.0 

1.  1 

MACH  2 

l.b 

2.1 

MACH  2 

30  0 

(78io. G) 
a. 

30 

0 

NA1 

30  1 

30 

a 

ALPHA  TAbLL  1 

(7810. 0/810.0) 

-4. 

0. 

4  .  3  . 

12. 

16. 

20. 

ALPHA1 

24. 

31  O 
(7810.0) 
6. 

31 

0 

NA2 

ALPHA  1 

31  1 

32 

6 

ALPHA  TAbLL  2 

( <810.0) 

0. 

d. 

12.  lb. 

20. 

24. 

ALPHA2 

32  0 

(7810.0) 
4. 

3*. 

0 

NA3 

32  1 

32 

4 

ALPHA  TAbLL  3 

(7810.0) 

C. 

a. 

lb.  24. 

ALPHA3 

33  0 

(781U.O) 

7. 

33 

0 

NA4 

33  l 

33 

7 

ALPHA  TAbLL  4 

(7810.0) 

0. 

4. 

8.  12. 

lb. 

20. 

24. 

ALPHA4 

34  0 

(7810.0) 
0. 

34 

0 

NA5 

34  1 

d4 

5 

ALPHA  TAbLL  5 

(7810.0) 

0. 

a. 

lb.  20. 

24. 

ALPHA5 

35  0 

35 

0 

NA6 

(7810.0) 

J. 

35  1 

(7810.0) 

35 

3 

ALPHA  TAbLL  b 

o. 

16. 

24. 

ALPHA 6 

36  0 

36 

0 

NA? 

( 7L10. 0 ) 

5. 


36  1 

36 

5 

ALPHA 

TABLE  7 

t?tio.o> 

0. 

8. 

12. 

16.  24. 

ALPHA7 

37  0 

(7E10.0) 

37 

0 

NA8 

:>. 

37  1 

37 

5 

ALPHA 

TABLE  6 

(7b 10.0 ) 

0. 

12. 

16. 

20.  24. 

ALPHA8 

ja  0 

(7E10.0) 

36 

0 

NA9 

H. 

3fc  1 

3b 

4 

ALPHA 

TABLE  9 

(7fcl0.0) 

0. 

12. 

16. 

24. 

ALPHA9 

39  0 

(7blG.O) 
9. 

39 

0 

NA10 

39  1 

39 

5 

ALPHA 

TABLt  10 

I7E1O.0) 

0. 

4. 

8. 

12.  24. 

ALPHA10 

40  0 

(7tlG.0> 
4. 

40 

0 

NA11 

40  L 

*0 

4 

ALPHA 

TABLE  11 

(7b 10.0) 
O. 

6. 

12. 

24. 

ALPHA11 

41  0 

(7bl0.0) 

41 

0 

NA12 

4. 

41  1 

(7blO.O) 

41 

4 

ALPHA 

TABLE  12 

0. 

16. 

20. 

24. 

ALPHA  1 

42  0 

I7bl0.0) 
7. 

42 

0 

NCL 

•*<.  A 

42 

7 

CL  TABLE  ( INQbPbNOENT) 

( 7b 10.0 ) 
0. 

-t 

0.2 

0.4 

0.6  0.8 

0.9  1.0  CLTA8LE 

APPENDIX  K 


EASY 5  INPUT/OUTPUT  LISTS 


This  appendix  contains  input  and  output  tables  for  the  EASY5,  (not 
EASIEST),  standard  components.  Descriptive  figures  are  also  presented 
for  the  more  complex  components. 
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ANALYTIC  FUNCTION  GENERATOR 


A  F 


2 


S 


INPUT 


PHYSICAL 

QUANTITY 

NAME 


PORT 

NO. 


DESCRIPTION 


UNITS 


COD 


Cl 

C2 

C3 

C4 

C5 


Specifies  which  analytic  function  is  calculated. 
(See  equations  below  for  use  of  these  inputs) 


COD  ■  1  S2  *  Cl  +  C2*SIN(C3*t  +  C4) 

2  S2  -  Cl  +  C2 *  COS ( C 3  *  t  +  C4) 

3  S2  -  Cl  +  e-C5*t-(SIN(C3*t  +  C4) ) 

4  S2  -  Cl  +  e'C5,t*(C0S(C3*t  +  C4) ) 

5  S2  -  Cl  ♦  C2*t 

6  S2  -  Cl  +  C2*e 

where:  t  »  TIME 


OUTPUT 


PHYSICAL  1  „„„ 
QUANTITY  i 

NAME  ! 

DESCRIPTION 

UNITS 

S 

2 

Output 

611 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

l 

U(3) 

X,  Y,  Z  BODY  AXIS  LINEAR  VELOCITIES 

FT/SEC 

W(3) 

X,  Y,  Z  BODY  AXIS  ANGULAR  RATES 

DEG/SEC 

ALT 

ALTITUDE  ABOVE  SEA  LEVEL 

FT 

EAC3) 

PITCH,  ROLL,  YAW  EARTH  TO  BODY  AXIS  ANGLES 

DEG 

ID 

1 

INDICATOR  FUNCTION  FOR  AERO  COMPONENTS 

0  -  BODY  AXIS,  DIMENSIONAL 

1  ■  BOOY  AXIS,  NON-DIMENSIONAL 

2  -  STABILITY  AXIS,  OIMENSIONAL 

3  -  STABILITY  AXIS,  NON-DIMENSIONAL 

VS 

STEADY  STATE  (TRIM)  AIRSPEED 

FT/SEC 

ALS* 

STEADY  STATE  (TRIM)  ANGLE  OF  ATTACK 

DEG 

S 

REFERENCE  AREA 

FT2 

uw,  vw, 

WW*.  PW* 

X,  Y,  Z  BOOY  AXIS  WIND  VELOCITIES 

FT/SEC 

QW.  RW* 

1 

X,  Y,  Z  BOOY  AXIS  WIND  ANGULAR  RATES 

DEG/SEC 

♦DEFAULT  VALUES  -  0 


OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

UO(3) 

X.  Y.  Z  BODY  AXIS  VELOCITIES  INCLUDING  WIND 

FT/SEC 

WO  ( 3 ) 

X,  Y,  Z  BODY  AXIS  ANGULAR  RATES  WITH  WIND 

DEG/SEC 

ID 

2 

INDICATOR  FUNCTION  -  ID1 

WW(3) 

2 

ANGULAR  RATE  DUE  TO  GUSTS 

DEG/SEC 

CAL.  SAL 

DIRECTION  COSINES  FOR  STABILITY  AND  BODY  AXES 

AL.  ALP 

ANGLE  OF  ATTACK  IN  BODY  AND  STABILITY  AXES 

DEG 

VT 

TRUE  AIRSPEED 

FT/SEC 

BE 

SIDESLIP  ANGLE 

DEG 

WP,  UP 

Z  &  X  STABILITY  AXIS  VELOCITIES  (DIMENSIONAL) 

Z  &  X  PERTURBATION  VELOCITIES  (NON-DIMEN.) 

FT/SEC 

ELI  (3) 

X.  Y,  Z  BODY  AXIS  ACCEL.  TERMS  FOR  U,  V.  W  SOLUTIONS 

FT/SEC2 

SIG 

STANDARO  ATMOSPHERE  AIR  OENSITY  RATIO 

QC 

COMPRESSIBLE  DYNAMIC  PRESSURE 

LBS/FT2 

QS 

DYNAMIC  PRESSURE  TIMES  REFERENCE  AREA 

LBS 

MAC 

MACH  NUMBER 
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VECTOR  DEFINITIONS 


r/  £A{3) 


(PU\  ( UO\ 

(  ROL  1  UO(3)  -  VO 
\  YAW/  \W0/ 


AV 


WO  ( 3 ) 


WW(3)  -  EU(3)  = 


< COS(ALS)  10  *  2,3 
tl  ID  -  0,1 

(SIN(ALS)  10  3  2,3 

10  10  -  0,1 


AERODYNAMIC  VARIABLE  EQUATIONS 


0  *  Sideslip  angle 
C  *  Cross-wind  vector 
D  3  Drag  vector 


( P+PW ) • CAL+( R+RW ) • SAL 
Q+QW 

( R+RW ) • CAL- ( P+PW ) • SAL 

TAN'^WO/UO) 

-  AL-ALS 

(uo^vo^+wo2)1* 

SIN_1(VO/VT) 

WO'CAL-UO'SAL 

i  UO*CAL+WO*SAL  ID 

UO-VS  *COS (ALS )/VS  ID 
I  UO*CAL+WO*SAL-VS)/VS  ID 


L  3  Lift  vector 
a  3  Angle  of  attack 
9  =  Pitch  angle 


-Q*W+R*V  -  G-SIN(PIT)  I 

-R»U+P*W  +  G*COS(PIT)*SIN{ROL) 
-P*V+Q»U  +  G*COS(PIT) •COS(ROL) 
where  P  ■  P*?r/180,  Q  *  Q*ff/180,  R 


PROJECTION  OF  V  ON 
PLANE  OF  SYMMETRY 


TRACE  OF 

HORIZONTAL  PLANE 


R*  it/ 180 


PROJECTION  OF  g  ON 
PLANE  OF  SYMMETRY 


•  SIG(ALT)  and  A  ■  A(ALT)  obtained  by  table  lookup 

•  %  PO*SIG*(VT)2 
DP$«S 

-  VT/A 

l  DPS«(l+(l+(l+MAC2/40)  MAC 2/10}  MAC2/4) 

'  OPS *(1.839  -  .772/MAC2  +  .164/MAC4  +  .035/MAC6) 


MAC  i  1 
MAC  >  1 
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CONTROL  MOMENT  GYRO 


CG 


CMG  ANGULAR  RATES 

f  ft 

CMG  TORQUES 

MOTOR  TORQUE 

U3 

(See  following  page) 

MOTOR  &  GIMBAL 

ANGLES  AND  RATES 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

!  PORT  , 

!  NO.  ' 

1 

DESCRIPTION 

- 1 - 

UNITS 

W(3) 

;  1 
i 

CMG  Angular  Rates;  P,  Q.  R 

rad/sec 

TR 

I  | 

Motor  Torque 

ft-lbs 

TMI 

•  ( 

Torque  Motor  Inertia 

si ug-f t2 

AO 

i 

Torque  Motor  Rate  Damping  Limit 

rad/sec 

DA 

Torque  Motor  Damping 

ft- 1 b/rad/sec 

GR 

! 

Gear  Ratio 

- 

BDZ 

Gear  Backlash  Dead  zone 

rad 

CS 

! 

Gear  Train  Compliance 

ft- 1 b/ rad/ sec 

CA 

i 

Preload  Spring  Compliance 

f t-1 b/rad/sec 

PLD 

! 

Preload  Oeadzone 

rad 

DG 

1 

Damping 

ft-lb/rad 

GFI 

Gimbal  Inertia 

slug-ft2 

OR 

i  i 

Gimbal  Oamping  Coefficient 

ft-lb/rad/sec 

DRS 

Gimbal  Damping  Saturation  Limit 

ft-lbs 

CB 

Gimbal  Friction  Spring  Term 

ft-lb/rad/sec 

CBS 

:  j 

Gimbal  Friction  Compliance  Limit 

ft-lbs 

OOZ 

;  i 

Gimbal  Oamping  Oeadzone 

rad 

OF 

Gimbal  Friction  Equivalent  Spring 

- 

OS 

Gimbal  Viscous  Friction 

ft-lb/rad/sec 

H 

;  i 

_ 

Angular  Momentum 

ft-lb-sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

|  1 

PORT  1 

1  NO.  I 

1 

DESCRIPTION 

f 

UNITS 

*AL 

!  -  -  4 

Torque  Motor  Angle 

rad 

ALD 

Torque  Motor  Rate 

rad/ sec 

•AX 

i 

Torque  Motor  Intermediate  State 

rad/sec 

*SG 

i 

Relative  Gimbal  Angle 

rad 

SGO 

Relative  Gimbal  Angle  Rate 

rad/sec 

•SGI 

j 

Inertial  Gimbal  Angle 

rad 

*SF 

i 

Gimbal  Friction  Spring  Term 

T(3) 

i 

i 

CMG  X,  Y,  Z  Axis  Torques 

ft-lbs 

•These  outputs  are  states 


COMSS) 


DISCRETE  DELAY 


s  1 

1 

2 

S 

(N  x  1) 

Z 

(N  x  1)" 

INPUT 


PHYCICAl 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

• 

Input  quantity 

TAU 

Sample  period 

seconds 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

2 

Delay  output  (Oelay  state) 

EQUATIONS: 

S2(N)  -  Z'1  [s 1 ( N )] 

2"1  f  1  »  Oiscrete  delay  operator  of  TAU  seconds 


NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 
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k» 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

1 

Input  Quantity 

Z0(N) 

Numerator  coefficient  (S-plane) 

Z1  ( N ) 

Numerator  coefficient  (S-plane) 

Z2(N) 

Numerator  coefficient  (S-pTane) 

P0(N) 

Denominator  coefficient  (S-plane) 

P1(N) 

Denominator  coefficient  (S-plane) 

TAU 

Sample  period 

sec 

OUTPUTS 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

HI 

2 

Output  quantity  (Sample) 

mm 

Intermediate  output  (Delay) 

WKfr&Crjd 

Intermediate  output  (Delay) 

EQUATIONS: 

D2  -  Z'1  A2*S1  -  B2-S2 
01  -  Z‘l  02  +  A 1 • S 1  -  B1-S2 
S2  -  A0-S1  +  01 

Z**[  ]  =  discrete  delay  operator 

AO  n,  A2  and  80  +  B1  are  related  to  S-plane  coefficients  by  applying 
prewarping  and  bilinear  transformation; 

(\  -  A\  to  each  of  the  singularities,  W^, 

jAu  +  ^  of  the  numerator  and  denominator. 

Note:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs.and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 
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PHYSICAL  | 

i 

PORT 

NO. 

| 

QUANTITY  I 

DESCRIPTION  j 

UNTTS 

NAME  j 

1 

■  -  -  j 

S 

■ 

1 

i 

Numerator 

S 

■ 

3 

Denominator  1 

PHYSICAL 
QUANTITY 

NAME  N°* 

S(N)  2  Quotient 

EQUATIONS: 


DESCRIPTION 


S3(N) 


NOTE:  N  may  be  specified  at  Model  Generation  time,  to  allow  Inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1,0 
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FIRST  ORDER  LAG  EN6INE  MODEL 


THR 

1 

TH 

BODY  AXIS 

F  ( 3 )_ 

TCO*S  +  1 

TRANSFORMATION 

T(3)’ 

SAX,  GAZ,  XO,  ZO 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

TCO 

Engine  time  constant 

sec 

THR 

Required  thrust  level 

lbs 

GAX,  GAZ 

X,  Z  body  axis  direction  cosines 

XO,  ZO 

X,  Z  thrust  location  components 

ft 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

TH 

S 

Thrust  output  -  state 

lbs 

F(3) 

Eg 

X,  Y,  Z  body  axis  forces 

lbs 

T(3) 

■ 

Axis  torques  (pitching  moment) 

ft-lbs 

EQUATIONS 
TH  » 


F(l) 
F(2) 
F(3) 

T(l) 
T(2) 
T(3) 
*TCO  -  Yields 
TH  -  THR 


(THR  -  TH)/TCO 

*  TH*GAX 

•  0 

*  TH»GAZ 

■  0 

*  (ZO*FX 

■  0 


X)*FZ 


[IT®] 


L»J 


[ill 


BJi 


S2  +  2fWnS  +  Wn2 


PHYSICAL  PORT 
QUANTITY  jgn 

NAME 


PHYSICAL  „„nT 
QUANTITY  P?PT 
NAME 


DESCRIPTION 

UNITS 

X,  Y,  Z  body  axis  torques 

Mode  gain,  G 

Mode  damping,  f 

Mode  natural  frequency,  Wn 

X,  Y,  Z  body  axis  coefficients  to  convert 

ft-lbs 

rad/ft-lb-sec 

rad/sec 

OUTPUT 

DESCRIPTION 

UNITS 

Mode  amplitude  -  state 

Mode  rate  -  state 

rad 

rad/sec 

EQUATIONS  OF  MOTION: 

AD  *  ( (GAI *(CX( I ) *T( I)  +  CX(2)»T(2)  +  CX(3)-T(3) ! 

A  »  AD 


-  A)*WN  -  2 • DMP * AD ) *WN 


This  component  Is  used  with  FP  to  produce  angular  rates  due  to  flexible  structure. 


FLEXIBLE  MODE  AMPLITUDE-TO-DEFLECTIONS  AND  RATES 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

A 

Mode  amplitude 

rad 

AD 

Mode  rate 

rad/sec 

CW(3) 

X,  Y,  Z  body  axis  coefficients  to  convert 
mode  amplitude  to  body  axis  rates 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

EA(3) 

W(3) 

X,  Y,  Z  body  axis  angular  deflections 

X,  Y,  Z  body  axis  rates 

rad 

rad/sec 

EQUATIONS: 

ROL  -  CP* A 
PIT  -  CQ*A 
YAW  -  CR*A 
P  «  CP* AD 
Q  •  CQ*AD 
R  «  CR*AD 


VECTOR  DEFINITIONS: 


NOTE:  This  component  Is  used  with  FM  to  produce  angular, 
deflections  and  rates  due  to  flexible  structure. 


FUNCTION  GENERATOR 


s  1 

S2 

|^-V - - 

2  S 

r  .. 

si 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S 

1 

Input  quantity 

AN 

Degree  of  Interpolation  (AN<0  prevents 
extrapolation) 

FT  A 

Tabular  values  of  function 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

I 

DESCRIPTION 

i 

UNITS 

S 

2 

Output  quantity 

EQUATION: 

S2  ■  FTA(Sl) 


NOTE:  A  maximum  of  18  points  Is  allowed  In  the  table 
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s 

1 

Input  quantity 

s 

3 

Input  quantity 

AN 

Degree  of  interpolation  for  SI* 

BN 

Degree  of  interpolation  for  S3* 

FTA 

Table  of  functional  relationships 

OUTPUT 

PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

S 

2 

Output  quantity 

EQUATION: 

S2  -  FTA(S1,  S3) 

*  A  negative  value  for  AN  or  BN  prevents  extrapolation  beyond  the  table  boundaries 


I 


II 


mh 


[lj 


S2  «  f(Sl,S3,S4] 


PHYSICAL 

QUANTITY 

NAME 

PORT 

DESCRIPTION 

S 

1 

INPUT  QUANTITY 

S 

3 

INPUT  QUANTITY 

S 

4 

INPUT  QUANTITY 

ANX 

DEGREE  OF  INTERPOLATION  FOR  SI* 

ANY 

DEGREE  OF  INTERPOLATION  FOR  S3* 

ANZ 

DEGREE  OF  INTERPOLATION  FOR  S4* 

FTA 

TABLE  OF  FUNCTIONAL  RELATIONSHIPS 

UNITS 


OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

DESCRIPTION 

S 

2 

OUTPUT  QUANTITY 

UNITS 


EQUATION:  S2  »  FTS(S1,S3,S4) 


*  A  NEGATIVE  VALUE  PREVENTS  EXTRAPOLATION  BEYOND  THE  TABLE  BOUNDARIES. 
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FEEDER  AND  CIRCUIT  BREAKER 
INPUT 


PHYSICAL 

QUANTITY 

NAME 

FIGURE 

3.0-1 

NAME 

DESCRIPTION 

UNITS 

ed1 

Load  Voltage,  D-Axis  Component 

p.u. 

eql 

Load  Voltage,  Q-Axis  Component 

p.u. 

*d 

Generator  Current,  D-Axis  Component 

p.u. 

Generator  Current,  Q-Axis  Component 

p.u. 

h 

8ase  Value  of  Current,  Peak 

amps 

RNL 

rnl 

No-Load  Shunt  Resistance 

Default  Value  ■  50.0 

p.u. 

RSI 

RS1 

Simulated  Breaker  Open  Circuit  Resistance 

p.u. 

RW 

«u 

Feeder  Resistance 

P.u. 

XU 

Feeder  Resistance 

p.u. 

XC 

m 

No-Load  Shunt  Capacitive  Reactance 

Default  Value  *  50.0 

p.u. 

UO 

■ 

Base  Frequency  (WO  *  Wzero) 

rads/sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

FIGURE 

3.0-1 

NAME 

DESCRIPTION 

UNITS 

♦EDO 

ed 

Generator  Terminal  Voltage,  D-Axis  Component 

p.u. 

*EQ0 

eq 

Generator  Terminal  Voltage,  Q-Axis  Component 

P.u. 

♦ADO 

1-dl 

Load  Current,  D-Axis  Component 

p.u. 

♦AQO 

*ql 

Load  current,  Q-Axis  Component 

p.u. 

ARO 

Ip 

Real  Current 

amps 

AIO 

!q 

Imaginary  Current 

amps 

AT 

Total  Line  Current,  RMS 

amps 

PF 

Power  Factor 

RTF 

Intermediate  Quantity 

P.u. 

PHI 

5l 

Load  Voltage  D-Q  Angle 

radians 

*  This  output  quantity  is  a  state. 


F2 


EQUATIONS: 

RTF  *  RS1+RW 

PHI  »  ATAN -(EDI/EQI) 

ARO  «  ( AB/1. 4142) ’(1/SQRTC EDI *EDI+EQI*EQI ) ) * (EDI •ADO+EQI *AQO) 
AIO  -  (AB/1.4142Hl/SQRT(EDI«EDI+EQI*EQI)WAOO*EQI-EDI*AQO) 
AT  -  SQRT(ARO*ARO+AIO»AIO) 

PF  »  COS(ATAN(AIO/ARO) ) 

EDO  •  (WO/RNL) *(-EDO*XC+EQO*RNL+AQI,XC,RNl-AOO,XC‘RNL) 

EQO  -  (WO/RNL) •(-EQO,XC-EDO*RNL~AQO*XC*RNL+AQI*XC,RNL) 

ADO  «  (WO/XW) •(-ADO‘RTF+AQO*XW+EDO-£DI ) 

AQO  »  (WO/XW) • ( -AQO*RTF-ADO 'XW-EQI+ EQO ) 


GENERATOR  -  EXCITER  r% 

OUTPUT 

PHYSICAL 

QUANTITY 

DESCRIPTION 

UNITS 

NAME 

NAME 

A1 

*d 

Generator  Current,  D-Axis  Component 

p.u. 

A2 

iq 

Generator  Current,  Q-Axis  Component 

p.u. 

A3 

V 

Generator  Field  Current 

p.u. 

*A4 

Component  of  D-Axis  Amortisseur  Flux 

p.u. 

*A5 

Component  of  Q-Axis  Amortisseur  Flux 

p.u. 

A7 

Generator  Saturation  Correction  Current 

p.u. 

A9 

V 

Exciter  Field  Current 

amps 

E3 

e 

p 

Exciter  Output  Voltage 

vol  ts 

E4 

eed 

Exciter  Output  -  A.C.  Voltage 

volts 

E5 

eed 

Voltage  Behind  Exciter  Transient  Reactance 

volts 

E6 

ef 

Generator  Main  Field  Voltage 

p.u. 

*E7 

*0 

Internal  Parameter 

*SD 

Armature  Flux,  D-Axis 

P.u. 

*SQ 

Armature  Flux,  Q-Axis 

P.u. 

*SMC 

H 

Internal  Parameter 

SM 

^md 

Mutual  Flux,  D-Axis 

P.u. 

SN 

Input  to  Saturation  Table,  FAl 

P.u. 

TO 

td 

Generator  Output  Torque 

p.u. 

‘This  output  quantity  is  a  state. 
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GENERATOR  -  EXCITER 
INPUT 


PHYSICAL 

QUANTITY 

NAME 

FIGURE 

3.0-2 

NAME 

DESCRIPTION 

UNITS 

AFB 

*fb 

Exciter  Current  Base  Value 

amps 

EFB 

Efb 

Exciter  Voltage  Base  Value 

volts 

El 

ed 

Generator  Terminal  Voltage,  D-Axis  Component 

p.u. 

E2 

eq 

Generator  Terminal  Voltage,  Q-Axis  Component 

p.u. 

E8 

V 

Voltage  Into  Exciter  Field 

vol  ts 

FA1 

AM* 

fl 

Generator  Saturation  Function  (Table) 

Degree  of  Interpolation  for  Table  FA1 

FE4 

AN* 

fef 

Exciter  Saturation  Function  (Table) 

Degree  of  Interpolation  for  Table  FE4 

K1 

ki 

Exciter  Current  Rectification  Constant 

K2 

k 

v 

Exciter  Voltage  Rectification  Constant 

PSM 

PSM 

1/Time  Constant 

Default  Value  a  10000.0 

rad/sec 

R1 

Rkd 

Amortisseur  Resistance,  D-Axis  Component 

p.u. 

R2 

Rkq 

Amortlsseur  Resistance,  Q-Axis  Component 

p.u. 

R3 

Rf 

Generator  Field  Resistance 

p.u. 

R4 

Ra 

Armature  Resistance  Per  Phase 

p.u. 

R5 

V 

Exciter  Field  Resistance 

ohms 

T1 

Te 

Exciter  Field  Open-Circuit  Time  Constant 

secs 

WO 

wo 

Base  Frequency  (WO  »  Wzer0) 

rad/sec 

w 

w 

Input  Speed 

p.u. 

XI 

xfl 

Generator  Field  Leakage  Reactance  3  WO 

p.u. 

X2 

Xmd 

Mutual  Reactance,  D-Axis  3  WO 

P.u. 

X3 

x 

mq 

Mutual  Reactance,  Q-Axis  3  WO 

P.u. 

<4 

Xkdl 

Amortisseur  Leakage  Reactance,  D-Axis  3  WO 

p.u. 

X5 

Xkql 

Amortlsseur  Leakage  Reactance,  Q-Axis  3  WO 

p.u. 

X6 

x 

al 

Armature  Leakage  Reactance  3  WO 

p.u. 

X7 

Xed 

Synchronous  Reactance,  Exciter  D-Axis 

ohms 

X8 

Xed 

Transient  Reactance,  Exciter  D-Axis 

ohms 

K3 

K3 

Saturation  Function  Adjustment  PS I -MD 

Default  Value  ■  1.0 

K4 

K4 

Saturation  Function  Adjustment  ED 

Default  Value  -  0.3 

*  A  negative  value  prevents  extrapolation  beyond  the  table  boundaries. 


PROBABILITY  DENSITY  ANALYSIS 


HG 


s 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

- , - 

i 

*  UNITS 

s 

1 

Input  quantity  to  be  monitored 

i 

FUP 

Upper  limit  for  histogram 

t 

FLO 

Lower  limit  for  histogram 

1 

1 

STR 

Parameters  to  initialize  calculation 

_ 

(DEFAULT  provided) 

i _ 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT  ! 
!  NO. 

I 

1 

DESCRIPTION 

UNITS 

FI  -  F16 

i 

Output  array  containing  histogram  data 

1 

FA 

I 

1 

Measurement  interval 

The  input  quantity  is  monitored  during  a  SIMULATE  analysis. 

When  time  reaches  TMAX,  a  histogram  is  produced  with  16  intervals 
that  span  the  range  from  FUP  to  FLO. 

The  histogram  is  drawn  on  page  of  the  output  history. 
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HYSTERESIS 


HY 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

1 

Input  quantity 

GAI(N) 

Gain 

OEL(N) 

1/2  Histeresis  Band  Width 

— 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

2 

Output  quanti ty 

SL(N) 

Previous  input  value 

CU(N) 

Curve  number 

TL 

Previous  time 

CPU 

Precalculation  indicator 

NOTE:  N  specifies  the  number  of  modes  and  is  specified  at  Model  Generation  time. 
The  default  value  of  N  is  1.0. 

This  component  is  used  in  conjunction  with  ME,  MM,  MT,  and  MF. 


r 


INTEGRATOR 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

Input 

Integration  gain 

OUTPUT 

PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

*S(N) 

2 

Output 

i. 


EQUATIONS: 

S2  -  GKI-S1 


•This  output  is  a  state 


NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 
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INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

S(N) 

1 

Input 

GKI (N) 

Integration  gain 

GKL(N) 

Saturation  limiter  gain 

AMA(N) 

Upper  limit  of  output  (Default  =  1036) 

AMI(N) 

Lower  limit  of  output  (Default  =  -1036) 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

2 

Output 

EQUATIONS: 

S2  -  GKI [S I  -  GKL(S2  -  AMA)]  ,  if  S2  >  AMA 

S2  ■  GKI*S1  ,  If  AMI  4  S2SAMA 

S2  -  GKI [SI  -  GKL(S2  -  AMI)]  ,  if  S2  <  AMI 

*  This  output  is  a  state 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 


PHYSICAL 

QUANTITY 

mm 

DESCRIPTION 

UNITS 

NAME 

■SHI 

ER 

E  INFINITE  BUS 

VOLTAGE  AT  INFINITE  BUS 

PU 

WI 

U)  INFINITE  BUS 

FREQUENCY  AT  INFINITE  BUS 

RAD/SEC 

WO 

UiQ 

BASE  FREQUENCY 

PU 

Wl 

u>l 

SHAFT  ROTATION  RATE 

RAD/ SEC 

OUTPUT 

PHYSICAL 

QUANTITY 

FIGURE 

NAME 

NAME 

DESCRIPTION 

UNITS 

El 

l«n 

OIRECT  VOLTAGE 

PU 

E2 

QUADRATURE  VOLTAGE 

PU 

UA 

GENERATOR  FREQUENCY 

RAD/ SEC 

*  TA 

<(TA) 

TORQUE  ANGLE 

RADIANS 

TX 

- 

TORQUE  ANGLE 

DEGREES 

*  THIS  OUTPUT  QUANTITY  IS  A  STATE 


s 


FIRST  ORDER  LAG  TRANSFER  FUNCTION 


1 

GAI 

2  S 

TC*S  +  1 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

1 

Input 

GAI(N) 

Gain 

TC(N) 

Time  constant 

seconds 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

— 

DESCRIPTION 

UNITS 

mm 

2 

Output 

EQUATIONS: 

S2  *  (GAI-SI  -  S2)/TC 


NOTE:  O.C.  gain  *  GAI 

and  time  constant  *  TC,  seconds 

infinite  freq.  gain  •  0 
pole  location  *  ~  rad/sec 

I  v 

*  This  output  is  a  state 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs 

and  outputs  to  be  N  dimensional  vectors.  Oefault  value  of  N  is  1.0 
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INPUT  LD 


PHYSICAL 

QUANTITY 

NAME 

— 

PORT 

NO. 

— 

DESCRIPTION 

UNITS 

YB,  YBD 

Side  force  coefficients:* 

Beta  and  Beta  dot  coeff.  (nondlm. ) 

Ib-sec/ft 

V  and  V  dot  coeff.  (dim.) 

lb-sec2/ft 

YP,  YR 

P  and  R  anqular  rate  coefficients 

lb-sec/deg 

YOR,  YDA 

Rudder  and  aileron  coefficients 

Ib/deg 

LB,  LBO 

Rolling  moment  coefficients:* 

Beta  and  Beta  dot  coeff.  (nondim. ) 

lb-sec 

V  and  V  dot  coeff.  (dim.) 

lb-sec? 

LP,  LR 

P  and  R  angular  rate  coefficient 

ft-lb-sec/deg 

LOR,  LOA 

Rudder  and  aileron  coefficients 

ft-lb/deg 

NB,  NBD  i 

Yawing  moment  coefficients:* 

1 

j 

Beta  and  Beta  dot  coeff.  (nondim.) 

lb-sec 

i 

i 

V  and  V  dot  coeff.  (dim.) 

lb-sec? 

NP,  NR  | 

P  and  R  angular  rate  coefficients 

ft-lb-sec/deg 

NDR,  NOA 

Rudder  and  aileron  coefficients 

ft-lb/deg 

RUD,  AIL  j 

Control  Surfaces:* 

! 

Rudder  and  aileron  deflections 

deg 

UD,  WO 

Longitudinal  accelerations:* 

X  and  Z  body  axis  acceleration 

ft/sec? 

F  ( 3) 

External  forces* 

lbs 

T(3) 

External  torques* 

ft-lbs 

UO(3) 

X,  Y,  Z  body  axis  velocities 

ft/sec 

WO  ( 3 ) 

X,  Y,  z  body  axis  angular  rates 

deg/sec 

BE 

Sideslip  angle 

deg 

EV 

Y  body  axis  acceleration  term  for  VD 

ft/sec? 

VT 

True  airspeed 

ft/sec 

QS 

Dynamic  pressure  x  reference  area 

lbs 

RW 

_ 

Y  body  axis  angular  rate  gust 

deg/sec 

VECTOR  DEFINITIONS: 

F(3)  »  (fy)  T(3)  -  ^TY^  UO(3)  ■  ^VO^  W°(3)*(r[|) 


*  Small  Beta  angle  approximation 


INPUT 


LD 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

ID 

Indicator  function  for  coefficients 

0  ■  body  axis,  dim. 

1  *  body  axis,  nondlm. 

2  3  stability  axis,  dim. 

3  3  stability  axis,  nondim. 

CAL,  SAL 

Direction  cosines  for  body  or  stability  axes, 
depending  on  ID 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

FY 

2 

Y  body  axis  force  sum 

■MM 

VD 

Y  body  axis  acceleration 

TX,  TZ 

2 

X  and  Z  axis  (ROLL  and  YAW)  moments 

SI 

CONSTANTS 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

MA 

Rigid  body  mass 

slugs 

B 

Wing  span 

ft 

XP* 

X  axis  c.p.  -  c.g. 

ft 
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LATERAL-AERODYNAMIC  FORCES  AND  MOMENTS  (Implicit  form) 


DIMENSIONAL  EQUATIONS: 

FY,_  *  YB'VO  +  YBD*(V+VW)  +  YP*PO  +  YR»RO  +  YDR«RUD  +  YDA*AIL, 

flcrO 

where 

V  -  VD  «  FY2/MA  +  EW 
VW  -  RW*VT*ff/180 

TX„  _  -  LB*V0  +  LBD(V+VW)  +  LP*P0  +  LR*RO  +  L DR»RUD  +  LDA*AIL 
aero 

TZ  _  »  NB*V0  +  NBD(V+VW)  +  NP*P0  +  NR*R0  +  NDR*RUD  +  NDA*AIL 
aero 


NONDIMENS IONAL  EQUATIONS: 

FY  -  QS*(YB*BE  +  (YBO'BETA  +  YP*P  +  YR»R)  B/(2»VT)  +  YDR*RUD  ♦  YDA*AIL) , 
dfiro 

where 

BETA  *  V*( 1  -  BE2)/VT  -  BE  (UO*UD  +  W0*WD)/VT2  +  RW* 

BE  -  BE*ir/l80,  etc.  for  P,  R,  RUD,  AIL,  RW 

TXaero  *  QS'B'(LB'B£  *  (LBD-BETA  *  LP-P  *  LR*R)*B/(2*VT)  +  L DR* RUD  +  LDA -AIL ) 
TZatt^  *  QS*B*(NB*BE  +  (NBD'BETA  +  NP’P  +  NR-R ) • 8/ (2-VT)  +  NDR'RUD  +  NDA-AIL) 

aero 


FORCE  AND  TORQUE  SUM: 

FY2  -  FYaero  +  FY1 


TX2  - 


aero 


aero* 


+  TX1 
CAL  -  TZ 


aero 


SAL  +  TX1 


ID  -  0,  1 
ID  -  2,  3 


TZ2  - 


(  Tzaero 
/  YZaero 


+  TZ1  +  XP*FYaero 

CAL  +  TXaen)*SAL  +  XP*FY 


aero 


ID  -  0,  1 
ID  -  2,  3 


♦Small  Beta  angle  approximation 
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FIRST  ORDER  LEAD-LAG'  FUNCTION 


s 

1 

GAI (S  +  ZO) 

2 

S  +  PO 

LE 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

—  -  j 

PORT 

NO. 

j  - 

1 

i  DESCRIPTION 

i 

l . 

UNITS 

S(N) 

1 

! 

i  Input  quantity 

GAI(N) 

Z0(N) 

i 

Infinite  frequency  gain  I 

Numerator  coefficient 

rad/sec 

PO(N) 

Denominator  coefficient  j 

i 

rad/sec 

OUTPUT 


PHYSICAL 

QUANTITY 

PORT 

NO. 

DESCRIPTION 

UNITS 

NAME 

Intermediate  quantity 

_Lj 

Output  quantity  -  variable 

EQUATIONS: 

S2  -  GA I  *  S 1  +  XI 
XI  -  GAI-S1-ZO  -  S2*P0 


NOTE: 

d.c.  gain 


GAI«ZO 

PO 


zero  location  *  -ZO 
Infinite  frequency  gain  *  GAI 
pole  location  *  -PO 


NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  Inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  Is  1.0 


FIRST  ORDER  LAG  TRANSFER  FUNCTION 


s 

1 

zo 

2 

S 

S  +  PO 

LG 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

- 

DESCRIPTION 

UNITS 

S(N) 

1 

Input  quantity 

ZO(N) 

Numerator  coefficient 

rad/sec 

P0(N) 

Denominator  coefficient 

rad/sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

ifiifl 

1 

DESCRIPTION 

UNITS 

S(N) 

2 

Output  quantity  (state) 

EQUATION: 

S*2  »  ZO-S1  -  P0*S2 

NOTE: 

d.c.  gain  - 

tlme  constant  * 

infinite  frequency  gain  *  0 
pole  location  -  -P0 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  Is  1.0 
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LEAD- 


GAI(TC1-S  +  1) 


TC2*S  +  1 


S(N) 

1 

— 

Input  quantity 

TC1(N) 

Numerator  time  constant 

sec 

TC2(N) 

Denominator  time  constant 

sec 

GAI(N) 

Gain 

OUTPUT 

PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

*X1(N) 

Intermediate  quantity  (state) 

S(N) 

2 

Output  quantity  (variable) 

EQUATIONS: 

S2  -  (XI  +  $1*TC1*GAI )/TC2 
XI  -  GAI-S1  -  S2 


NOTE: 

d.c,  gain  *  GAI 

Infinite  gain  *  1 

TC2 

TC 1 

zero  location  «  --Ly1-  , 
TC2 

pole  location  «  -  , 


rad/sec 

rad/sec 


♦This  output  quantity  Is  a  state 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  Inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  Is  1.0 
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INPUT  l 

o 

■ 

PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

X  axis  force  coefficients:* 

XO 

Bias  coeff.  for  trim 

lbs 

XA 

Alpha  coeff.  (nondlm.) 

Z  axis  velocity  coeff.  (dim.) 

lb-sec/ft 

XU 

X  axis  velocity  coeff. 

lb-sec/ft 

XDE 

Elevator  coefficent 

Ib/deg 

Z  axis  force  coefficients:* 

ZO 

Bias  coeff.  for  trim 

lbs 

ZA,  ZAD 

Alpha  and  Alpha  dot  coeff.  (nondim.) 

Z  axis  veloci ty 

lb-sec/ft 

and  accel.  coeff.  (dim.) 

lb-sec?/ft 

XQ 

Z  angular  rate  coeff. 

lb-sec/deg 

ZU 

X  axis  velocity  coeff. 

Ib-sec/ft 

ZDE 

Elevator  coeff. 

lb/deg 

Pitching  moment  coefficients:* 

MO 

Bias  coeff.  for  trim 

ft- 1  b 

MAL,  MAD 

Alpha  and  Alpha  dot  coeff.  (nondim.) 

Z  axis  velocity 

lb-sec 

and  accel.  coeff.  (dim.) 

lb-sec^ 

MQ 

Q  angular  rate  coeff. 

ft-lb-sec/deg 

MU 

X  axis  velocity  coeff. 

lb-sec 

MDE 

Elevator  coeff. 

ft-lb/deg 

Constants: 

MA 

i 

Rigid  body  mass 

slugs 

C 

Mean  and  aerodynamic  chord 

ft 

XP* 

i 

X  axis  distance:  c.p.  -  c.g. 

ft 

ID 

Indicator  function  for  coefficients 

0  ■  body  axis,  dim. 

1  ■  body  axis,  nondim. 

2  *  stability  axis,  dim. 

3  ■  stability  axis,  nondim. 

‘Default  values  ■  0 
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INPUT 


LO 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

CAL,  SAL 

WjM 

Direction  cosines  for  stability,  body  axes 

External  forces  and  moments:* 

F  ( 3 ) 

X,  Y,  Z  body  axis  forces 

lbs 

T(3) 

Body  axis  (pitching)  moment 

ft-lb 

Aero-Variables: 

ELE* 

1 

Elevator  deflection 

deg 

AL,  ALP 

Alpha  In  body  and  stability  axes 

deg 

UO 

1 

X  body  axis  velocity 

ft/sec 

UP,  WP 

■  I 

X  and  Z  perturbation  velocities  (nondlm.) 

X  and  Z  stability  axes  velocities  (dim.) 

ft/sec 

VT 

n 

True  airspeed 

ft/sec 

Q$ 

| 

Dynamic  pressure  x  reference  area 

lbs 

00.  QW 

| 

Y  body  axis  angular  rate,  rate  gust 

deg/sec 

EU(3) 

■ 

X,  Y,  Z  axis  accel.  terms  for  UD,  WD 

ft/sec2 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

FX,  FZ 

2 

X  and  Z  body  axis  force  sum 

lbs 

TY 

2 

Y  body  axis  (pitching)  moment 

ft-lbs 

UO,  WO 

X  and  Z  body  axis  acceleration 

ft/sec2 

MA 

2 

Rigid  body  mass 

slugs 

XP 

2 

X  axis  distance:  c.p.  -  c.g. 

ft 

*0e fault  value  ■  0 


VECTOR  DEFINITIONS: 

/  FX  \  /  TX  \  /  EU  \ 


LONGITUDINAL  AERO  -  FORCES  AND  MOMENTS 
(Implicit  Form) 


DIMENSIONAL  EQUATIONS 

FX  *  XO  +  XA*WP  +  XU-UP  +  XDE-ELE 
aero 

FZ  -  ZO  +  ZA-WP  +  ZAD-(W  +  WW)  +  ZQ-QO  +  ZU-UP  +  ZDE-ELE, 
aero 

where 

W  »  WD  -  UD-SAL* 

WW  *  -QW-VT 

TY  «  MO  +  MAL- WP  +  MAD-(W  +  WW)  +  MQ-QO  +  MU-UP  +  MDE-ELE 
aero 


NONDEMENS  I ONAL  EQUATIONS 

FX  *  QS • ( XO  +  XA-ALP  +  XU-UP  +  XDE-ELE) 
aero 

FZaero  ■  QS-(ZO  +  ZA-ALP  +  (ZAD -(ALPHA  -  QW)  +  ZQ-QO )- C/ ( 2- VT  +  ZU-UP  +  ZDE-ELE), 

where 

ALPHA  -  (WD  -  AL»UD)/UO* 

ALP  3  ALP-^/180,  etc.,  for  ELE,  QW,  QO,  AL 

TY  =■  QS-C-(MO  +  MAL-ALP  +  (MA0-(ALPH  -  QW)  +  MQ-QO)-C/(2  VT)  +  MU-UP  +  MDE-ELE) 

afiiO 


FORCE  AND  TORQUE  SUM 

FXc  „  *  Fxa^  +  FX1-CAL  +  FZ1-SAL 
sum  aero 

FZ  -  FZ„„  +  FZ1-CAL  -  FX1-SAL 
sum  aero 


FX2  * 

FX, 

CAL  -  FZ,  -SAL 

sum 

sum 

FZ2  * 

FZ,  m 

CAL  +  FX  -SAL 

sum 

sum 

TY2  = 

TY 

aero 

+  TY1  -  XP-(FZ. 

< 

aero 


aero 


-SAL) 


ACCELERATIONS 

UD  *  FX2/MA  +  EU 
WD  »  FZ2/MA  +  EW 


•Small  alpha  angle  approximation. 
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INPUT 


DESCRIPTION 

UNITS 

AO  I 

1  dl 

Load  Current,  O-Axis  Component 

p.u. 

AQI 

’ql 

Load  Current,  Q-Axls  component 

p.u. 

RS2 

RS2 

Linear  Load,  Simulated  Open-Circuit  Resistance 

p.u. 

RL 

rl 

Linear  Load  Resistance 

p.u. 

RNL 

1 

rnl 

No-Load  Shunt  Resistance 

Default  Value  ■  50.0 

p.u. 

XL 

XL 

Linear  Load  Reactance 

p.u. 

XC 

Xc 

No-Load  Shunt  Capacitive  Reactance 

Default  Value  ■  50.0 

p.u. 

WO 

wo 

Base  Frequency  (WO  *  w2er0! 

rads/sec 

_ OUTPUT _  j 


PHYSICAL 

QUANTITY 

NAME 

FIGURE 

3.0-3 

NAME 

DESCRIPTION 

•EDO 

edl 

Load  Voltage,  D-Axis  Component 

*EQ0 

eq1 

Load  Voltage,  Q-Axis  Component 

*ADS 

'1 

Intermediate  Quantity  (State) 

*AQS 

Intermediate  Quantity  (State) 

RTL 

Intermediate  Quantity 

EQUATIONS: 


EDO  *  WO  *XC • ( -EDO/RNL+AQI -ADS+EQO/XC ) 
EQO  -  WO • XC • ( -EQO/RNL+AQ I -AQS-EOQ/ XC ) 
ADS  -  -AOS-WO*RTL/XL+EDO*WO/XL+AQS«WO 
AQS  -  -AQS*WO*RTL/XL+EQO*WO/XL-AOS*WO 
RTt  -  RS2+RL 


•This  output  quantity  Is  a  state. 


MULTIPLY  AND  ADD 


▲ 


S2  -  Cl-Sl  +  C2 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

1 

Input  quantity 

C1(N) 

Input  quantity 

C2(N) 

Input  quantity 

PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

S(N) 

2 

DESCRIPTION 


UNITS 


EQUATION: 

S2  -  Cl-Sl  +  C2 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  1"p'**r  a 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  Is  1 


r 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

$(N) 

1 

Input  quantity 

S(N) 

3 

Input  quantity 

S  ( N ) 

4 

Input  quantity 

Cl  ( N ) 

Input  quantity 

C2(N) 

Input  quantity 

C3(N) 

Input  quantity 

C4(N) 

Input  quantity 

UNITS 


PHYSICAL 

QUANTITY 

NAME 


PORT 

NO. 


$(N) 


Output  quantity 


OUTPUT 


DESCRIPTION 


UNITS 


EQUATION: 

S2  -  Cl-Sl  +  C2*S3  +  C3-S4  +  C4 


N  nay  be  specified  at  Model  Generation  time  to  allow  Inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 


STRUCTURAL  MODE  DYNAMICS 


s  1 

GAI 

Q  t 

_ QD _ 

(N  x  1) 

S2  +  2*WS  +  W2 

(N  x  1) 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

1 

Mode  excitation 

DMP(N) 

Mode  damping 

WN(N) 

Mode  natural  frequency  -  W 

rad/sec 

GAI (N) 

Mode  gain  at  scale  factor 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

Q(N) 

Mode  position  (state) 

QD(N) 

Mode  velocity  (state) 

1/sec 

QDD(N) 

Mode  acceleration 

1/sec2 

EQUATIONS: 

QDD(I)  -  GAI*S(I )  -  WN ( I ) *(WN(I )*Q(I)  +  2*0MP(I )-QD(I ) ) 
QD(I)  *  QDD(I) 

Q(I)  »  QO(I)  I  -  1,  2,  ....  N 


Freezing  Q(I)  causes  QD ( I )  to  be  frozen  and  QDD(I)  to  be  set  to  zero, 
thus  removing  all  effects  of  that  mode  from  the  model. 

N  specifies  the  number  of  modes,  and  is  specified  at  Model  Generation  time. 
The  default  value  of  N  is  1.0.  This  component  is  used  in  conjunction  with 
ME,  MM,  MT,  and  MF. 
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PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

F(3) 

DCM(N,  3) 

■ 

Disturbance  Force  or  Torque 

Disturbance  coefficient  matrix 
_ 

lbs  or  ftlbs 

OUTPUTS 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

2 

Mode  excitation 

- 

N  specifies  the  number  of  modes  and  is  specified  at  Model  Generation  time. 
The  default  value  of  N  is  1. 


This  component  is  used  in  conjunction  with  MO,  MM,  MT,  and  MF. 


This  component  Is  used  In  conjunction  with  MD,  MM,  MT-— MF. 


PLSf4) 
IM _ 


EARTH'S  MAGNETIC  FIELD  MODEL 


AM6(4) 


MG 


INPUT 

PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

PLG(4) 

■ 

Position  in  local  geographic  coordinates 

IM 

(  -  0  Magnetic  field  in  TESLA 
flag  \ 

'  *  1  Magnetic  field  in  gauss 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

m 

DESCRIPTION 

UNITS 

AMG(4) 

Magnetic  field  data 

VECTOR  DESCRIPTION: 

PLG(l)  *  Distance  from  geocenter,  earth  radii  -  dimensionless 
PLG(2)  *  Co-latitude  *  v/2  -  Geographic  north  latitude,  radians 
PLG(3)  *  Geographic  east  longitude,  radians 

PLG(4)  ■  i  ,  orbit  Inclination  measured  at  ascending  node,  radians 
AMG(l)  -  Magnitude  of  magnetic  field,  tesla  or  gauss 
AMG(2)  *  Magnetic  field  along  line  of  fliqht,  tesla  or  gauss 
AMG(3)  ■  Maqnetlc  field  perpendicular  to  orbit  plane,  tesla  or  gauss 
AMG(4)  Magnetic  field  along  local  vertical,  tesla  or  gauss 
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MOTOR  RIPPLE 


MR 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

TC 

Torque  motor  command 

ma 

AL 

Torque  motor  angle 

rad 

GTM 

Torque  motor  gain 

ft-lb/ma 

TMS 

Torque  motor  saturation  limit 

ma 

C 

Array  of  Ripple  Model  coeffi cents 
and  frequencies  (See  below) 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

TR 

■ 

Motor  torque 

ft-lbs 

EQUATIONS: 

TCS  »  GTM-SATUR  (TC,  TMS) 

TR  -  TCS*(1.  +  C(4)*SIN(C(14)*AL)  +  C(5)*CQS (C ( 1 5 ) * AL ) 

*  C(6)‘SIN(C(16)»AL)  +  C ( 7 ) *  COS (C ( 1 7 )*  AL ) 

+  (C(8)*TCS*TCS  +  C(9)* ABS(TCS)  +  C(10))*SIN(C(18)»AL)  +  C(ll) 
+  SIN(C(21)*AL)  +  C(12 )  • COS (C(22)*AL)  +  C(13)*SIN(C(23)*Al)) 
RIPPLE  MODEL  COEFFICIENTS  S  FREQUENCIES:  C  SUBSCRIPT  USAGE: 


RIPPLE  MODEL  COMPONENT 

COEFFICIENT 

FREQUENCY 

Hall  probe  null 

4 

14 

Common  node 

5 

15 

Hall  probe  placement 

6 

16 

Unequal  gains 

7 

17 

Magnetic  field 

8,  9.  10 

18 

Offset  currents 

11.  12 

21.  22 

Reluctance  (Cogging) 

13 

23 
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TWO  VECTOR  SUM 


MT 


s 

l 

s 

3 

S2  *  SI  +  S3  ■ 

(Nxl) 

s 


(Nxl) 


INPUTS 


PHYSICAL 

QUANTITY 

PORT 

DESCRIPTION 

UNITS 

NAME 

S(N) 

1 

Input  quantity 

- 

S(N) 

3 

Input  quantity 

- 

OUTPUTS 


PHYSICAL 

QUANTITY 

NAME 

PORT 

DESCRIPTION 

UNITS 

S(N) 

2 

Output  quantity 

- 

N  specifies  the  number  of  modes  and  Is  specified  at  Model  Generation  time. 
The  default  value  of  N  Is  1.  This  component  is  used  In  conjunction  with 
MT— ME 
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OPTIMAL  CONTROLLER 


oc 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

■ 

All  optimal  controller  Inputs  are  defined  via  the  O.C. 
INPUTS  command  In  the  EASY  Model  Generation  Program. 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

■ 

All  optimal  controller  outputs  are  defined  via  the  O.C. 
OUTPUTS  command  In  the  EASY  Model  Generation  Program. 

i  .  .... 

NOTE:  Due  to  Its  very  general  nature,  the  Q.C.  component  Is  specified  by  a 
special  set  of  Model  Generation  and  Analysis  commands,  which  all  start 
with  the  letters  O.C.  (See  Section  4.13) 


POWER  FACTOR  CONTROLLER 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

FIGURE 

NAME 

DESCRIPTION 

UNITS 

ED 

ED 

D  AXIS  VOLTAGE 

PER  UNIT 

EQ 

EQ 

Q  AXIS  VOLTAGE 

PER  UNIT 

AD 

AD 

D  AXIS  CURRENT 

PER  UNIT 

AQ 

AQ 

Q  AXIS  CURRENT 

PER  UNIT 

XI 

XI 

LEAD  TIME  CONSTANT 

SEC 

X2 

X2 

LEAD  TIME  CONSTANT 

SEC 

X3 

X3 

INTEGRAL  GAIN  (INVERSE) 

- 

X4 

X4 

LAG  TIME  CONSTANT 

SEC 

PFR 

PFR 

POWER  REFERENCE  FACTOR 

AB 

AB 

BASE  LINE  CURRENT 

AMPS 

VB 

VB 

BASE  LINE  VOLTAGE 

(SEE  CODE) 

CMA 

CMA 

OUTPUT  LIMITER  (MAX) 

PER  UNIT 

CMI 

CMI 

OUTPUT  LIMITER  (MIN) 

PER  UNIT 

G1 

G1 

SATURATION  SLOPE 

- 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

1 

■ 

DESCRIPTION 

UNITS 

. 

INTERMEDIATE  STATE 

*  B2 

- 

INTERMEDIATE  STATE 

ARO 

ARO 

REAL  CURRENT 

AMPS 

All 

All 

REACTIVE  CURRENT 

AMPS 

AT 

AT 

TOTAL  CURRENT 

AMPS 

VPF 

VPF 

OUTPUT  TO  VOLTAGE  REGULATOR 

(SEE  CODE) 

PFL 

PFL 

LINE  POWER  FACTOR 

- 

FIN 

FIN 

ERROR  INPUT 

PER  UNIT 

FO 

FO 

LEAD  LAG  OUTPUT 

PER  UNIT 

*  THESE  OUTPUT  QUANTITIES  ARE  STATES 


F(3) 

RD(3) 

R(3) 

MA 

r  n 

PHYSICAL 

QUANTITY 

NAME 


PORT 

NO. 

DESCRIPTION 

UNITS 

f 

External  Force  Vector,  inertial  axes 

lbs 

Mass 

slugs 

1  Initial  latitude 

deg 

Initial  longitude 

deg 

Initial  altitude 

feet 

Initial  time 

hour 

Initial  date  -  Julian  day 

day 

Initial  velocity 

ft/sec 

Initial  horizontal  flight  path  angle  (azimuth) 

deg 

Initial  vertical  flight  path  angle 

deg 

*  Default  values  of  zero  are  provided  for  these  quantities 

**  Default  value  of  12  is  provided  for  TI 

***  Default  value  of  80  is  provided  for  DA 


OUTPUT 


POSITION  AND  ORIENTATION  OF  POINT  MASS 

I)  _  I  I  1  LA,  LO,  ALT 


PHYSICAL 

QUANTITY 

NAME 


R(3) 

RD(3) 

A(3,3) 

TI 

DA 


PHYSICAL 

QUANTITY 


Position  vector,  inertial  axes 

ft 

Velocity  vector,  inertial  axes 

ft/sec 

Inertial  to  Body  Axis  Transformation  Matrix 

Initial  time 

hours 

Initial  date  -  Julian  days 

days 

OUTPUT 

DESCRIPTION 

UNITS 

Latl tude 

day 

Longl tude 

day 

A1  ti tude 

ft 

Azimuth  angle,  0  »  North  &  clockwise 

deg 

Vertical  flight  path  angle,  +  ■  pitch  up 

deg 

Euler  angles  -  Local  Horizontal  to  Body  Axes 
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PO 

Vehicle  Attitude  relative  to  Local  Horizontal  Transformation  from  Initial 
to  Body  Axes  is  given: 


TBI  *  T1  {(f>)  T2  {6)  T3  W  J2  (‘90  *  <M  t3  (<*  -  A  +  A) 
Separate  Transformation  from  Local  Horizontal  to  Body  Axes 


°BH  s  T1  W  T2  (*>  T3  W  3  TBI  T3  (X  -  a  -  A)  T2  (90  ♦  <J>) 


PO 


Calculation  of  Flight  Path  Angle  and  Euler  Angles  relating  Body  Axes 
to  Local  Horizontal  Axes: 

FI ight  Path  Angles 

Given:  Rj  -  velocity  vector  inertial  coordinates 

<J>  -  latitude 
A  -  longitude 
a  -  time  angle 
\  -  date  angle 

Transform  velocity  vector  into  Local  Horizontal  Axes 
Rh  -  T2  (-90  -  <t>)  T3  (a  -  A  +  A)  Rj 


XN  North 


H  -  azimuth 
y  =  vertical 


horizontal  fl ight  path 
angle 

fl ight  path  angle 


GAM  =  y  =  tan 
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NOISE  GENERATOR  FOR  WIND  MODEL 


NOISE  GENERATOR 
SUBROUTINE  RN 


OUTPUT 


RA 

<  NU 

<  NV 

<  NW 

<  NP 


! 

PORT 

NO. 

! - j 

DESCRIPTION  1  UNITS 

j 

Noise  samples  for  U,  V,  W  gust  velocities 

Noise  sample  for  P  angular  rate  gust  j 

METHOD: 

Call  RN(VAR,  DUM,  SIG,  AMN) 
where 

VAR  -  Gaussian  random  output  variable 
OUM  *  Internal  variable  to  start  RN 
SIG  *  Standard  deviation  of  VAR  ■  /2.0/A ;  where 
A  *  integrator  stepsize 
AMN  ■  Var  mean  value  B  0 

NOTE:  RA  can  only  be  used  with  the  fixed  step  integrator  which  is  specified  by 
the  conmand:  I  NT  MODE  *  3  or  4 
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PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

W(3) 

1 

Three  axis  angular  rates 

rad/sec 

SL 

Rate  gyro  saturation  level  (Same  for  all  axes) 

rad/sec 

DMP 

UN 

Rate  gyro  damping  coefficient,  l 

Rate  gyro  natural  frequency,  Wn 

rad/sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

I 

PORT 

NO. 

DESCRIPTION 

UNITS 

W(3) 

WX(3) 

2 

1 

Three  axis  angular  rates  as  output  by  gyros-states 
Intermediate  states  associated  with  each  rate  gyro 

rad/sec 

EQUATIONS: 

FB  •  W2(I) 

IF(|W2(I)|>SL),FB  -  100*(W1(I)  -  SIGN(SL,  W2(D)  +  SIGN(SL,  W2(I)) 

WX(I )  -  (W1(I)  -  FB)*WN 

W2  ( I )  -  (WX(I)  -  2*DMP*FB)*WN  I  -  1,  2,  3 

Saturation  of  output  state  Is  accomplished  by  increasing  feedback 
gain  by  100  if  output  exceeds  saturation  limit. 

VECTOR  DEFINITIONS: 

Wl(3)  "  (Hi)  W2(3)  “  (l)  WX(3)  "  (rx) 

NOTE:  Component  XP  should  be  used  to  convert  to  and  from  body  axes  to  gyro  axes. 
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PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

AX 

■ 

Seed  (Default  -  43146971.) 

SIG 

■ 

Requested  standard  deviation 

MN 

19 

Requested  mean 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S 

2  i 

Random  number  output 

RN  generates  a  normally  distributed  random  number  each  time  It  is  called. 
The  seed,  AX,  should  be  an  odd  number  greater  than  one. 

This  component  is  automatically  disabled  for  all  analyses  except  SIMULATE. 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S 

1 

Input  quantl ty 

Cl 

Slope  0  <  SI  <  C3 

C2 

Slope  SI  >  C3 

C3 

Positive  saturation  intercept 

C4 

Slope  0  >  SI  >  C6 

C5 

Slope  SI  <  C6 

C6 

Negative  saturation  intercept 

.OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

BS1 

Ka 

1 

DESCRIPTION 

UNITS 

S 

2 

Output  quantity 

EQUATIONS: 

S2  -  C 1 • C3  +  C2*(S1  -  C3)  if  SI  >  C3 
S2  -  Cl-Sl  if  0  <  SI  <  C3 

S2  -  C4-S1  if  0  >  SI  >  C6 

S2  *  C4*C6  +  C5 *(S1  -  C6)  if  SI  <  C6 
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*£^emtvaiBKiii'£2L:ai« . 


S I X-DEGREE-OF-FREEDOM  RIGID  BODY  DYNAMICS  SD 

ACCELERATIONS,  VELOCITIES, 


ACCELERATIONS, 


TORQUES 


SO 


ANGLES  8  POSITIONS 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

UD,  VO,  WD 

X,  Y,  Z  body  axis  linear  accelerations 

ft/sec2 

TX,  TY,  TZ 

X,  Y,  Z  body  axis  torques 

ft-lbs 

IXX,  IYY, 
IZZ 

X,  Y,  Z  body  axis  moments  of  inertia 

si ug-ft2 

IXZ,  IXY, 
IYZ 

Cross  products  of  inertia 

slug-ft2 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

U(3) 

X,  Y,  Z  body  axis  linear  velocities 

ft/sec 

W(3) 

X,  Y,  Z  body  axis  angular  rates 

deg/sec 

EA(3) 

Euler  angles,  body  to  Inertial  axes 

deg 

Horizontal  position  rates 

ft/sec 

♦ALT 

Vertical  altitude  from  sea-level 

ft 

WO(3)  j 

2 

X,  Y,  Z  body  axis  angular  accelerations 

1 _ 1 

deg/sec2 

ASSUMPTIONS: 


1.  Constant  gravity, 
♦These  output  quantities  are  states. 


flat-earth  model . 

x  y 
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SIX  DEGREE  OF  FREEDOM  EQUATIONS  OF  MOTION 
LINEAR  VELOCITY  EQUATIONS 
U  *  UD(1)  =  UDOT(l) 

V  *  UD(2)  *  UDOT ( 2 ) 

W  «  UD(3)  «  UDOT ( 3 ) 

ANGULAR  VELOCITY  EQUATIONS 

TXE  *  TX+YZI*(Q1**2-R1**2)+XZI*P1*Q1-XYI*R1*P1 
+( YYI -ZZI )*Q1*R1 

TYE  *  TY+XZI*(R1**2-P1**? ' ^XYI*Q1*R1-YZI*P1*Q1 
+(ZZI-XXI )*R1*P1 

TZE  »  TZ+XYI*(P1**2-Q1**2 )+YZI*Rl*Pl-XZI*Ql*Rl 
+( XXI-YYI )*P1*Q1 

DETI  =  XXI*(YYI*ZZI-YZI**2)-XYI*{YZI*XZI+ZZI*XYI 
-XZI*(XYI*YZI+YYI*XZI) 

WD(1)  *  (TX£*(YYI*ZZI-YZI**2)+TYE*(XYI*ZZI 
+YZI*XZI )+TZE*(XYI*YZI+YYI*XZI )/DETI 
WD(2)  =  (TXE*(XYI*ZZI+YZI*XZI )+TYE*(XXI*ZZI 
-XZI**2)+TZE*(XXI*YZI+XYI*XZI ) ) / DETI 
WD (3 )  *  (TXE*(XYI*YZI+YYI*XZI }+TYE*(XXl*YZI 
+XYI*XZI )+TZE*(XXI*YYI-XYI**2) )/DETI 

ANGULAR  POSITION  EQUATIONS 

PITD  =  EAD(2)  *  W(2)*CR-W(3)*SR 

PSID  =  W(2)*SR+W(3)*CR)/CP 
EAD(3)  »  PSID 

ROLD  *  EAD(l)  *  W(l)  +  P5ID*SP 
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1 


SD 

LINEAR  POSITION  EQUATIONS 

XO  «  CY(CP*U(1)  +(-SY*CR  +  CY*$PSR)*U{2)  +  (SY*SR  +  CY*SPCR)*Y(3) 
YD  *  SY*CP*U(1)  +  (CY*CR  +  SY*SPSR)*U(2)  +  (-CY*SR  +  SY*SPCR)*U(3) 
ZD  *  SP*U ( 1 ) -CP*SR*U ( 2 ) -CP*CR*U ( 3 ) 


The  following  abbreviations  are  used  in  these  equations: 


SR  =  SIN(ROL) 

SP  *  SIN(PIT) 

SY  *  SIN(YAW) 

SPSR  «  SP*SR 
SPCR  *  SP*CR 


CR  =  COS(ROL) 
CP  =  COS (PIT) 
CY  =  COS(YAW) 


VECTOR  DEFINITIONS: 


UD(3)  - 
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SERVO  ANALYZER  SIGNAL  GENERATOR 


SG 


(This  component  Is  used  with  component  SS) 

INPUTS 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

FR1 

Initial,  (lower),  frequency 

hertz 

FR2 

Final,  (upper),  frequency 

hertz 

AMI 

Initial,  (lower),  amplitude 

- 

AM2 

Final,  (upper),  amplitude 

- 

OUTPUTS 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S 

Test  SI  Test  signal 

- 

F 

Test  signal  frequency 

hertz 

LGF 

Log  of  test  signal  frequency 

— 

AMP 

Amplitude  of  test  signal 

— 

Equations: 

S  *  AMP  sin  (2  Ft) 

Frequency  scan  occurs  If: 

FR2  >  FR1 

Amplitude  scan  occurs  If: 

FR2  <  FR1  or  FR2  -  .99999 
♦"WARNING*** 

This  component  operates  only  with  fixed  step  Huen  integrator  INTMODE  =  3. 
Only  one  SG  Component  can  appear  in  a  given  model. 

For  frequency  scans  the  following  guidelines  have  been  found 
useful  In  selecting  simulation  duration  and  step  size. 

TMAX  -  pqj-  *  (No.  decades  scanned) 


ss 

SERVO  ANALYZER 


GAN 

PHS 


(This  component  is  used  with  component  SG) 

INPUTS 


PHYSICAL 

QUANTITY 

NAMES 

PORT 

NO. 

1 

DESCRIPTION 

UNITS 

S 

' 

Test  system  output  signal 

OUTPUTS 


PHYSICAL 

QUANTITY 

NAMES 

PORT 

NO. 

DESCRIPTION 

t 

UNITS 

-1 

GAN 

Gain 

db. 

PHS 

Phase 

degrees 

SI  * 

sine  integrator 

- 

Cl  * 

cosine  integrator 

- 

SAV 

sine  (in  phase)  average  value 

- 

CAV 

cosine  (quad  phase)  average  value 

1 

CPU 

signal  used  to  initialize  component 

-  i 

•These  Quantities  are  states 
Equations: 

GAN  =  201oq(2(SAV2  +  CAV2 

\  AMP^ / 

PHS  ■  un-*(|g) 

Several  SS  components  can  be  used  simultaneously  with  one  56  signal  generator 
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STATISTICAL  ANALYSIS 


ST 

Mean 

Std  Deviation 

Max 

Min 


I 

PHYSICAL  !  pnpr 
QUANTITY  : 

NAME  i  • 

- ; - 

DESCRIPTION  UNITS 

' 

1 

1 

S  I  1 

STR  i 

i 

' 

Input  quantity  to  be  monitored 

Parameter  to  utilize  calculations 
(Default  provided) 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT  ^ 

|  NO.  : 

DESCRIPTION 

f 

UNITS 

MN 

1 

| 

Running  mean  of  input  quantity  ' 

MAX 

t 

Maximum  value  of  input  quantity 

MIN 

i 

Minimum  value  of  input  quantity  jj 

SIG 

i _ i 

Running  standard  deviation  of  input  quantity  -  rms  | 

The  measure  of  mean  standard  deviation,  maximum,  and  minimum  will  start 
at  the  beginning  of  each  SIMULATE  analysis. 
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SUM  TWO  SETS  OF  3-AXIS  FORCES  AND  TORQUES 


HE)] 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

....  .  _ 

UNITS 

F(3) 

— 

1 

X,  Y,  Z  body  axis  input  forces,  port  1 

lbs 

T  ( 3 ) 

1 

X,  Y,  Z  body  axis  input  torques,  port  1 

ft-lbs 

F  ( 3 ) 

3 

X,  Y,  Z  body  axis  input  forces,  port  3 

lbs 

T  ( 3 ) 

3 

X,  Y,  Z  body  axis  input  torques,  port  3 

ft-lbs 

OUTPUT 

PHYSICAL 

or\OT 

QUANTITY 

pun 

DESCRIPTION 

UNITS 

NAME 

' 

X,  Y,  Z  body  axis  output  forces,  port  2 
X,  Y,  Z  body  axis  output  torques,  port  2 


lbs 

ft-1 bs 


EQUATIONS: 

F2( I )  »  F1(I)  +  F3( I ) 
12 ( I )  ■  T1 ( I )  +  T3( I ) 


I  3  1,  2,  3 


IS  FORCES  AND  TORQUES 


sv 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

' 

UNITS 

F(3) 

|  1 

X,  Y,  Z  body  axis  input  forces,  port  1 

lbs 

T  ( 3 ) 

» 

X,  Y,  Z  body  axis  input  torques,  port  1 

ft-lbs 

F(3) 

3 

X,  Y,  Z  body  axis  Input  forces,  port  3 

lbs 

T(3) 

3 

X,  Y,  Z  body  axis  input  torques,  port  3 

ft-lbs 

F(3) 

4 

X,  Y,  Z  body  axis  input  forces,  port  4 

lbs 

T(3) 

4 

X,  Y,  Z  body  axis  input  torques,  port  4  j 

ft-lbs 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

- 1 - 

PORT  i 

jjj  j  DESCRIPTION 

< 

UNITS 

S(N) 

1  j  Input  to  switch 

S(N) 

3  Input  to  switch 

SW1 

j  Switch  control  parameter 

TCI 

|  Time  for  first  switching 

sec 

TC2 

. 

j  Time  for  second  switching 

sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT  i 

N0#  !  DESCRIPTION 

UNITS 

_ 

S(N) 

2  !  Output  from  switch 

- i- 

EQUATIONS: 

S2  -  SI  if  SW1  »  1  and  t  <  TCI  or  t  >  TC2  or  if  SW1  =  0  and  TCI  <  t  <  TC2 
S2  *  S3  if  SW1  *  0  and  t  <  TCI  or  t  >  TC2  or  if  SW1  *  1  and  TCI  <  t  <  TC2 
where;  t  ■  TIME,  seconds 


N  may  be  specified  at  Model  Generation  time  to  allow  inputs  and  outputs 
to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 
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See  SW  for  switch  control  logic 


PHYSICAL 

QUANTITY 

NAME  N0* 

DESCRIPTION  !  UNITS 

S(N)  1 

S(N)  3 

S(N)  5 

S(N)  6 

SW1 

TCI 

TC2  : 

_ 1 

Input  to  switch  I 

Input  to  switch  1 

Input  to  switch  2 

Input  to  switch  2 

Switch  control  parameter 

Time  for  first  switching  sec 

Time  for  second  switching  j  sec 

PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

S(N) 

S(N) 

E 

Output  from  switch  1 

Output  from  switch  2 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs 

and  outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 


THREE  POLE  SWITCH 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

— 

PORT 

NO. 

DESCRIPTION 

UNITS 

- 

5  (  N ; 

1 

Input  to  switch  1 

S(N) 

3 

Input  to  switch  1 

S(N) 

5 

Input  to  switch  2 

S(N) 

6 

Input  to  switch  2 

S(N) 

7 

Input  to  switch  3 

S(N) 

9 

Input  to  switch  3 

SW1 

Switch  control  parameter 

TCI 

Time  for  first  switching 

sec 

TC2 

Time  for  second  switching 

sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

J 

DESCRIPTION 

i 

UNITS 

S(N) 

2 

Output  from  switch  1 

5  ( N ) 

4 

Output  from  switch  2 

S(N) 

8 

Output  from  switch  3 

NOTE:  N  may  be  specified  at  Model  Generation  time  to  allow  inputs  and 
outputs  to  be  N  dimensional  vectors.  Default  value  of  N  is  1.0 
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PHYSICAL 

1 

i  PORT 

!  NO. 

1 

1 

i 

QUANTITY 

NAME 

DESCRIPTION 

]  UNITS 

I 

Tabular  data  describing  S2  vs.  time 

I 

Tabular  data  describing  S3  vs.  time 

Tabular  data  describing  S4  vs.  time  1 

Tabular  data  describing  S5  vs.  time 

PHYSICAL 

1 - 

j  PORT 

I  NO. 

1 

1 

1 

1 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

Output  quantity 
Output  quantity 
Output  quantity 
Output  quantity 


EQUATIONS: 


52  -  A2T ( t ) 

53  -  B2T(t) 

54  -  C2T(t) 

55  •  D2T( t) 


15  points  are  allowed  per  table. 
Linear  Interpolation  is  used  between 
points.  The  last  point  in  the  table 
is  used  for  values  of  time  outside 
the  table  range 
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INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

1 

Tabular  data  describing  S2  vs.  time 

Tabular  data  describing  S3  vs.  time 
_ 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

i 

UNITS 

S 

2 

Output  quantity 

| 

S 

3 

Output  quantity 

EQUATIONS: 

52  *  A2T(t) 

53  -  B2T ( t) 

NOTE:  15  points  are  allowed  per  table.  Linear  Interpolation  is  used  between  points. 
The  last  point  in  the  table  is  used  for  values  of  time  outside  the  table  range. 
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THREE-DEGREE-OF-FREEDOM  RIGID  BODY 


TD 


T  ( 3 ) 

WD(3) 

W  ( 3 ) 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

1 

DESCRIPTION 

UNITS 

T(3) 

IXX,  IYY , 
IZZ 

X,  Y,  Z  body  axis  torques 

X,  Y,  Z  body  axis  moments  of  inertia 

ft-1  b 
slug-ft2 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

- - , 

i 

DESCRIPTION 

i 

UNITS 

M 

X,  Y,  Z  body  axis  angular  rates 

rad/sec 

Euler  angles,  body  to  fixed  axes 

rad 

m 

X,  Y,  Z  body  axis  angular  accelerations 

rad/sec2 

ASSUMPTIONS: 

1.  Body  axes  are  principal  axes,  i.e.,  products  of  inertia  =  0 

2.  Body  moments  of  inertia  are  constant 

3.  Euler  angle  sequence,  body  to  fixed  axes  a  roll,  pitch,  yaw, 


TD 

THREE  DEGREE  OF  FREEDOM  RIGID  BODY 

Angular  Velocity  Equations 
P  -  PD  =  (TX  -  Q*R(ZZI  -  Y Y I ) )/ XX I 
0  -  ZD  =  (TY  -  P*R*(XXI  -  ZZI))/YYI 
R  =  RD  =  (TZ  -  Q*P*(YYI  -  XXI ) )/ZZI 

Angular  Position  Equations 
PIT  =  Q*COS(ROL)  -  R*SIN(R0L) 

YAW  =  (Q*SIN(R0L)  +  R*COS(ROL) )/C0S(PIT) 

ROL  =  P  +  YAW*SIN(PIT) 

Vector  Definitions: 


TRANSFER  FUNCTION 


Zl-S  +  zo 


s2  +  P1*S  +  PO 


TF 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

- - - , - 

UNITS 

S(N) 

I 

Input  quantity 

ZO(N) 

Numerator  coefficient 

Z 1  ( N ) 

Numerator  coefficient 

PO(N) 

Denominator  coefficient 

P1(N) 

Denominator  coefficient 

PHYSICAL 

QUANTITY 

PORT 

NO. 

DESCRIPTION 

- 1 - 

;  UNITS 

NAME 

i 

S(N) 

2 

Output  quantity  (state) 

! 

i 

X1(N) 

Intermediate  state  (state) 

i  . . 

EQUATIONS: 

XI  -  ZO-S1  -  PO-S2 
S2  -  XI  +  Z1‘S1  -  PI-S2 


NOTE:  d.c.  gain  ■  — 

infinite  frequency  gain  ■  0 


ENGINE  THRUST  BODY  AXIS  TRANSFORM 


TH 

BODY 

AXIS 

F(3),  T ( 3 ) 

TRANSFORMATION 

GAM( 3 ) 

X(3) 

TG 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

1  1 

!  PORT 

NO.  | 

i  i 

DESCRIPTION 

! 

1 

UNITS 

TH 

I 

i  } 

Engine  thrust 

lbs 

GAM(3) 

i 

i 

X,  Y,  Z  body  axis  direction  cosines 

X  ( 3 ) 

i  ; 

_ L 

X,  Y,  Z  thrust  location  components 

ft 

_ 1 _ 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

1 - 

|  PORT 
'  NO. 

DESCRIPTION 

! 

! 

UNITS 

F(3) 

; 

1 

X,  Y,  Z  body  axis 

forces 

lbs 

T(3) 

X.  Y,  Z  body  axis 

torques 

i  ft-lbs 

i _ _ 

EQUATIONS: 

F( I )  *  TH-GAM(I) 

T  *  X  x  F  (vector  cross  product) 
1=1,2,  3 
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AL 

ALO 

GTA 

CH 

CN 

CHP 

TR 

CHG 

CMF 

WH 

WMF 

PHYSICAL  LnpT 
QUANTITY 

NAME  i  "U' 

DESCRIPTION 

UNITS 

AL  ! 

Shaft  angle 

rad 

ALO  | 

Shaft  rate 

rad/sec 

GTA 

Tachometer  gain 

vol t/ rad/sec 

CH  j 

Hall  probe  null  coefficient 

CN 

Common  node  coefficient 

CHG 

Unequal  gain  coefficient 

»F  | 

Magnetic  field  coefficient 

WH  ! 

Hall  probe  frequency 

rad/sec 

WMF  j 

_  1 

Magnetic  field  frequency 

_ 

rad/sec 

PHYSICAL 

QUANTITY 

PORT 

NO. 

DESCRIPTION 

UNITS 

NAME 

VO 

1 

t 

Tachometer  output  voltage 

j  vol  t 

EQUATIONS : 
WHAL 


WHAL  «  WH*AL  WHPAL  *  WHP*Al 

VO  ■  GTA»ALD •( 1 .  +  CH*SIN(WHAl)  ♦  CN*COS(WHAL) 

*  CHP»SIN( WHPAL  +  CHG*C0S (WHPAL )  *  CMF*SIN(WMF*Al; ) 
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3 


SUM  TWO  SETS  OF  3-AXIS  TORQUES 


3 


s 


PHYSICAL 

PORT 

NO. 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

T(3) 

1 

X,  Y,  Z  body  axis  input  torques,  port  1 

ft-lbs 

T  ( 3 ) 

3 

X,  Y,  Z  body  axis  input  torques,  port  3 

ft-lbs 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

T(3) 

2 

X,  Y,  Z  body  axis  output  torques,  port  2 

ft-lbs 

EQUATIONS: 

T2(I)  -  Tl{ I)  +  T3( I )  I  *  1,  2,  3 


i 


*'  .  ■..--.I*' 
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It 


IUS  Vehicle  with  6  Degrees  of  Freedom,  Fuel  Sloshing, 
Structural  Flexibility,  and  Tail-wag-dog  Engine  Dynamics, 
(This  component  must  be  used  with  component  LIT 
to  form  complete  vehicle  model.) 

INPUT 


US 


UVW(3)* 

PQR(3)* 

SOI  ( 2 )  * 
S02(2)* 


I 


1  \S 


v  )  Rigid  body  translational  velocity  vector 

W, 

P\ 

g  I  Rigid  body  rotational  velocity  vector 
*14 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

! 

UNITS 

DMP(M.M) 

MSI(M.M) 

WRK(M) 

Oamplng  matrix 

Inverse  Mass  Matrix 

Work  vector 

Formed  by 
component  UT 

THR( 3) 

Engine  thrust  vector 

in  body  coordinates 

lb 

LMN(3) 

Spacecraft  torque  vector  due  to  engine  thrust 

in-lb 

DLM(2) 

Moment  exerted  by  actuator  on  engine  nozzle 
about  yaw  and  pitch  axes 

in-lb 

GNF(N) 

Generalized  forces  due  to  thrust  exerted  on 
flexing  modes 

OUTPUT 

PHYSICAL 

!  PORT 
i  NO. 

t 

4. - 

"*■  i  11 1 

QUANTITY 

NAfC 

DESCRIPTION 

UNITS 

i  I  _  .  ]  Slosh  dynamics  velocity  vector  (1st  tank) 
10' 

§24 

.  )  Slosh  dynamics  velocity  vector  (2nd  tank) 

*20 
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OUTPUT 


US 


PHYSICAL 

QUANTITY 

NAME 


PORT 

NO. 


DESCRIPTION 


UNITS 


DLD(2)’ 


FXD(N)< 


SL1(2)< 


Nozzle  attitude  velocity  vector 


Body  flex  inodes  velocity  vector 


V 

i} 

•  I 

£n' 

S14  \ 

‘  ]  Fuel  slosh  position  vector  (1st  tank) 


SL2(2)* 


DLT(2)* 


FLX(N)* 


Fuel  slosh  position  vector  (2nd  tank) 


Nozzle  attitude  vector 


Body  flex  mode  position  vector 


EQUATIONS: 

X  -  MSI* [-0MP  X  -  STF  X  +  f ] 

MSI,  DMP,  and  STF  are  M  x  M  Matrices  formed  by  standard  component  UT. 
*  These  quantities  are  continuous  states. 

N  must  be  specified  as  the  number  of  structural  flexibility  modes 
M  must  be  specified  as  12  +  N 
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US 


u 

THR(l) 

V 

THR ( 2 ) 

w 

THR(3) 

p 

L 

q 

M 

r 

N 

$14 

0 

• 

• 

*  • 

12 

s10 

0 

and  f  * 

$24 

• 

0 

$20 

0 

s4 

• 

DLM(l) 

_*_0_ 

DLM(2) 

• 

GNF(l) 

N 

•  * 

L^_ 

_L 

GNF(N) 

The  above  represent  the  spacecraft  state  vector  and  the 
vector  of  forces  due  to  engine  thrust  and  nozzle  actuator, 
respectively. 

This  formulation  follows  Boeing  Document  D2-84124-4  (pg  70) 
except  that  some  of  the  components  of  X  have  been  permutated 
for  programing  convenience. 
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IUS  Vehicle  with  6  Degrees  of  Freedom,  Fuel  Sloshing, 
Structural  Flexibility,  and  Tall-wag-dog  Engine  Dynamics. 
(This  component  must  be  used  with  component  US 
to  form  complete  Vehicle  Model.) 


UT 


INPUT 


PHYSICAL 

QUANTITY 

NAME 


PQR ( 3 ) 


Rigid  body  rotational  velocity  vector 


rad/sec 


Sloshing  masses  for  tanks  1  and  2 


lb-sec2/ in 


I-,  I 

}  Sloshing  pendulum  arm  lengths 
>s2  1 


SP1(3) 


SP2 ( 3 ) 


EP(3) 


Nominal  position  of  sloshing 
tanks  1  and  2  in  body  coordinates 


Mass  of  engine  nozzle 

Distance  from  hinge  point 
to  nozzle  center  of  gravity 

Position  of  nozzle  center  of  gravity 
In  body  coordinates  when  nozzle  is  in 
undeflated  position 

Mass  of  entire  spacecraft 


lb- sec2/ In 


Spacecraft  moments  of  inertia 


in- lb- sec 2 


Nozzle  moments  of  Inertia  about 
nozzle  center  of  gravity 


in-lb-sec2 
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PHYSICAL 

QUANTITY 

NAf€ 


Ix2  Spacecraft  products  of  inertia 


in-lb-sec^ 


MM(N) 

PS1(2,N) 

PS2(2,N) 

PE(2,N) 

PEP(2,N) 


WFX(N) 


ZFX(N) 


j  F]ex  deflection  coefficients 
<Ps2(2.N)  i  at  tanks  1  and  2 

<Pe(2,N)  Flex  deflection  coefficients  at  nozzle 
SPe ( 2 » N )  Flex  rotation  coefficients  at  nozzle 

wsl4  ) 

wslO  f  Natural  frequencies  at  sloshing  modes 
w  /  for  tanks  1  and  2 

sZ4  I  about  yaw  and  pitch  axes 
ws20  1 


ws4  }  Natural  frequencies  of  nozzle 
ws0  i  1n  Xaw  and  P'itch  axes 

fsl  ) 

v  -  Oamping  ratios  of  sloshing  modes 


I  I  Oamping  ratios  of  flexing  modes 

/ 

in 

?s4  |  Linear  damping  ratio  for  nozzle 
f  about  yaw  and  pitch  axes 


rad/sec 


I  I  Natural  frequencies  of  flex  modes  1,  ,..,n  I  rad/sec 
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PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION. 

UNITS 

DMP(M.M) 

Damping  matrix 

MSI{M,M) 

Inverse  mass  matrix 

STF(M.M) 

Stiffness  matrix 

EQUATIONS: 

See  document  D2-84124-4,  page  70. 


N  must  be  specified  as  the  number  of  structural  flexibility  modes 
M  must  be  specified  as  12  +  N 


1 


VEHICLE  ATTITUDE 


VA 


T(3) 

IN(3,3) 


VA 


W(3),  Q(4) 
A ( 3 , 3 ) ,  EA(3) 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

*IA 

1 

Initial  latitude 

deg 

*L0 

1 

Initial  longitude 

deg 

**TI 

1 

Initial  time 

hours 

***0A 

1 

Initial  date  -  Julian  days 

days 

*R0L 

Initial  roll  -  relative  to  local  horizontal  axes 

deg 

♦PIT 

Initial  pitch  -  relative  to  local  horizontal  axes 

deg 

♦YAW 

Initial  yaw  -  relative  to  local  horizontal  axes 

deg 

T(3) 

External  torques,  body  axes 

ft-lb 

IN(3.3) 

Inertia  matrix,  body  axes 

slug-ft2 

*  Default  values  of  zero  are  provided  for  these  quantities 
**  Default  value  of  12  is  provided  for  TI 
***  Default  value  of  80  is  provided  for  DA 


OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

. 

W(3) 

Angular  rates  -  body  axes 

deg/sec 

Q(4) 

Quaternians  -  inertial  to  body  axes 

A(3,3) 

Direction  cosine  matrix  -  inertial  to  body  axes 

EA(3) 

Euler  angle  -  Inertial  to  body  axes 

deg 

LA 

2 

Initial  latitude 

deg 

LO 

2 

Initial  longitude 

deg 

TI 

2 

Initial  time 

hours 

DA 

i_i_ 

Initial  date  -  Julian  days 
-■  ■■  - -  —  —  —  .  - - ■ - 

days 
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V0LTA6E  REGULATOR 


V6 


INPUT 


PHYSICAL 

QUANTITY 

FIGURE 

DESCRIPTION 

UNITS 

VPF 

VPF 

INPUT  FROM  POWER  FACTOR  CONTROLLER 

PER  UNIT 

VL 

VL 

LINE  VOLTAGE 

PER  UNIT 

ED 

ED 

D  AXIS  VOLTAGE  FROM  GEN 

PER  UNIT 

EQ 

EQ 

Q  AXIS  VOLTAGE  FROM  GEN 

PER  UNIT 

VRE 

VRE 

VOLTAGE  REFERENCE 

PER  UNIT 

G1 

G1 

LAG  GAIN 

- 

G2 

G2 

LEAD  LAG  GAIN  (FEEDBACK) 

- 

K 

K 

FEEDBACK  GAIN 

- 

T1 

T1 

LAG  TIME  CONSTANT 

- 

T2 

T2 

LEAD  LAG  TIME  CONSTANT  (FEEDBACK) 

SEC 

T3 

T3 

LEAD  LAG  TIME  CONSTANT  (FEEDBACK) 

SEC 

T4 

T4 

LAG  TIME  CONSTANT 

SEC 

CEX 

LEX 

LIMITER  MAX 

SEC 

EB 

EB 

LAG  GAIN  (PER  UNIT  CONVERSION) 

PER  UNIT 

G3 

G3 

SATURATION  SLOPE 

- 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

FIGURE 

NAME 

DESCRIPTION 

UNITS 

*  E2 

INTERNAL  STATE  LAG  OUTPUT 

PER  UNIT 

*  E4 

INTERNAL  STATE 

PER  UNIT 

*  E5 

INTERMEDIATE  STATE 

*  VO 

VO 

OUTPUT  TO  GEN/ EXCITER 

VOLTS 

EL 

EL 

RSS  OF  EQ  AND  ED 

PER  UNIT 

El 

El 

ERROR  SUM 

PER  UNIT 

E3 

E3 

LIMITER  OUTPUT 

PER  UNIT 

*  THESE  OUTPUT  QUANTITIES  ARE  STATES 


i 


RANDOM  WIND  GUST  MODEL 


WM 


NU 

NV 

ORYDEN  MOOEL  WIND 

NM 

TRANSFER  FUNCTIONS 

NP 

SLH,  SLV,  VS,  SIH,  SIV,  B 

INPUT 


PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

UNITS 

NU.  NV,  NW 

Random  noise  Inputs  for  UW,  VW,  WW 

NP 

Random  noise  Input  for  PW  angular  rate 

SLH,  SLV 

Horizontal  and  vertical  scales* 

ft 

VS 

1 

Steady  state  airspeed  Input 

ft/ sec 

SIH.  SIV 

Horizontal  and  vertical  RMS  gust  Intensity* 

ft/ sec 

B 

Wing  span 

ft 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

DESCRIPTION 

.. 

UNITS 

UW,  VW,  WW 

X,  Y,  Z  body  axis  wind  velocity  states 

ft/sec 

VX,  WX 

Y,  Z  axis  Intermediate  states 

ft/sec^ 

QX,  RX 

Y,  Z  body  axis  wind  angular  rate  states 

deg/sec 

PW.  QW,  RW 

X,  Y,  Z  body  axis  wind  angular  rate  outputs 

deg/sec 

VS 

2 

Steady  state  airspeed 

ft/sec 

♦Default  values: 

SLH  -  SLV  »  1750 

SIH  ■  SIV  -  0  j  j 

In  general,  choose  SIH  and  SIV  such  that  ^ ^ — 

SLH  SLV 
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STATIC  TRANSFORMATION  OF  ANGULAR  RATES 


w(3) 


INITIAL  COORDINATES 


W(3) 


FINAL  COORDINATES 


INPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

W(3) 

TRN(3.3) 

1 

Input  angular  rates  -  Initial  coordinates 

3x3  transformation  matrix 

rad/sec 

OUTPUT 


PHYSICAL 

QUANTITY 

NAME 

PORT 

NO. 

DESCRIPTION 

UNITS 

W(3) 

2 

Output  angular  rates  -  final  coordinates 

rad/sec 

EQUATIONS: 

W2  ■  TRN*W1  (Matrix  Multiply) 

ASSUMPTIONS: 

TRN  contains  the  direction  cosines  required  to  transform  from  the 
initial  coordinate  system.  TRN  Is  Input  as  follows: 

PARAMETER  VALUES  ■  TRNXP 

R( i*D  air  ai2*  ai3 

R(2»l)  *21’  a22’  a23 
R(3,l)  a31»  a32»  a33 


i- 


I 


* 
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TORQUES 


DESCRIPTION 

UNITS 

Input  torques  -  Initial  coordinates 

3x3  transformation  matrix 

ft-lbs 

OUTPUT 

APPENDIX  l 


EASY  PROGRAM  ANALYSIS  DESCRIPTION 


This  appendix  is  a  reproduction  of  Section  4.4  of  reference  1.  It 
presents  a  description  of  the  mathematical  methods  used  in  each  of  the 
anlayses  available  in  the  EASY  Analysis  Program. 
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4.3.2  Scalar  Data 

Scalar  data,  i.e.,  parameter  values,  error  controls  and  initial  con¬ 
ditions,  should  be  loaded  by  data  cards  immediately  following  any  tab¬ 
ular  data  cards.  All  of  these  scalar  values  should  be  specified  before 
any  analysis  is  requested.  However,  to  prevent  the  loss  of  an  analysis 
run  due  to  the  omission  of  one  or  more  parameter  values,  error  controls, 
or  Initial  conditions,  all  parameter  values  are  initial ized  to  a  default 
value  of  0.99999,  all  error  controls  to  0.1*,  and  all  inital  conditions 
to  0.  Sections  4.2.2  and  4.2.3  describe  the  program  commands  and  for¬ 
mats  used  to  specify  scalar  data.  Once  the  parameter  values,  error 
controls,  and  initial  conditions  have  been  specified,  other  program  com¬ 
mands  may  be  issued  to  request  analyses.  The  values  of  any  of  the  scalar 
data  can  be  modified  between  analysis  requests  by  using  the  same  commands 
described  in  Sections  4.2.2  and  4.2.3. 

4.4  ANALYSIS  DESCRIPTIONS 

This  section  contains  a  description  of  the  mathematical  methods  used  in 
each  of  the  analyses  available  in  the  EASY  Analysis  Program.  Further 
details  of  each  analysis  can  be  found  in  the  Section  6. 

4.4.1  Simulation  Calculations 

One  of  the  most  used  and  well  known  numerical  integration  rules  is  the 
classical  explicit  fourth  order  Runge-Kutta  method  (Reference  1).  The 
method  is  easy  to  implement,  has  nice  truncation  error  properties,  and 
combined  with  an  error  control  (step  size  adjustment)  is  a  good  stan¬ 
dard  integration  method  for  systems  with  eigenvalues  (of  the  Jacobian) 
all  relatively  the  same  size.  For  this  reason,  the  4th  order  Runge- 


*  See  Section  4.5.3  for  special  default  values  provided  by  the  EASY  Model 

Generation  program  for  states  whose  name  starts  with  the  letters  P  or 

T. 
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Kutta  method  is  included  as  one  integrator  available  in  EASY.  It  is 
not  the  default  integrator,  however,  because  of  its  stability  prop¬ 
erties.  A  short  discussion  of  integration  rule  stability  follows. 

For  most  integration  algorithms,  truncation  error  (the  error  incurred 
due  to  a  finite  order  approximation  to  the  exact  solution)  is  directly 
related  to  the  step  size  raised  to  a  power  equal  to  the  order  of  the 
method.  By  controlling  the  step  size,  the  single  step  error  can 
theoretically  be  maintained  at  any  desired  level.  This  assumes  that 
sufficient  precision  is  used  so  that  round  off  effects  (error  due  to 
approximating  numbers  by  a  finite  number  of  bits  or  digits)  does  not 
become  a  factor.  Most  integration  algorithms  thus  contain  some  error 
measurement  calculation  and  a  step  size  adjuster  so  that  single  step 
error  is  below  a  specified  limit. 

The  question  now  arises  of  what  happens  to  such  systems  when  the  actual 
value  of  the  truncation  error  becomes  very  small  due  to  the  actual 
solution  approaching  a  steady  or  slowly  varying  value.  The  normal  logic 
in  most  algorithms  indicates  that  the  step  size  should  be  increased. 

As  the  step  size  is  increased  a  phenomenon  related  to  integration  rule 
stab il ity  occurs.  That  is,  even  though  the  solution  and  the  resultant 
error  are  well  below  the  specified  error  limit,  increasing  the  step 
size  will  eventually  cause  errors  to  increase  over  the  limit.  This  is 
due  to  the  fact  that  every  integration  rule  has  a  region  of  stability 
(a  function  of  step  size)  where  given  a  stable  (non  increasing)  system 
It  will  compute  a  nonincreasing  solution.  Outside  of  that  region,  even 
though  the  solution  should  decrease,  it  will  compute  an  increasing 
solution.  This  region  is  normally  described  as  a  function  of  the  time 
step  h  times  the  complex  eigenvalues  of  the  system.  Thus  if  one  were  to 
plot  the  region  in  a  complex  plane  modified  by  the  step  size,  the  4th 
order  Runge-Kutta  would  have  a  region  that  appears  as  shown  in  Figure  42. 

This  means  that  if  any  stable  mode  (represented  by  a  eigenvalue 
Aj)  is  large  enough  that  hA^  lies  outside  the  shaded  area,  then  for  that 


hXHJdiZ 


Figure  42 .  Region  of  Absolute  Stability  of  Fourth  Order  Explicit  Runge-Kutta  Method 


Figure  43 .  Regions  of  Absolute  Stability  for  Stiffly  Stable  Methods  of  Orders  One  Through  Three. 
Methods  Are  Stable  Outside  of  Closed  Contours. 


Figure  44 .  Regions  of  Absolute  Stability  for  Stiffly  Stable  Methods  of  Orders 
Four  Through  Six 
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mode  and  step  size  h,  an  increasing  solution  will  be  computed  even 
though  the  actual  solution  is  decreasing.  For  this  reason,  even  when 
truncation  error  is  reduced  to  a  very  small  value  and  the  solution 
mode  is  in  steady  state,  the  step  size  for  the  Runge-Kutta  method  is 
limited  to  approximately 

2.7 

h  •< - 

max  I. 

|  max 

in  order  to  prevent  the  conputed  solution  from  diverging. 

For  systems  that  have  wide  ranges  of  eigenvalues,  this  limitation  can 
cause  unreasonably  long  computation  times.  Thus,  one  seeks  integration 
rules  which  have  more  desirable  stability  properties. 

The  integration  rule  implemented  in  EASY  is  a  "stiffly  stable"  method 
developed  by  Gear  and  published  both  in  his  book  and  in  the  Com¬ 
munications  of  the  Association  for  Computing  Machinery,  Vol .  14,  No.  3, 
March  1971.  This  is  a  variable  step  size,  variable  order  method  which 
has  regions  of  stability  outside  of  the  contours  in  Figures  43  and 
44.  For  these  regions,  it  is  noted  that  large  magnitude  eigenvalues 
with  negative  real  parts  that  are  large  fall  well  inside  the  region  of 
stability.  Thus  as  truncation  error  becomes  small  during  the  integration 
process,  the  method  is  not  restricted  from  using  large  step  sizes. 

Note  that  part  of  the  right  hand  plane  is  stable  even  though  the  actual 
system  would  be  unstable.  All  this  means  is  that  if  the  step  size  were 
unchanged,  the  integrator  would  output  a  decreasing  solution.  Error 
control,  however,  would  detect  the  difference  and  decrease  the  step 
size  until  a  correct  solution  to  the  specified  accuracy  was  obtained. 

Since  the  algorithm  is  well  documented  in  Gear's  book  in  Chapter  9,  the 
theoretical  exposition  is  not  repeated  here.  The  modifications  made  to 
the  data  structure  so  that  storage  is  by  column  and  not  by  row. 
Theoretically  this  is  of  no  importance  but  practically  it  is  better  due 
to  the  manner  in  which  FORTRAN  stores  and  computes  indices  in  arrays. 


Only  the  stiff  Integrator  that  computes  partial  derivatives  by  numerical 
differencing  is  retained.  The  process  of  solving  a  linear  system  of 
equations  by  matrix  inversion  is  replaced  by  the  more  efficient  and 
accurate  direct  Gaussian  elimination  method.  The  method  order  is 
restricted  to  5  or  less  because  of  stability  considerations. 

The  process  of  integration  is  controlled  by  a  master  subroutine  which 
keeps  track  of  time  and  the  necessary  reporting  sequence.  Further, 
this  routine  recognizes  when  a  new  call  is  made  to  the  integrator  for 
the  first  time  and  uses  a  special  start  up  procedure.  This  procedure 
essentially  uses  the  standard  4th  order  Runge-Kutta  for  100  steps 
(picked  by  the  step  size  controller)  to  let  initial  transients  settle 
out  before  handing  the  problem  over  to  Gear's  method.  Since  the  Gear 
method  must  start  out  with  a  1st  order  integration  rule,  large  initial 
transients  can  cause  problems.  Thus  using  another  4th  order  rule  to 
integrate  over  small  intervals  of  large  transient  behavior  allows  the 
Gear  method  to  start  in  a  smoother  region  of  the  solution.  This  external 
integration  process  will  occur  whenever  large  transients  cause  the  Gear 
method  to  fail. 

Minimum  step  size  is  set  at  10‘ 5  seconds  or  TINC/10000,  whichever  is 
the  smaller  value.  The  maximum  step  size  is  set  equal  to  the  print 
interval  and  is  often  attained.  The  error  test  used  is  based  on 
relative  error  with  respect  to  the  maximum  value  computed  for  a 
particular  variable.  The  current  value  is  set  at  5  significant  figures 
maintained  over  a  single  step. 

At  the  start  of  each  simulation  run,  the  time  variable  is  set  equal  to 
zero;  the  state  vector  of  the  system  model  is  set  equal  to  the  initial 
condition  vector,  (values  input  via  the  INITIAL  CONDITION  command);  and 
the  state  variable  time  derivatives  (rates),  are  set  equal  to  zero.  The 
rates  are  set  equal  to  zero  as  part  of  the  procedure  that  allows  ind¬ 
ividual  states  to  be  frozen. 


For  frozen  states,  the  rates  are  not  recalculated  by  the  system  model. 
Thus,  since  the  rates  are  set  to  zero  these  states  remain  "frozen"  at 
their  Initial  values. 

Integration  of  the  system  model  equations  continues  until  the  value  of 
time  equals  the  value  of  TMAX  specified  by  the  analyst.  If  it  is  desired 
to  have  a  simulation  stop  for  some  condition,  before  time  reaches  TMAX, 
a  test  on  this  condition  can  be  added  to  the  system  model,  (in  subroutine 
EQMO),  and  TIME  set  equal  to  TMAX  should  this  condition  occur.  An 
example  of  this  sort  was  shown  in  Example  3.3. 

4.4.2  Steady  State  Calculations 

The  STEADY  STATE  option  allows  the  steady  state  of  a  stable  system 
dynamic  model  to  be  quickly  determined.  This  is  accomplished  by 
modifying  the  dynamic  characteristics  of  the  system  so  that  all 
eigenvalues  are  near  -1.  This  allows  the  system  transient  to  be 
quickly  integrated  to  reach  steady  state. 

The  nonlinear  simulation  model  can  be  defined  as: 

*«f(x,t)  4.4-1 

where:  x.  =  n  dimensional  vector  of  state  variable  derivatives 

£  =  n  dimensional  vector  of  state  variables 

£  8  n  dimensional  vector  of  nonlinear  functions  relating  state 
variables  and  time  to  state  variable  derivatives. 

The  steady  state  of  this  system  is  defined  as  that  value,  x^$,  of 

the  system  state  vector,  x.,  that  causes  x_  to  equal  zero.  Thus: 

a-Ki,,.  t)  4.4-2 

Let  a  linear  approximation  for  the  nonlinear  system,  as  described  in 
Section  4.5.3,  be  given  by: 

i*  4s.  4.4-3 
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Where  A  s  nxn  stability  natrix  (Jacobian)  of  the  system  model. 

The  major  objection  to  integrating  the  given  nonlinear  system  of  (4.4-1) 
to  obtain  the  steady  state  is  that  many  small  integration  steps  are 
required  over  a  long  transient  duration  to  reach  steady  state.  As 
discussed  in  Section  4.4.1  this  problem  is  related  to  a  large  range  of 
eignevalue  magnitudes  of  the  system  stability  matrix,  A_.  If  the 
objective  is  to  rapidly  reach  steady  state,  the  ideal  dynamic  system  would 
have  all  of  its  eigenvalues  concentrated  in  a  very  small  range.  This 
can  be  accomplished,  if  one  is  not  interested  in  the  accuracy  of  the 
transient  calculation,  for  a  stable  system  with  a  negative  definite  A 
by  premultiplying  the  system  matrix  by  -A”*.  The  modified  state  will  be 
designated  by  x.1 . 


A”1  A  x/ 

4.4-4 

■T  x' 

4.4-5 

The  modified  system  of  equation  (4.4-5)  has  the  desired  feature  that  all 
of  its  eigenvalues  are  in  a  small  range,  i.e.,  all  equal  minus  one. 

Thus,  by  pre-multiplying  the  given  system  function  by  -A  ,  we  may 
obtain  a  modified  system  with  all  eigenvalues  near  -1.  Applying  this 
modification  to  equation  4.4-1  we  obtain 

i'  9  -i’1  1  (£'.  t)  4.4-6 

Since  the  transformation  A"*  is  nonsingular,  the  only  solution  to  the 
modified  steady  state  equation 

0  »  -A’1!  (x^,  t)  4.4-7 

Is  that  shown  in  equation  (4.4-2).  Thus  the  system  of  equations  given 
In  (4.4-6)  has  the  same  steady  state  solution  as  the  original  system, 
(4.4-1)  but  has  an  eigenvalue  range  that  greatly  reduces  the  number  of 
Integration  steps  required  to  reach  steady  state.  This  approach  to 
solving  for  the  steady  state  may  also  be  viewed  as  a  multi -dimensional 


r 


version  of  Newton's  Method  for  solving  the  nonlinear  algebraic  equation 
of  (4.4-2).  The  numerical  method  proceeds  as  follows: 


The  system  rates  and  stability  matrix  are  evaluated  at  the  initial  state 


x.  *  f  (Xj,  1) 

3f(x,t) 


Rather  than  premultiply  by  the  inverse  matrix,  as  indicated  in  (4.4-6), 
the  equation 

i,  •!(£,•£>•  “.4-io 

is  solved  for  x^  given  and  f(x^.  ,t)  by  the  Gaussian  elimination  meth 
od. 


A  -  3f(A»t) 

-i  ax 


4.4-8 


4.4-9 


The  Euler  forward  difference  approximation,  for  a  time  difference  of  1, 
is  then  used  to  represent  x^. 

-i  *  -i+l"-i  4.4-11 


Solving  for  x_.+^  we  obtain 

I 


*i 


4.4-12 


The  process  of  solving  equations  (4.4-8)(through  (4.4-12)  is  repeated 
until  the  norm  of  the  residual  vector,  £  ,  becomes  less  than  10"4  or 
more  than  SS  ITERATIONS  occur.  As  implemented,  the  system  stability 
matrix  A  is  not  completely  recalculated  each  iteration  and  a  step  size 
less  than  1  second  is  used  if  the  method  encounters  difficulty  in 
converging. 
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Should  this  method  fail  to  reach  a  steady  state  from  a  given  initial 
condition,  the  less  efficient,  but  more  stable  simulation  approach  can  be 
used.  Of  course,  for  some  nonlinear  systems  a  steady  state  can  not 
be  reached  from  certain  regions  of  the  state  space,  (initial  conditions). 
In  these  cases,  it  will  be  necessary  to  vary  the  initial  conditions  to 
find  a  steady  state  by  either  the  STEADY  STATE,  or  the  SIMULATE  commands. 

At  the  final  state  reached  by  the  steady  state  analysis,  a  linear  model 
of  the  system  is  generated  and  its  eigenvalues  are  calculated  and  printed. 
These  should  be  examined  to  assure  that  there  are  no  non-negative  real 
parts  which  would  indicate  an  unstable  system.  It  is  usually  of  interest 
to  know  the  eigenvalues  of  the  system  at  each  steady  state  operating 
point.  Also,  in  rare  cases,  the  steady  state  method  can  converge  to  an 
unstable  equilibrium  point  such  as  point  X2  in  Figure  45. 

4.4.3  Linear  Analysis  Calculations 

Stability  Matrix  Calculation 

The  LINEAR  ANALYSIS  option  allows  linear  approximations  to  the  nonlinear 
system  model  to  be  generated  at  any  given  operating  point.  This  analysis 
calculates  the  stability  matrix  { i . e.  Jacobian)  of  the  nonlinear  system 
model  and  the  eigenvalues  of  that  natrix.  This  analysis  can  be  described 
as  follows.  The  nonlinear  system  model  can  be  defined  as: 

i  ■!(«.*>  4.4-13 

where:  =  n  dimensional  vector  of  state  variable  derivatives 

x  s  n  dimensional  vector  of  state  variables 

_f  3  n  dimensional  vector  of  nonlinear  functions  relating  state 

variables  and  time  to  state  variable  derivatives. 

A  linear  model  of  this  nonlinear  system  can  be  expressed  as: 

x  =  Ax 

where  A  3  n  x  n  system  stability  matrix 


4.4-14 


The  ijth  element  of  A,  a..,  is  related  to  the  partial  derivative  of  the 

*  V 

elements  of  f  with  respect  to  the  elements  of  x_,  at  the  operating  point 


3^  (x,t) 


4.4-15 


x 


The  eigenvalues  of  the  stability  matrix  are  a  set  of  n  complex  numbers 
that  characterize  the  dynamic  behavior  of  the  system  in  a  region  about 
the  chosen  operating  point,  x^.  Eigenvalues  with  non-negative  real  parts 
indicate  that  the  system  is  unstable  in  the  region  about,  x^. 

It  must  be  kept  in  mind  that  for  highly  nonlinear  systems,  this  simple 
measure  of  stability  is  not  a  necessary  or  sufficient  condition  for 
stable  operation.  This  can  be  demonstrated  with  a  simple  first  order 
system  as  shown  in  Figure  45.  For  this  example,  the  state  derivative 
x  is  shown  as  a  highly  nonlinear  function  of  the  single  system  state 
variable,  x.  The  arrows  on  the  plot  of  the  function  show  the  trajectory 
the  state,  and  state  derivative  would  follow  from  any  initial  state  x. 

For  the  values  of  x  shown,  there  is  a  stable  region,  and  an  unstable 
region.  Initial  values  of  x  in  the  stable  region  will  result  in  the 
system  reaching  the  steady  state  operating  point,  x$s.  Initial  values 
of  x>x2  will  result  in  x  diverging  to  large  positive  values. 

The  eigenvalue  of  this  simple  system  is  the  partial  derivative,  . 

We  see  that  the  simple  criteria  of  a  negative  real  eigenvalue  for 
stability  specifies  that  the  system  is  unstable  in  the  region  x^  to  x^, 
while  for  this  example,  it  will  converge  to  the  steady  state  point,  xs$. 
In  the  region  x^  to  the  eigenvalue  criteria  would  indicate  that  tne 
system  was  stable,  while  in  fact  it  will  diverge  from  this  region. 

This  example  is  presented  to  illustrate  the  hazards  that  exist  when 
using  eigenvalues  to  measure  system  stability  at  points  other  than 
steady  state  operating  points.  However,  much  useful  information  and 
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insights  into  system  behavior  can  be  obtained  from  such  linear  analyses. 
Especially  since  they  can  be  easily  verified  by  the  nonlinear  simulation 
capabilities  of  the  EASY  Analysis  program. 

The  numerical  method  used  to  calculate  the  stability  matrix  is  as  follows 
The  values  of  the  state  variable  derivatives,  (rates)  are  calculated  at 
the  given  operating  point,  x_Q 

x  «  f  (x^O)  4.4-16 

where:  *  n  dimensional  vector  of  state  derivatives  at  operating  point 

x  ■  n  dimensional  vector  of  state  variables  which  specifies  the 
— o 

operating  point. 

f.  *  n  dimensional  vector  of  nonlinear  functions  relating  state 
variables  to  state  derivatives. 

These  values  are  printed  and  should  be  examined  to  determine  if  the 
operating  point  is  a  steady  state  operating  point,  i.e.  (£  s  0). 

Non  zero  elements  of  x^,  (rates),  indicate  the  sign  and  magnitude  of 
unbalance  at  the  chosen  operating  point. 

The  element  of  the  operating  point  vector  is  perturbed  by  adding  the 

element  of  the  error  vector,  e..*  This  perturbed  operating  point 

J  •  th 

is  used  to  recalculate  the  state  variable  derivatives,  x..  The  j 

J 

column  of  the  stability  matrix.  A.,  is  then  calculated  as: 

•  •  J 


*  Note:  this  is  the  same  vector  that  is  used  for  integration  error  control. 
It's  values  are  furnished  to  the  program  via  the  ERROR  CONTROL  commands. 


where:  x.  s  n  dimensional  vector  of  state  derivatives  at  the  operating 

J  th 

point,  perturbed  by  adding  j  element  of  error  vector  to 

V 

e.  =  j^1  element  of  the  error  vector. 

J 

{A}.  =  j**1  column  of  the  system  stability  matrix. 

J 

This  process  is  repeated  for  all  n  columns  of  A. 


As  a  measure  of  the  validity  of  the  linear  approximation,  the  stability 
matrix  calculation  described  above  is  repeated  using  perturbations  one 
half  those  used  in  the  initial  calculation. 


The  ratios  of  the  derivatives  calculated  with  the  two  step  sizes  are 
evaluated  and  placed  in  an  array,  RATIO.  If  the  results  of  measuring 
all  derivatives  with  both  step  sizes  are  equal,  all  elements  of  RATIO 
will  equal  one. 

The  elements  of  RATIO  are  compared  to  one  and  the  number  of  elements 
differing  from  one  by  more  than  ten  percent  noted.  If  one  or  more 
such  elements  is  found,  the  count  of  such  elements  is  recorded  on  the 
printer  along  with  a  list  of  the  elements  of  RATIO  that  exceed  the 
tolerance  of  ten  oercent. 

Figure  46  shows  an  example  of  how  the  values  in  the  array  RATIO  may 
be  used  to  measure  the  local  linearity  of  the  system  model. 

Eigenvalue  Calculation 

The  method  used  to  compute  the  eigenvalues  of  the  system  stability  matrix 
consists  of  three  basic  steps.  The  first  step  is  the  conditioning  of  the 
matrix  prior  to  the  application  of  the  normal  transformation  process. 

The  conditioning  process  is  divided  into  two  steps  of  reduction  and  scal¬ 
ing.  Reduction  is  the  process  whereby  through  row  and  column  inter¬ 
change  the  matrix  is  transformed  into  upper  block  triangular  form.  This 
means  that  the  diagonal  blocks  can  be  treated  independently  for  the 


Figure  46 .  Linearity  Measure  Example 


Figure  47 .  Equivalent  Stability  Margin  System 


purpose  of  eigenvalue  calculation.  This  reduction  naturally  occurs 
whenever  openloop  or  feed  forward  systems  are  described.  The  algorithm 
used  for  reduction  is  described  in  detail  in  Appendix  A  under  the 
title  of  the  McCreight  algorithm.  For  hisotrical  perspective,  an 
earlier  method  proposed  by  Harary  is  given.  The  second  phase  of  the 
conditioning  process  is  scaling.  Since  the  errors  in  all  the  trans¬ 
formation  algorithms  used  subsequent  to  the  conditioning  process  are 
related  to  the  norm  of  the  matrix,  scaling  is  used  to  reduce  the  norm. 
Historically  it  was  though  that  the  need  for  scaling  was  eliminated  when 
the  transition  form  analog  to  digital  computers  was  made.  Modern 
numerical  analysis  indicates  that  this  is  not  true  and  that  proper 
scaling  is  important  to  minimize  loss  of  significance  in  computed 
results.  The  scaling  algorithm  used  is  one  developed  by  E.  E.  Osborne 
in  1960  and  consists  of  a  sequence  of  diagonal  transformations  to  min¬ 
imize  the  Euclidean  norm  of  a  irreducible  matrix.  Since  the  reduction 
process  was  performed  first,  each  diagonal  block  is  irreducible  and  the 
scaling  algorithm  applies.  Details  of  the  algorithm  are  explained  in 
Appendix  A. 

The  second  process  in  the  computing  of  eigenvalues  is  to  transform  the 
scaled  diagonal  blocks  determined  in  the  first  step  into  upner 
Hessenburg  form.  This  form,  where  all  the  elements  below  the  first 
sub-diagonal  are  zero,  is  most  convenient  and  efficient  for  further  cal¬ 
culation.  In  Appedix  A,  two  methods  are  discussed  with  the  "direct 
reduction  with  interchanges"  being  the  method  implemented. 

The  final  step  in  the  computation  of  eigenvalues  is  the  actual  determ¬ 
ination  of  the  eigenvalues  for  each  diagonal  block  (now  scaled  and  in 
Hessenburg  form).  The  algorithm  used  is  the  QR  algorithm  developed  by 
Francis  in  the  early  1960 1 s  and  described  in  Appendix  A.  The  algorithm 
uses  a  series  of  unitary  transformations  to  drive  elements  of  the 
subdiagonal  of  the  Hessenburg  form  to  effective  zero  values.  As  the 
subdiagonal  elements  approach  zero,  the  diagonal  elem  nts  approach  the 


the  desired  eigenvalues.  The  algorithm  is  very  efficient  and  quite 
suitable  for  problems  of  moderate  size  (less  than  100-200  order). 

Appendix  A,  which  is  comprised  of  notes  from  a  series  of  lectures, 
presents  the  basic  mathematics  of  each  of  the  above  processes  along 
with  numerical  examples  to  demonstrate  the  actual  computing  sequence. 

4.4.4  Stability  Margin  Calculations 

The  method  that  is  used  to  determine  stability  margins  is  a  frequency 
domain  technique  of  Bode.  This  technique  has  been  found  to  be  numeric¬ 
ally  superior  to  other  approaches,  such  as  the  Routh  array  approach 
and  much  faster  than  the  direct  approach  of  repeated  eigenvalues 
determination. 

The  parameter  K  for  which  the  stability  margin  is  to  be  calculated  can 
be  though  of  as  providing  a  single  loop  feeback  around  the  system 
model  as  shown  in  Figure  47. 

The  characteristic  equation  of  the  above  system  with  nominal  parameter 

K  *  K  ,  is: 
n 

N(s)  *  P(s)  -  Kn  Z(s)  4.4-18 

Note  that  the  sign  of  the  feeback  is  determined  by  the  sign  of  K  and  is 
not  assumed  to  be  negative  as  is  often  the  case  in  text  books.  The 
roots  of  N(s)  are  the  eigenvalues  of  the  nominal  system,  and  the  roots  of 
P(s)  are  the  eigenvalues  of  the  system  with  K  =  0. 

To  concentrate  the  analysis  on  the  stability  boundary  of  the  complex 
plane,  i.e.  the  imaginary  axis,  we  may  set  s  *  jw  in  Equation  4.4-18. 

The  polynomials  P  (ju)  become  complex  quantities  for  real  values  of  <*>. 

We  are  interested  in  determining  those  real  values  of  K,  Kq,  which  will 
cause  N  (jw)  s  0.  Such  values  of  K  will  result  in  roots  of  the 
characteristic  equation  on  the  imaginary  axis  of  the  complex  plane. 
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Solving  equation  (4.4-18)  for  such  values  of  K  we  obtain: 
0  *  P  (ju)  -  KqZ  (jo,) 

k  . p  Uatl 

0  Z  (Ju) 


4.4-19 


4.4-20 


Since  we  are  interested  in  only  real  values  of  KQ  that  satisfy 
4.4-19,  we  need  consider  only  those  values  of  u  which  cause  the  phase 
of  P  (jw)/Z  (ju)  to  equal  0°  or  180°.  Further,  if  the  nominal 
parameter  Kn  <  0,  only  values  of  180°  need  to  be  considered,  and  if  the 
nominal  parameter  <n  >  0,  only  the  values  of  u  that  produces  0°  phase 
need  be  considered. 

The  approach  that  will  be  taken  to  determine  Kq  will  be  as  follows.  The 
roots  of  N(s)  and  P(s)  of  4.4-18  can  be  calculated  as  the  eigenvalues  of 
the  nominal  system,  and  the  eigenvalues  with  K  *  0  respectively,  and 
will  be  designated  as: 


Ni  1  *  '-2 .  "  K  *  K„ 

P,  1  *  1.2 . n  K  =  0 

Thus  N(s)  and  P(s)  can  be  stated  in  terms  of  their  roots  as: 


PCS)  -  7T  (s  -  P.) 


N(s)  -  IT  (s  -  N.) 
i=l 


4.4-22 


Solving  4.4-18  for  the  open  loop  transfer  function  in  terms  of  <n>  N(s) 
and  P(s)  we  obtain: 


6 


Mil .  i_  [ ! .  Mil  1 
p(s)  1^  L  P(s)  J 


.  Mil 


4.4-23 


Where: 


R(s) 


If  Kn  >  0,  the  phase  of  is  the  phase  of  R(s).  If  <  0,  the  phase 

of  is  the  phase  of  R(s)  minus  180°.  Thus,  the  method  simplifies  to 
a  search  for  the  frequencies  that  cause  the  phase  of  R(s)  to  be  0°, 
regardless  of  the  sign  of  Kn. 


Substituting  s  *  ju  into  4.4-22  and  4.4-22  into  4.4-23  we  obtain 


n 

1  *  IT 
1=1 


-  N.)  ' 

(jw  -  Pj)  . 


4.4-24 


*  iiM 

K_ 


4.4-25 


A  range  of  0  <  u  <  ui  _v  will  be  searched  to  find  those  values  of  u  at 
which  the  phase  of  R(jw)  is  zero.  At  this  freqCiency,  uQ,  the  limiting 
value  of  K,  Kq,  can  be  calculated  by  substituting  4.4-25  into  4.4-20: 


„  * 


4.4-26 


Magnitudes  of  R(jw)  >1.  result  In  lower  K  limits.  Magnitudes  of  R(joj) 
<  1«  determine  upper  KQ  limits.  The  usual  definition  of  stability 
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margin  is  the  ratio  of  maximum  K,  to  nominal,  <n  is  obtained  from  4.4-26 
to  be: 


*0  *  1  4.4-27 

Kn 

Search  for  Zero  Phase 

A  range  of  u  from  0  to  to  must  be  searched  for  zero  crossings  of 

filaX 

R(j<*>).  a)  v  is  arbitrarily  established  as  2  times  the  magnitude  of  the 
max 

largest  eigenvalue  of  the  nominal  system.  Zero  frequency  is  included 
since  a  real  divergence  is  indicated  by  a  zero  phase  of  R(0).  After 
u  *  0  has  been  checked,  the  search  begins  at  some  low  frequency 
Since  we  are  interested  in  phase  angles  near  0,  small  angle  approxima¬ 
tions  may  be  used  for  the  phase  of  R( jcu) .  By  this  approach  it  will  be 
possible  to  avoid  time  consuming  trigonometric  calculations.  Thus  phase 
angle  of  R(joj)  will  be  approximated  as: 

Ai-“>  ~  RT®  4'4-28 

The  search  proceeds  with  geometric  steps  from  When  a  zero  crossing 

occurs,  the  search  switches  to  a  dichotomous  mode  until  the  error  is 
reduced  to  some  tolerance  c.,  i.e. 

l/R(joj0)  |  <_  e  s  .00001  radian  4.4-29 

A  further  condition  is  included  in  this  search  strategy.  That  is  that 
the  phase  angles  determined  on  two  subsequent  geometric  search  steps 
should  not  differ  by  more  than  one  quadrant.  This  condition  is  included 
to  prevent  the  search  from  not  detecting  a  zero  crossing  in  a  region  of 
rapidly  changing  phase. 


The  mode  of  the  search  can  be  easily  related  to  the  standard  quadrant 
designations  of  the  phase  angles  as  described  below. 


The  absolute  value  of  the  difference  of  the  quadrant  numbers  of  the 
current  and  previous  phase  angle  is  calculated.  If  this  value  is  less 
than  two,  the  geometric  search  is  continued.  If  this  value  is  equal 
to  two,  a  small  step  backward  is  taken,  since  a  change  of  two  quadrants 
has  occured  and  a  zero  crossing  may  have  been  overlooked.  If  this  value 
Is  greater  than  two,  the  phase  angle  has  passed  from  the  first  to 
fourth  (or  visa-versa),  quadrant  and  a  dichotomous  search  is  started  to 
locate  the  value  of  frequency  that  produces  zero  phase. 

When  such  a  value  of  frequency  is  determined,  the  value,  uQ  and  the 
stability  margin,  — - »  are  stored  in  arrays,  and  the  search 

continues  in  the  geometric  fashion  until  w  is  reached. 

max 

At  this  point  in  the  analysis,  there  are  two  arrays  of  k  elements  n(i) 
and  GM(i)  that  contain  the  frequencies  <u  and  the  corresponding  magni¬ 


tudes 


by  the  maximum  value  of 


respectively.  The  lower  stability  limit  is  determined 

.  l . .  _  .r  1  1  -  -  -  .  i i 


which  is  less  than  1. 


The  upper  stability  limit  is  determined  by  the  minimum  value  of 
— — which  is  greater  than  1.  The  k  elements  of  GM(i )  are 

searched  to  determine  these  values.  Any  remaining  elements  of  GM(i) 
and  o(i)  indicate  parameter  values  and  divergence  frequencies  which 
exceed  the  critical  stability  limits,  but  at  which  another  oscillation 
would  occur  if  the  parameter  were  increased  beyond  the  critical  stabi¬ 
lity  bounds.  If  such  values  exist  in  the  searched  region,  they  will  be 
printed  out  by  the  program  as  noncrltical  stability  limits. 

4.4.5  Transfer  Function  Calculations 

The  method  that  is  used  to  calculate  transfer  functions  is  very  similar 
to  that  used  to  calculate  stability  margins.  In  each  case,  the  eigen- 


values  of  the  nominal  system,  and  the  eigenvalues  of  a  related  system, 
are  calculated  and  used  to  obtain  the  desired  results.  Since  the 
eigenvalues  of  a  linearized  system  can  be  calculated  quite  efficiently 
and  accurately,  this  approach  provides  an  efficient  and  accurate  method 
of  obtaining  specified  transfer  functions. 

The  transfer  function  from  any  point  R  to  any  point  C  in  the  system 
model  can  be  represented  as  shown  in  Figure  48.  The  transfer  function 
between  points  R  and  C  is  composed  of  the  ratio  of  rational  polynomials 
Z(s)  and  P(s). 

§&  •  m 


where:  R(s)  -  the  specified  input  quantity. 

C(s)  -  the  specified  output  quantity. 

Z(s)  -  transfer  function  numerator  polynomial. 

P(s)  -  transfer  function  denominator  polynomial, 
s  -  Laplace  complex  frequency  variable. 

The  roots  of  the  denominator,  P(s)  can  be  obtained  by  forming  a  linear 
representation  of  the  system  and  calculating  the  nominal  system  eigen¬ 
values,  as  discussed  in  Section  4.4-3.  If  the  equivalent  transfer 
function  system  of  Figure  49  is  modified  by  adding  a  feedback  path 
from  the  specified  output  quantity  to  the  input  quantity,  we  obtain  new 
dynamic  system  whose  transfer  function  is: 


Z(s) 

Z(s)+P(s) 


4.4-31 


Let  the  roots  of  P(s),  the  nominal  system  eigenvalues,  be  designated 
as  P^,  and  the  roots  of  Z(s)  +  P(s),  the  modified  system  eigenvalues, 
be  designated  i  a  1,  2,  .  n  where  n  is  the  system  order. 
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P(s)  -  IT  (s-Pj 
i=l  1 

n 

Z(s)  +  P(s;  =  IT  (s-N.) 

1=1  1 


4.4-32 


4.4-33 


The  desired  transfer  function,  can  be  obtained  in  terms  of  the  two 

sets  of  eigenvalues  P.  and  by  dividing  equation  4.4-33  by  4.4-32. 


U*Lm 

Fs 


4.4-34 


IT  (s-N.) 

i=l _  -  1 

n 

IT  (s-Pi) 

1=1 


Since  we  are  interested  in  the  steady  state  frequency  response,  we  will 
confine  our  attention  to  the  imaginary  axis  of  the  S  plane,  by  replacing 
s  with  ju. 


IT  (jw-Nj) 

1=1 _  -  1  4.4-35 

7T  (Jw-Pj) 

1  =  1 


Equation  4.4-35  gives  the  desired  transfer  function  in  terms  of  the 
eigenvalues  of  the  nominal  system,  and  that  system  modified  by  a  single 
loop  closure.  Since  N^  and  P^  are,  in  general,  complex  quantities,  and 
the  Jot  terms  are  pure  imaginary  quantities,  the  transfer  function  will 
be  a  complex  function  of  w. 
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The  numerical  methods  that  are  used  to  calculate  the  nominal  system 
stability  matrix  and  eigenvalues  are  described  in  Section  4.4.3.  The 
modified  system  stability  matrix  is  calculated  as  follows:  First,  the 
nominal  value  of  the  specified  output  quantity,  CQ,  is  determined.  At 
each  step  of  the  stability  matrix  calculation,  after  a  jth  state  variable 
has  been  perturbed,  the  difference  between  the  resulting  value  of  C, 

Cj,  and  the  nominal  value  CQ  is  subtracted  from  the  current  value  of  the 
input  quantity,  R^. 

R'<  *  R<  -  (C,  -  Cj  4.4-36 

J  J  J  o 

where:  R'j  -  input  quantity  modified  by  -1  loop  closure  from  C. 

Rj  -  input  quantity  without  -1  loop  closure  from  C. 

CQ  -  nominal  value  of  output  quantity. 

-  output  quantity  value  resulting  from  perturbing  jth 
state  variable. 

The  system  model  is  then  re-evaluated  from  the  point  in  the  model  equa¬ 
tions  at  which  R  appears.  In  this  way  the  effect  of  a  -1  loop  closure 
from  output  to  input  is  simulated.  Note,  that  this  technique  fails  if 
the  output  quantity  is  a  direct,  algebraic  function  of  the  input 
quantity.  In  such  a  case,  the  change  in  C  would  cause  a  change  in  R  via 
(4.4-36),  which  would  cause  a  further  change  in  C,  etc.  A  test  for  such 
"algebraic  loops"  is  performed  before  the  transfer  function  analysis  is 
allowed  to  proceed.  This  situation  only  occurs  in  those  cases  in  which 
the  transfer  function  numerator  polynomial  and  denominator  polynomial 
are  of  the  same  order.  This  situation  is  fortunately  quite  uncommon  in 
most  physical  dynamic  systems. 

4.4.6  Root  Locus  Calculation 

A  root  locus  analysis  provides  the  locus  of  the  system  eigenvalues  as  a 
function  of  some  specified  parameter.  The  EASY  Analysis  program  allows 
a  root  locus  analysis  to  be  performed  as  a  function  of  any  operating 


point  value,  as  well  as  any  system  parameter. 

The  root  loci  are  calculated  by  forming  the  stability  matrix  for  the 
system  for  each  specified  value  of  the  root  locus  parameter.  The 
eigenvalues  of  each  stability  matrix  are  calculated  to  give  the  root 
loci. 

The  methods  described  in  Section  4.4.3  are  used  to  calculate  the  system 
stability  matrices  and  eigenvalues.  However,  the  calculation  of  the 
linearity  measure,  RATIO,  is  omitted  for  two  different*  values  of  the 
root  locus  parameter,  a  comparison  of  the  elements  of  these  stability 
matrices  is  made  to  determine  which  elements  are  affected  by  changes 
in  parameter.  Subsequent  stability  matrix  calculations  only  re-evaluate 
those  elements  which  were  modified  by  the  first  two  values  of  the  root 
locus  parameter.  Due  to  storage  limitations,  a  limit  has  been  placed 
on  the  number  of  elements  that  can  be  modified  by  the  root  locus  para¬ 
meter.  This  limit  is  400  elements  of  the  stability  matrix.  If  more 
than  400  elements  of  the  stability  matrix  are  modified  by  the  root 
locus  parameter,  the  program  reverts  to  the  less  efficient  process  of 
evaluating  all  elements  of  the  stability  matrix  for  each  value  of  the 
root  locus  parameter. 

4.4.7  Eigenvalue  Sensitivity  Calculations 

An  eigenvalue  sensitivity  analysis  provides  a  measure  of  the  sensitivity 
of  system  eigenvalues  to  changes  in  a  specified  system  parameter.  The 
eigenvalue  sensitivity  measure  is  the  ratio  of  the  percentage  change  in 
the  parameter  for  which  the  sensitivity  is  to  be  measured.  This  is  stated 


*  The  two  different  values  are  the  nominal  parameter  value  and  the  RL 
START  value.  Therefore  RL  START  should  not  equal  the  nominal  parameter 
value. 


mathematically  as: 


4.4-37 


4.4-38 


Where:  Sa^  *  Sensitivity  measure  of  real  part  of  ith  eigenvalue 

to  change  in  parameter  P. 

S(i>i  *  Sensitivity  measure  of  imaginary  part  of  ith  eigen¬ 
value  to  changes  in  parameter  P. 

Oj  *  Nominal  value  of  real  part  of  ith  eigenvalue 

w..  *  Nominal  value  of  imaginary  part  of  ith  eigenvalue 

P  *  Nominal  value  of  parameter  for  which  sensitivity 
measure  is  being  calculated  s 

"  *  Prime  indicates  perturbed  values  of  parameters  and 

eigenvalues 

i  *  1,2,....,  n  n  =  model  order 
This  sensitivity  measure  has  the  following  properties: 

a.  It  is  dimensionless  which  allows  the  relative  sensitivities  of  para¬ 
meters  with  different  units  to  be  compared. 

b.  Sensitivity  measure  of  one  idicates  equal  percentage  change  in  eigen¬ 
value  per  unit  change  in  the  parameter. 

c.  Positive  sensitivity  indicate  eigenvalue  motion  toward  the  right  half 
plane,  i.e.,  destabilizing  and  lower  frequencies. 

d.  Negative  sensitivities  indicate  eigenvalue  motion  toward  the  left 
half  plane,  i.e.,  stabilizing,  and  higher  frequencies. 


4.4.8  Function  Scan  Calculations 


Function  scan  calculations  begin  by  setting  the  system  state  variable  to 
the  current  operating  point  values,  and  all  state  variable  derivatives 
to  zero. 

The  system  model  equations  are  then  evaluated.  The  specified  independent 
variable,  INDEP1,  is  then  set  to  its  initial  value,  START1,  and  the  model 
equations  are  re-evaluated.  If  the  independent  variable  is  a  state  vari¬ 
able  or  parameter,  the  model  equations  are  completely  re-evaluated.  How¬ 
ever,  if  the  independent  variable  is  a  variable  or  rate,  which  would  nor¬ 
mally  be  calculated  by  the  model  equations,  the  re-evaluation  beings  at 
the  statement  immediately  following  the  normal  calculation  of  the  variable 
or  rate.  In  this  way,  the  effect  of  the  variable  or  rate  on  the  model  is 
determined  for  the  specified,  rather  than  the  normal  value  calculated  by 
the  model.  This  process  of  re-evaluation  is  repeated  as  the  independent 
variable  is  scanned  from  START1  to  ST0P1.  After  each  re-evaluation  the 
value  of  the  specified  dependent  variable  DEPEN  is  recorded. 

If  a  second  independent  variable,  INDEP2,  is  specified,  this  variable 
is  set  to  its  specified  value  before  each  scan  of  INDEP1  and  the  model 
is  re-evaluated.  This  places  a  constraint  on  the  relationship  of  INDEP1 
to  INDEP2: 

If  INDEP2  is  a  variable  or  rate,  INDEP1  must  be  a 
variable  or  rate  that  is  calculated  below  INDEP2  in 
the  model  calculation  sequence. 

If  this  constraint  is  violated,  IN0EP2  will  not  scan  its  specified 
values,  but  will  merely  take  on  its  nominal  model  calculated  values.  Such 
a  conflict  can  always  be  resolved  by  interchanging  INDEP1  and  INDEP2.  If 
this  form  of  plots  is  not  desired,  the  desired  family  of  curves  can  be 
obtained  by  repeated  use  of  the  SCAN1  option  with  INDEP2  varied  using 
the  PARAMETER  VALUES  command. 


APPENDIX  M 


OPTIMAL  CONTROLLER  DESIGN  WITH  THE  EASY  PROGRAM 


This  appendix  is  a  reproduction  of  Section  4.5  of  reference  1.  It 


presents  a  description  of  the  optimal  controller  designs  performed  by  the 


EASY  Analysis  Program. 


\ 
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4.5  OPTIMAL  CONTROLLER  DESIGN 


The  optimal  controller  designs  performed  by  the  EASY  Analysis  program 
are  based  on  the  linear  optimal  regulator  theory  and  linear  filter 
theory  of  Kalman.  By  allowing  the  designer  to  specify  the  model  order 
and  optimal  controller  order  he  wishes  to  use  it  is  possible  to  apply  the 
theory  to  large  system  models  and  to  obtain  reasonable  sized  practical 
controller  designs. 

The  design  process  is  shown  in  Figure  50  where  the  dashed  line  ind¬ 
icates  engineering  feedback  needed  until  the  design  obtained  is  ac¬ 
ceptable  by  some  criterion.  The  basic  flow  indicates  the  linear¬ 
ization  about  a  desired  operating  point,  the  reduction  of  the  linear 
model,  and  then  the  calculation  of  the  optimal  gain  and  filter  matrices 
via  linear  optimal  regulator  theory.  The  initial  reduction  of  order  in 
the  linear  description  is  permitted  in  order  to  reduce  computational 
and  storage  requirements  in  the  subsequent  controller  calculations. 
Likewise,  before  leaving  the  design  process,  the  complexity  of  the  cal¬ 
culated  controller  can  be  reduced  to  any  prescribed  level  to  facilitate 
practical  realizations  and  analysis.  The  final  tasks  of  preliminary  linear 
analysis  (eigenvalues  of  resultant  system  with  reduced  controller)  and 
subsequent  simulation  of  full  nonlinear  systems  with  reduced  controller 
are  needed  to  assess  the  real  performance  of  the  design.  Based  on  this, 
the  designing  engineer  can  adjust  design  parameters  to  effect  more 
desireable  behavior. 

Section  4.5.1  considers  the  model  linearization.  The  method  for  reduction 
of  the  order  of  linear  systems  is  delayed  until  Section  4.5.12.  The 
factors  affecting  the  design  parameters  are  considered  in  Section  4.5.2 
where  the  basic  problem  definition  is  given.  Section  4.5.3  treats  model 
considerations,  including  the  calculation  of  default  values  for  design 
parameters.  In  Section  4.5.4  the  theory  for  the  optimal  gain  matrix 
calculation  is  given.  The  detailed  calculation  process  is  given  in 
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Section  4.5.5  while  Section  4.5.6  indicates  what  analysis  information 
is  generated  as  a  result  of  the  calculation  process.  Section  4.5.7 
parallels  the  development  for  the  Kalman  filter  with  Section  4.5.8 
giving  the  detailed  calculation  process  and  Section  4.5.9  the  analysis 
information.  Section  4.5.10  then  covers  the  controller  formation  and 
subsequent  reduction  and  adjustment.  Section  4.5.11  considers  the 
reduction  theory  with  4.5.12  giving  the  detailed  calculation  sequence. 
Finally,  Section  4.5.13  considers  the  use  of  the  designed  controller 
in  the  nonlinear  system  simulation. 

4.5.1  Linear  Model  Generation 

The  design  process  starts  with  the  generation  of  a  complete  linear 
model  of  the  system  at  the  specified  operating  point.  This  non-linear 
system  model  can  be  expressed  by  Equations  4.5-1  through  5.4-3. 


X  *  f(x,u,t) 

4.5-1 

Ys  *  fx(x,t) 

4.5-2 

Yc  3  fc(x’u,t) 

4.5-3 

where 

x  -  nx  dimensional  state  vector 

u  *  nu  dimensional  control  vector 

Ys=  n$  dimensional  sensor  vector 

Y  *  n  dimensional  criteria  vector 
c  c 

f  ■  nx  dimensional  vector  of  nonlinear  functions  relating 
state  variable,  inputs,  and  time  to  the  state  variable 
derivatives . 

f  *  n  dimensional  vector  of  nonlinear  functions  relating 
state  variables  to  sensed  quantities. 
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1 


i 


f  3  dimensional  vector  of  nonlinear  functions  relating 
c  c 

state  variables,  inputs,  and  time  to  criteria  quant¬ 
ities. 

A  linear  model  of  this  system  is  obtained  by  numerically  taking  the 
partial  derivatives  of  f,  f  ,  and  f  with  respect  to  x  and  u  as  described 

5  v 

in  Section  4.4.3.  The  equations  thus  obtained  are: 


x  3  Ax  +  Bu  +  Ixd 
Y  3  M  *  1 <v 


Y  =  H  x  +  D  u 
c  c  c 


where: 


4.5- 4 

4.5- 5 


4.5-6 


A  3  nx  by  nx  system  stability  matrix 
B  =  nx  by  ny  system  input  matrix 
H$=  n$  by  nx  system  sensor  matrix 
H  *  n  by  n  criteria  matrix 

C  C  X 

Dc=  n£  by  n^  criteria  input  disturbance  matrix 

Is  nx  by  nx  identity  matrix 

I$=  n$  by  ns  identity  matrix 

d  *  nx  dimensional  state  disturbance  vector 

v  3  n$  dimensional  sensor  disturbance  vector 

Note  that  it  is  assumed  that  the  control  vector,  u,  of  actuator  input 
does  not  directly  effect  the  sensed  quantities,  Y  .  The  control 
quantities  do  effect  the  sensed  quantities  via  their  effect  on  the  system 
states. 
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4.5.2  Design  Formulation 

The  state  vector  x  represents  deviations  from  a  desired  set  point  and 
the  control  vector  u  represents  perturbations  about  the  control  level 
at  the  set  point.  The  vector  d  is  a  disturbance  vector  for  the  state 
derivatives  and  for  this  problem  is  considered  to  be  a  zero  mean  white 
noise  process  with  a  covariance  matrix  given  by  a  diagonal  matrix  C^. 
Likewise  v  is  a  zero  mean  white  noise  process  affecting  the  sensors  and 
has  a  diagonal  covariance  matrix  C  .  With  this  description,  it  is  to 
be  noted  that  all  set  point  levels  for  the  state,  control,  and  noise  v 
vectors  have  been  removed.  Further,  all  noise  correlation  is  assumed  to 
be  included  through  additional  states  representing  filtered  white  noise. 
Details  of  this  procedure  are  treated  in  a  later  section.  The  theory 
presented  does  not  require  this  limited  disturbance  description  and  the 
design  programs  can  easily  be  altered  to  include  non-diagonal  covariance 
matrices  and  a  more  general  multiplier  (instead  of  the  identity  matrix). 
The  choice  was  made  to  facilitate  understanding  of  the  design  prodedure 
and  to  reduce  both  storage  requirements  and  required  input  data.  Further, 
the  chosen  level  of  generality  is  sufficient  for  most  all  design  problems 
considered  in  the  preliminary  design  and  analyses  stages. 

The  design  criterion  is  given  by  a  cost  functional 

00 

J  *  1 f  (y‘  Q  y  +  u'  Ru)  dt  4.5-7 

2  o  c  c 

where  Q  is  a  positive  semi-definite  weighting  matrix  relating  the  rel¬ 
ative  importance  of  the  various  criteria  variables  and  is  assumed 
diagonal  (any  off  diagonal  weighting  can  be  accounted  for  by  a  redefini¬ 
tion  of  the  varialbes  in  the  vector  y  ).  The  control  weighting  matrix 

V 

R  is  a  positive  definite  matrix  and  for  convenience  assumed  diagonal 
(little  physical  interpretation  can  be  given  to  off  diagonal  terms). 

The  design  problem  of  interest  is  to  obtain  a  description  of  u  as  a 


function  of  the  sensor  outputs  given  by  y$  that  causes  the  cost  function¬ 
al  of  Equation  4.5-7  to  be  minimized  given  any  initial  displacement. 

4.5.3  Modeling  Considerations 

Model  Assumptions 

Several  assumptions  are  made  in  the  problem  description  just  given  for 
the  sake  of  ease  of  computing  and  storage.  The  zero-mean  value 
assumption  for  both  the  state  and  sensor  equations  is  made  knowing  that 
non-zero-mean  quantities  are  included  in  the  set  point  values. 

Realizing  that  equations  4.5-5  through  4.5-6  are  for  deviations  about 
set  point  values,  the  disturbance  descriptions  are  for  deviations  about 
their  mean  values. 

The  assumption  that  each  state  derivative  is  affected  by  white  noise 
uncorrelated  with  that  affecting  other  states  seems  more  restrictive. 

In  practice,  however,  if  one  defines  band  limiting  filter  equations 
and  accounts  for  the  correlation  through  the  output  of  the  filter 
entering  into  the  equations  for  the  affected  state  derivatives,  most 
cases  can  be  approximately  treated.  The  theory  that  follows  does  not 
require  this  limitation  and  the  computer  programs  implementing  the 
the  algorithms  can  be  modified  to  include  the  more  general  form  of  the 
disturbance  function.  With  the  limitation,  however,  the  amount  of 
data  input  and  internal  storage  is  reduced. 

Design  Default  Value 

From  the  problem  description,  the  design  parameters  are  the  Q  and  R 
vectors  for  the  gain  calculation  and  the  C.  and  D  vectors  for  the  filter 
calculation.  The  defining  equations  for  the  criteria  variables  are 
also  part  of  the  design  specification  but  are  more  likely  to  remain 
fixed  for  any  given  problem  whereas  the  Q  and  R  vectors  are  varied  to 
effect  different  performing  systems.  The  choice  of  the  elements  of  Q 
and  R  are  relative  to  each  other  and  not  absolute  (doubling  all  the 


elements  of  each  does  not  change  the  problem).  Since  R  must  be  positive 
definite  a  logical  default  value  for  any  element  of  R  less  than  or  equal 
to  zero  is  unity.  Likewise  for  Q  which  must  be  positive  semi-definite, 
default  values  are  unity  for  any  element  less  than  zero.  The  above  two 
sets  of  default  values  do  not  take  into  account  any  relative  sizes  of 
criteria  or  control  variables  but  only  assure  the  sign  definite  require¬ 
ments  of  the  problem  formulation. 

Default  values  for  the  noise  covariance  matrices  (assumed  diagonal)  used 
in  the  calculation  of  the  Kalman  Filter  require  more  computation  in 
that  they  are  less  likely  to  be  input  by  design  engineers  due  to  less 
familiarity-especially  in  the  initial  stages  of  the  problem.  To  get  some 
physical  interpretation,  if  one  assumes  that  noise  causes  errors  (both 
in  the  state  derivatives  and  in  the  measurements)  that  are  normally 
distributed  about  the  correct  value  with  95%  of  the  errors  within  a 
bound  +  a,  then  the  appropriate  choice  for  the  variance  (o  )  is  given  by 


a2 

3.8416 


4.5-8 


This  equation  is  derived  through  the  use  of  the  erf  function  as 


2  erf  (-2-)  -  .95 


4.5-9 


or 


4.5-10 


which  is  obtained  from  a  table  for  the  erf  function.  Equation  4.5-8 
is  then  a  direct  result  of  Equation  4.5-10. 

To  get  some  bounds  on  the  errors  in  the  calculation  of  state  derivatives 
due  to  both  external  disturbances  and  model  inaccuracy,  a  measure  of  the 
relative  size  of  each  state  is  needed.  In  the  EASY  program,  this  is 
provided  by  the  ERROR  vector.  Thus  to  obtain  uncertainty  bounds  for  the 
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state  derivatives,  the  following  equation  is  used  for  limit  values  L*. 

K 

L1  -  10  2:  ja^^* ERROR  (j)|  4.5-11 

i  *  1  1J 

which  indicates  the  sum  of  all  tha  absolute  state  minimum  perturbation 
sizes  weighted  by  the  multiplier  in  the  system  matrix  A.  The  IQ  multi¬ 
plier  is  artificial  and  used  to  account  for  model  inaccuracy  in  general 
and  to  force  the  resulting  design  to  favor  current  measurements  rather 
than  historical  information  (which  will  happen  if  the  model  is  assumed 
more  accurate  than  the  measurements)  the  actual  covariance  matrix  elements 
is  then  computed  as 

a2  *  Lf/3.8416  4.5-12 

The  noise  covariance  matrix  for  the  measurements  is  computed  in  a 
similar  manner  where  the  limits  iJ  are  computed  as 

nx 

L  *£  l(Hs)  ij  -ERR0R(j)|  4.5-13 

j-1 


which  weights  the  measurements  relative  to  the  minimum  purturbations 
in  the  states.  This  is  not  ideal  but  suffices  in  the  absence  of  any 
other  data. 

It  is  anticipated  that  these  default  values  will  help  get  a  design  started 
but  that  as  experience  is  gained  with  the  model  and  with  resulting 
controllers  better  values  can  be  input  to  more  fully  effect  the  “best" 
design. 
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4.5.4  Gain  Matrix  Calculation 


The  separation  theorem  of  linear  optimal  control  states  that  the  optimal 
controller  is  composed  of  a  linear  feedback  gain  matrix  G  operating  on  an 
optimal  estimate  of  the  state  obtained  through  the  use  of  a  Kalman  filter. 
The  feedback  matrix  G  is  computed  as  if  no  noise  disturbances  were 
present  and  as  if  all  the  states  are  available  for  feedback.  The  follow¬ 
ing  section  outlines  the  procedure  for  calculating  the  optimal  feeback 
gain  matrix  G. 

Substitution  of  the  expression  for  y  in  equation  4.5-6  into  the  cost 
functional  of  equation  4,5-7  yields 

00 

J  a  y  cf  ^Hcx  +  Dcu)  'Q(Hcx  +  Dcu)  +  u'  Ru}dt 
00 

•i  J  (x'H  'QH  x  +  u'O  'QH  x  +  x'H  'QD  u  4.5-14 

£  t  C  v  c  t  c 

+  u'  (R+D„'QDju}dt 

C  v 

Following  a  procedure  using  the  Minimum  Principal  of  Pontryagin  (Ref. 2) 
one  forms  the  Hamiltonian  for  this  system  as 

H  »  i  {x'H'QH  x  +  u’O'QH  x  +  x'H'QD I  u  +  u’(R+D'QDju} 
fc>  CC  C  v  cc  cc 

+  p'Ax  +  p'  Bu  4.5-15 

where  p  is  now  the  costate  vector.  The  differential  equation  for  p  is 
given  by 


•  an 

F  -  -  -  <Hc'QHcx  +  Hc'QDcu  +  A’p} 


4.5-16 
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A  necessary  condition  for  an  optimal  solution  is  given  by 


3H  =  0  -  0  *QH  x  +  (R+D  'QD  )u  +  B'p  4.5-17 

3u  c  c  c  c 

which  implies 

u  a  -  ( R+D  ' QD  ) _1 ( D  1 QH  x  +B'p).  4.5-18 

V  t  t  L 

Therefore,  substitutions  of  the  expression  for  u  into  the  differential 
equations  for  x  and  p  yields 

x  *  Ax  -  B  (R+D  'QD  )”1(D  'QH  x  +  B'p)  4.5-19 

w  V  W  C 

P  *  -A’p  -  H  'QH  x  +  H  ’QD  (R+D  'QD  )~*(D_ ‘QH  x  +  B'p) 

cc  cccc  cc  4.5-20 


or  in  matrix  form 


X 

r  A-B  ( R+D  '  QO  ) -10  *  QH  !  -B  ( R+D  '  QD  )  ~  XB  '  ~| 

cccc  1  c  c 

1 

"x  “ 

3 

1 

-H  '(Q-QDjR+O  'QDJ^O  'Q)H  U'+H'QD  (R+0  'QJ/V 

C  C  CC  C  Ci  CC  C  v 

-PJ 

A  -BR-18 ' 

_ 

X 

-H  'QH  -A' 
c  c 

m  mm 

P 
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where: 


A  «  A-B(R+Oc'QOc)"1Dc'QHc  4.5-22 

R  *  (R+DC'QDC)  4.5-23 

Q  -  Q  -  Q  Oc  (R+Oc'QDc)_1Dc,Q  4.5-24 

Since  R  was  assumed  positive  definite  and  Q  positive  semi -definite,  it 
can  be  shown  that  R  is  also  positive  definite  and  Q  is  positive  semi- 
definite. 


A  second  condition  termed  the  transversatility  condition  requires  that 
P(t)  lt^*0.  4.5-25 

When  the  intial  condition  for  x(t)  is  considered,  it  is  seen  that 
equations  4.5-21  and  4.5-25  pose  a  two  point  boundary  value  problem. 

In  order  to  solve  for  p(t)  and  x(t)  which  are  needed  to  determine 
the  control  u(t),  consider  a  change  of  variable 

x  -  •  -  t  4.5-26 


which  when  used  in  equations  4.5-21  and  4.5-25  results  in 


f- 

r*  n 

x(t) 

-A  8R  B' 

x(t) 

s 

p(x)_ 

H  'QH  A' 

.C  C 

P(t) 

—  — 

p(t)  lT,0-o 


4.5-27 


4.5-28 


4.5-29 
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Now  let  fl  be  the  fundamental*  matrix  for  the  system  matrix  in 
equation  4.5-27.  Partition  fl  into  quadrants  corresponding  to  the 
partition  in  equation  4.5-27  to  obtain 


x(x)  nu(x) 

x(x) |  x  =  0 

p(x)  ^21^^  ^22^ 

p(x)|  x  *  0 

4.5-30 


Now  using  the  condition  of  Equation  4.5-28 


x(x)  3  nu(x)  [x(x)|  Ta0] 

4.5-31 

p ( x )  -  n2i(t)  [x(t)it»  0  ] 

4.5-32 

from  which  one  obtains 

p(t)  -  n21(T)n11*1{x)x(x) 

4.5-33 

providing  Q21  (x)  is  non  singular. 

Since  fl^x)  is  equal  to  the 

Identify  matrix  at  x  equal  to  zero  and  is  a  fundamental  matrix,  it  is 
nonsingular  for  all  x. 

Drawing  on  some  results  by  J.  J.  O'Donnell,  (Ref.  3),  it  is  known  that 
the  system  matrix  of  equation  4.5-27  has  eigenvalues  symmetric  with 
respect  to  both  the  real  and  imaginary  axis  of  the  complex  plane.  This 
is  shown  by  using  a  linear  transformation 

4.5-34 

which  when  applied  to  the  system  matrix  of  equation  4.5-27  indicates  it 
is  similar  to  a  matrix  whose  eigenvalues  are  the  negative  of  its  own. 


0  -I 
I  0 


*  Also  referred  to  as  the  state  transition  matrix. 


The  conditions  of  R  and  Q  being  positive  definite  and  semidefinite 
is  sufficient  to  insure  all  eigenvalues  with  zero  real  parts  are  of 
multiplicity  2.  Using  these  facts,  let  W  be  a  transformation  such 
that 


,r  ~  «-ii  _ 

W  1  -A  BR  B'  W  -  A  0 
LHC,QHC  A*  J  0  -A' 


4.5-35 


where  all  the  eigenvalues  of  A  have  non-negative  real  parts  and  complex 
eigenvalues  occur  in  conjugate  pairs.  Thus 


fl  (t)  «  W  e  At  0  1  W"1 

«  SA'T 

o  e 


4.5-36 


U  »  W'1 

and  partition  U  and  VI  to  obtain 

nn<T)  *  “n  eAT|)u  *  wi2  *A  Tu2i 

°21(t)  *  “21eAT  U11  *  W225A,T  U„ 


Then  equation  4.5-33  reduces  to 
_ / _ \  _  r..  .I  i  .j  tA  t 


4.5-37 


p(t)  *  Cw2ie  T  un  +  W22®  TU21^Wlle  U11  + 
w12eA’T  U21]  'l  x(t) 


4.5-38 


4.5-39 


4.5-40 
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Since  we  are  interested  in  the  control  law  in  the  time  frame  of  t  near 

zero,  we  must  look  at  p(t)  as  tapproaches  ®.  If  A  has  all  eignevalues 

with  positive  real  parts  (not  just  non-negative)  then  as  x  becomes  larqe 
-A'r 

the  terms  with  e  must  become  small  with  the  result  that  for  large  t 


p(t) 


«ue 


Ax 


-1 


x(t) 


which  assuming  non  singularity  of  W 


P  (t) 


W 


21 


11 

aAx  ,  At  , 

■  U11  UU  )  1 


and  yields 
Wn'1  x(t) 


W21  “ll"1 


4.5-42 


as  t  approaches  «.  Thus  for  t  near  zero,  from  equation  4.5-18  we 
obtain 

u(t)  =  -  R”1  (Dc  'QHc  +  B'  W21Wn‘1)  x(t).  4.5-43 

The  condition  that  causes  the  indicated  inverses  and  Ujj  not  to 
exist  is  the  existence  of  a  unstabilizable  mode  in  the  original  system 
equations.  If  the  mode  has  eigenvalues  with  zero  real  parts,  the 
assumption  that  iA  T  terms  in  equation  4.5-40  become  small  with  respect 
to  eAx  terms  is  incorrect.  If  the  mode  has  eigenvalues  with  positive 
real  parts,  then  will  be  singular.  To  see  this  consider  a  system 
of  equations 


p.l 

1 

o 

H 

X1 

*0* 

* 

+ 

1 

CM 
*  X 

0  Aj 

X2 

A 
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in  which  Aj  has  eigenvalues  with  positive  real  ports. 
The  resulting  matrix  for  equation  4.5-27  is 


Xj  (t) 

1 

o 

o 

o 

H 

«c 

1  ' 

X1 

• 

x2  (t) 

= 

o  -a2  o  b2r_1b2 

X2 

Pj  (t) 

QU  Q12  Aj*  0 

P1 

p2  (t) 

_Q12  Q22  0  V 

_P2- 

4.5-45 


Note  now  that  as  one  computes  the  eigenvectors  corresponding  to 
eigenvalues  with  positive  real  parts  the  only  portion  of  the  eigen¬ 
vector  that  can  be  non-zero  is  that  corresponding  to  the  third 
partition.  Thus  would  have  columns  of  zeros  corresponding  to 
each  variable  in  x^. 

The  conclusion  of  this  section  is  that  if  one  is  able  to  partition 
the  eigenvalues  as  indicated  in  Equation  4.5-35,  and  if  none  of  the 
eigenvalues  have  zero  real  parts,  and  if  the  Inverse  of  exists, 
then  the  solution  given  in  4.5-43  is  the  correct  solution.  In  practice, 
the  program  used  to  implement  the  procedure  require  that  the  matrix 
in  Equation  4.5-35  be  diagonal izable  so  that  if  is  singular,  it 
might  also  be  the  result  of  this  restriction  not  being  satisfied. 

4.5.5  Solution  Process 

The  numerical  process  for  computing  the  gain  matrix  is  given  by: 

1.  Form  the  matrix  for  the  system  and  adjoint  equations  as  in 
Equation  4.5-27  with  definitions  4.5-22,  4.5-23  and  4.5-24. 

2.  Compute  the  eigenvalues  of  the  matrix  formed.  If  any  eigen¬ 
values  have  zero  (with  the  precision  of  the  computation)  real 
parts,  this  indicates  that  the  system  is  unstabil izable  and  that 
no  solution  exists.  (See  Appendix  A). 
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3.  Partition  the  eigenvalues  Into  two  groups  with  all  eigenvalues  with 
positive  real  parts  in  the  first  group. 

4.  Compute  eigenvectors  for  each  eigenvalue  with  a  positive  real 
part.  (See  Appendix  A). 

5.  Partition  the  eigenvectors  computed  into  matrices  and  W21* 

6.  Solve  for  where  Wjj’*  exists.  If  Wjj  is  singular 

(within  precision  limitations)  Indicate  that  either  the  original 
system  had  an  unstabil izable  (unstable  and  uncontrollable  mode 
or  that  the  rare  event  of  a  non-diagonal izable  system  +  adjoint 
matrix  occurred. 

7.  Compute  the  gain  matrix 

6  *  -  R'1  (D*cQHc  +  B,W21Wu"1)  4.5-46 


4.5.6  Closed  Loop  Eigenvalues 


Computing  the  optimal  feedback  matrix  in  this  manner  yields  information 
on  the  resulting  closed  loop  linear  control  system.  From  equation 
4.5-35 


-A  Wu  +  BR"1  B'W£1  =  Wu  A 


4.5-47 


Where  A  contained  the  eigenvalues  with  positive  real  parts. 

-1 


Postmulti plying  by  -W 


11 


;-i 


A  -  BR  *  B'  W21  Wn 


one  obtains 
-1 


W11  A  W11 


-1 


4.5-48 


or  when  A  and  R  are  substituted  as  in  Equation  4.5-22  and  4.5-23 


*-l 


A-B(R+Dc,QDc)'i(Dc,QHc+B’W21W11'1)  =  W11(-A)Wn’1  4.5-49 


-1 
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Recognizing  the  second  term  as  B  times  the  optimal  gain  matrix  G 
computed  in  Equation  4.5-46,  one  obtains 

A  +  BG  =  Wn  (-A)  Wj/1  4.5-50 

which  indicates  that  the  optimal  closed  loop  system  given  by  A+BG  has 
the  eigenvalues  of  -A.  For  -a  in  a  diagonal  form  is  the  set  of 
eigenvectors.  Note  that  as  a  was  chosen  as  all  the  eigenvalues  with 
positive  real  parts,  -A  must  have  all  eigenvalues  with  negative  real 
parts.  Thus  A+BG  must  be  stable. 

4.5.7  Kalman  Filter  Calculation 

In  this  section  the  filter  portion  of  the  total  controller  is  considered. 
Using  the  notation  of  Section  4.5.1  and  the  results  of  Theorem  7.1  in 
the  book  by  Meditch,  (Ref.  4),  the  optimal  filtered  estimate  for  the 
system  described  in  Equations  4.5.4  through  4.5.6  is  given  by 

x  (t)=Ax(t)+S{t)  Y$(t)  -  H$  x(t)  +  B  u(t)  4.5-51 

where 

x(0)  *  0 

and  where 

S(t)  =  P(t)  H^C/1  4.5-53 

and  where  P(t)  satisfies  the  differential  equation 

p(t)  *  A  P(t)  +  P(t)  A'  -  P(t)  H  '  C  1  H  P(t)  +  C.  4.5-54 

5  V  5  Q 

with 

P(0)  •  E  [*(0)  x'(0)]  4.5.55 
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where  the  term  on  the  right  side  of  Equation  4.5-55  is  the  covariance 
of  the  state  at  time  zero.  Although  P(t)  and  thus  S(t)  are  in  general 
time  varying,  it  is  undesireable  from  an  implementation  point  of  view 
to  design  time  variable  controllers.  More  realistically  if  one  assumes 
that  the  covariance  of  the  filtered  estimate  is  at  steady  state  which 
is  obtained  as  the  limiting  value  of  P(t)  as  t  becomes  large  in 
Equation  4.5-54,  then  S  given  in  Equation  4.5-53  becomes  a  constant 
matrix  with  the  result  that  the  filter  equations  are  linear  and  time- 
invariant. 

In  order  to  solve 

Ap+PA1  -  PHS'  Cv“X  H$P  +  Cd  *0  4.5-56 

can  use  the  eigenvector  approach  reported  by  Potter  (Reference  5) 
arJ  by  O'Donnell  (Reference  3)  which  states  that 

P  *  W21Wn_1  4.5-57 

f-A'  V  Cv‘‘  ”, 

L  * 

and  where  A  is  the  set  of  eigenvalues  of  the  matrix  on  the  left  hand 
side  of  equation  4.5-58  that  have  positive  real  parts.  Then  and 
W21  are  partitions  of  the  set  of  eigenvectors  corresponding  to 
eigenvalues  with  positive  real  parts.  The  solution  is  analagous 
to  that  computed  for  the  gain  matrix  in  the  optimal  regulator  problem 
and  the  conditions  that  all  unobservable  modes  are  stable  along  with 
C  positive  definite  and  C,  positive  semi-definite  insure  the  existence 

V  Q 

of  Wji  a  solution. 

Having  calculated  W21  and  W^,  the  S  matrix  defined  in  Equation  4.5-53 
can  be  evaluated  from  the  expression 


i  Tw  ”1  r  W 
W11  ,  W11 

u  w 

J  L.  21J  L  21  J 


4.5-58 


4.5-59 


by  first  solving  the  linear  system  of  equations  for  and  then 

premulti plying  by  W21‘  The  dynamic  equations  for  the  Kalman  filter  can 
now  be  written  (from  equation  4.5-51)  noting  that  u(t)  is  to  be  given  by 

u  »  G  x  4.5-60 


and 


X  «  (A+BG-SHs)x  +  S  Y$  4.5-61 

Equations  4.5-60  and  4.5-61  now  form  the  description  of  the  full 

controller  with  x$  the  input  and  u  the  output. 

4.5.8  Kalman  Filter  Solution  Process 

er 

The  numerical  process  for  computing  the  filter  matrix  S  is  given  by: 

1.  Form  the  2nx  by  2nx  matrix  of  system  and  adjoined  equations  given 
by  the  left  hand  side  of  Equation  4.5-58. 

2.  Compute  the  eigenvalues  of  the  matrix  formed.  If  any  of  the  eigen 
values  have  zero  real  parts,  this  is  an  indication  that  the  system 
is  unobservable  and  that  no  solution  exists.  (See  Appendix  A  for 
computational  details). 

3.  Partition  the  eigenvalues  into  two  groups  with  all  the  eigenvalues 
with  positive  real  parts  in  the  first  group. 

4.  Compute  the  eigenvectors  (or  real  combinations  of  eigenvectors  in 
the  case  of  complex  conjugate  eigenvalues)  for  each  eigenvalue  in 
the  first  group.  (See  Appendix  A  for  computational  details). 

5.  Partition  the  matrix  computed  into  W..  and  W,.. 

*1  *1  ^ 

6.  Solve  for  Hs'  Cy  with  a  standard  linear  equation  solver 

routine.  Should  be  singular  (or  badly  conditioned),  this 
indicates  that  either  the  original  system  had  an  unstable  un- 
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observable  mode  or  that  the  rare  event  that  the  matrix  formed 
in  step  1  was  undiagonalizable  occurred.  With  the  calculation 
process  used,  multiple  eigenvalues  with  independent  eigenvectors 
will  not  cause  the  method  to  fail  except  in  extremely  rare  cases. 
7.  Compute  S  as  the  product  of  with  the  above  solution. 

4.5.9  System  Eigenvalues  Using  Kalman  Filter 

As  in  the  case  of  the  gain  matrix  calculation  where  the  eigenvalues 
(obtained  by  partitioning)  with  negative  real  parts  were  the  optimal 
closed  loop  eigenvalues  for  the  system  using  the  computed  feedback 
matrix,  the  eigenvalues  computed  in  the  solution  process  for  the 
Kalman  filter  have  significance. 

Using  Equations  4.5-60  and  4.5-61  as  the  description  of  the  full 
Kalman  filter/controller  and  the  original  system  equations  given  in 
4.5-4  and  4.5-5,  one  obtains  the  equations  for  the  total  closed  loop 
system  as 


BG 


m 


A+BG-SH$ 


4.5-62 


Consider  now  a  transformation  J  where 


and  where  the  I's  are  identity  matrices  of  order  nx- 


4.5-63 


BG 

A+BG  - 


J 


-  A+BG 
0 


BG 

A  -  SH$ 


4.5-64 


which  indicates  that  the  total  closed  loop  system  has  eigenvalues 
corresponding  to  (A+BG)  which  are  the  eigenvalues  computed  during 
the  calculation  of  the  optimal  gain  matrix  and  corresponding  to 
(A-SHs).  It  will  now  be  shown  that  these  eigenvalues  are  the  ones 
computed  during  the  calculation  of  the  Kalman  filter.  From  Equation 
4.5-58 


-A'  Wn  +  Hs‘  Cv_1  H$  W21  »  Wu  A  4.5-65 

which  postmulti plying  by  yields 

A*  -  H$'  C/1  Hs  W21  Wu*1  »  Wu  (-A)  Mu*1  4.5-66 

Since  P  from  Equation  4.5-56  is  symmetric  and  equal  to  W21 
the  use  of  Equation  4,5-59  yields 

A*  -  H$'  S‘  *  Wn  (-A)  W n~l  4.5-67 

which  indicates  that  the  negative  of  the  eigenvalues  calculated  in 
the  solution  process  for  the  S  matrix  are  indeed  the  eigenvalues  of 
A-SH$  since  eigenvalues  are  invariant  under  transformation.  Thus 
the  2nx  eigenvalues  of  the  total  closed  loop  system  are  the  eigenvalues 
calculated  as  part  of  the  gain  matrix  and  optimal  filter  solution  process. 
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By  more  manipulation  the  eigenvectors  for  the  system  described  in 
Equation  4.5-62  can  be  described  in  terms  of  the  matrices  (and 
inverse)  calculated  for  both  the  gain  matrix  and  Kalman  filter.  No 
attempt  is  made  to  exploit  this  information  as  the  real  subsequent 
analysis  hinges  on  a  reduced  controller  operating  with  the  non¬ 
linear  system. 

4.5.10  Controller  Formation,  Adjustment,  and  Reduction 

The  formation  of  the  controller  is  straightforward  when  no  initial 
system  reduction  took  place.  That  is,  from  equations  4.5-60  and 
4.5-61,  the  controller  input  is  Y$,  the  output  is  the  actuator  signal 
u,  and  the  representative  block  diagram  given  in  Figure  51. 

Now  the  above  controller  is  of  the  same  order  (nx)  as  the  original 
system  description.  Since  this  controller  is  now  just  another  linear 
dynamic  system,  it  is  natural  to  ask  if  a  lower  order  approximation  can 
be  made.  The  input  Y  and  output  u  would  have  to  remain  the  same  but 

5  A 

the  dynamics  describing  x  would  be  reduced.  Section  4.5.11  gives  the 
theory  and  calculation  necessary  to  reduce  this  system.  For  now  it 
suffices  to  state  that  a  new  reduced  system  of  the  form  shown  in  Figure 
52  results. 

Note  that  in  Figure  52  the  input  and  output  have  not  changed.  The 
matrices  S^,  G^,  AK>  are  now  of  reduced  dimensions  (z  is  not  as  large 
as  x)  and  a  new  block  represented  by  is  added.  This  is  a  controller 
feedforward  block  and  represents  a  direct  gain  from  the  measurements 
(inputs  to  the  controller)  to  the  control  signal  (the  output  from  the 
controller).  Intuitively  this  addition  is  needed  in  that  when  fadt 
dynamics  are  ignored,  their  effect  is  essentially  an  instantaneous 
response  to  the  input.  Also,  the  classical  methods  in  control  design 
allow  a  feedforward  controller  (i.e.  a  simple  feedback  gain)  so  that 
this  reduction  process  that  results  in  the  F«  term  seems  most  reason- 
able. 


Figure  51 .  Full  Controller  Block  Diagram 


Figure  52 .  Reduced  Controller  Block  Diagram 
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Controller  formation  and  reduction  for  the  case  when  initial  system 
reduction  took  place  is  more  complicated.  If  one  proceeds  in  a 
logical  manner  for  the  reduction  of  order  in  the  initial  description, 
a  feedforward  term  in  the  expression  for  the  sensor  output  Y$  results, 
that  is 

Y$  *  H$  x  +  D$  u  4.5-68 

In  block  diagram  form,  the  initial  system  (reduced)  appears  in  Figure 
53. 


This  term  due  to  0  does  not  have  any  effect  during  the  calculation  of 
the  optimal  gain  matrix  and  can  be  ignored  during  the  calculation  of 
the  optimal  filter.  That  is,  the  optimal  filter  is  predicted  on  an 
input  H$x  which  is  now  really  (Ys-0$u).  Thus  to  form  a  controller  with 
input  Y$  and  output  u,  one  has  to  subtract  the  Dsu  term  so  that  the 
correct  input  to  the  Kalman  filter  results.  This  is  shown  in  Figure 
54. 

The  total  controller  is  now  the  dynamics  between  points  PI  and  P2. 
Several  alternatives  now  exist  for  the  reduction  of  this  controller. 
Since  the  feedback  term  involving  Dg  has  no  dynamics  associated,  order 
reduction  can  be  accomplished  either  before  or  after  simplification 
by  elimination  of  the  feedback  path.  Elimination  before  results  in 
a  system  shown  in  Figure  55. 

This  system  is  now  just  like  the  one  shown  in  Figure  51  except  for 
the  extra  term  in  the  system  matrix  and  can  be  similarily  reduced. 
Another  approach  would  be  to  take  the  dynamic  system  between  points  P2 
and  P3  in  Figure  54  which  is  now  just  that  of  Figure  51  and  reduce 
it  to  obtain  the  system  shown  in  Figure  52.  If  this  is  done,  and 
the  reduced  system  substituted  between  points  P2  and  P3  in  Figure  56, 
the  following  block  diagram  results. 
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Figure  53.  Reduced  System  Block  Diagram 


i 


4 


Figure  54 .  Block  Diagram  of  Controller  When  Initial  System  Had  Feedforward  Term 
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I, 


In  the  block  diagram  of  Figure  56  there  is  both  algebraic  feed¬ 
forward  and  feedback  that  must  be  accounted  for.  Noting  that  for 
the  case  shown  in  Figure  56. 


u  ’  FK  <Ys  -  Ds  u>  +  V 


Then  one  can  solve  for  u  as 

u  -  (I  +  F|CDS)*1(F|CYS  +  Gkz) 

providing  the  inverse  exists  (an  assumption  rarely  violated) 
From  this  one  can  define  a  modified  F^  and  as 

K  5  +  W~\ 

G  2  (I  +  FkDs)_1Gk 


u  *  FIC  YS  +  8K  Z* 

The  expression  for  the  dynamic  portion  then  becomes 

z  V  Ak  z  +  SR  (Ys  -  D$u) 
which  through  the  use  of  Equation  4.5-73  becomes 


Z  *  A^z  +  SR  Ys  -  SrDs  fK  Ys  -  SR0$  Gk 

.  (ak  -  srdsgk)z  ♦  <sR  -  srdsfk)  ys 


4.5-69 


4.5-70 


4.5-71 


4.5-72 


4.5-73 


4.5-74 


4.5-75 


which  Indicate  the  modified  A^  and  required  to  eliminate  the  static 
feedback.  By  using  this  second  technique,  the  linear  analysis  of  the 
resulting  system  becomes  simple  as 


4.5-76 


For  this  reason  and  because  little  advantage  is  seen  for  either 
technique  over  the  other,  the  second  method  is  the  one  implemented. 

4.5.11  Linear  System  Reduction  Theory 

The  problem  of  interest  is  to  approximate  a  high  order  linear  dynamic 
system  by  one  of  lower  order  in  such  a  manner  that  the  output 
responses  due  to  various  inputs  are  "close".  The  value  of  a  low 
order  approximation  lies  in  the  reduced  computational  and  storage 
requirements  for  analysis  and  design  and  in  the  reduced  complexity 
for  implementation.  Consider  the  linear  description  in  the  normal 
form. 


x  »  Ax  +  Bu  4.5-77 

y  *  Hx  4.5-78 

Where  X  is  a  n  dimensional  state  vector,  u  is  a  n  dimensional 

A  U 

control  vector  and  Y  is  a  n$  dimensional  measurement  vector. 

The  lower  order  approximation  sought  is  of  the  form 


i  ■  Arz  +  8Ru  4.5-79 

y  •  Hrz  +  Dru  4.5-80 

where  u  and  y  are  as  defined  above  and  z  is  a  nR  dimensional  reduced 
state  vector  with 


4.5-81 


This  description  differs  from  many  reported  in  the  literature  in  that 
the  feedforward  term  accounted  for  in  0R  is  permitted.  In  some  cases 
this  may  be  a  disadvantage  but  for  most,  especially  for  the  simplifi¬ 
cation  of  controllers,  it  leads  to  a  natural  and  appealing  reduction. 
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The  proposed  approach  is  a  classical  one  of  retaining  the  lowest 
frequency  modes  and  neglecting  the  dynamics  associated  with  the  higher 
stable  modes. 


Consider  a  transformation  T  where  T  is  nonsingular  and 


4.5-82 


Lo  A, 


4.5-83 


Where  A  is  block  diagonal  with  1  by  1  blocks  for  real  eigenvalues 
and  2  by  2  blocks  for  complex  conjugate  pairs  of  eigenvalues.  For 
this  discussion  and  for  the  implementation,  it  is  assumed  that  A  is 
diagonal izable  (any  multiple  eigenvalues  have  as  many  independent 
eigenvectors).  Further  it  is  assumed  that  A  is  partitioned  into 
and  A^  where  all  unstable  and  the  lowest  magnitude  stable  eigenvalues 
are  in  A^  and  the  large  magnitude  stable  eigenvalues  and  in  A^. 

The  resulting  equations  for  a  similarily  partitioned  w  are 


-wl1  0  wL 

-WH-  _°  V  _WH 


(T'1  B)t 
(T"1  B), 


4.5-84 


y  *  [(h  t)l  (h  t)h]  r wL 


4.5-85 


To  neglect  the  dynamics  associated  with  wH  is  to  assume  that  wH 
responds  instantaneously  to  any  input.  Thus  w^  should  be  zero 
resulting  in 
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4.5-86 


;H  -  ^  wH  +  (T_1  b)hu  3  0 

WH  -V1  ^T_1  B^HU  4.5-87 

which  is  the  algebraic  relation  desired.  Equations  4.5-84  and  4.5-85 
can  then  be  written  eliminating  wH  as 

*L  *  \  Wl  +  (T_1  b)lu  4.5-88 

y  s  (H  T)l  wl  -  (H  T)h  Ah-1  (T'1  B)h  u  4.5-89 

with  the  terms  identified  as 

Ar  *  4.5-90 

Br  -  (T*1  B)l  4.5-91 

Hr  *  (H  Y)l  4.5-92 

dr  HH  T)h  Ah"1  (T"1  B)h  4.5-93 


The  needed  assumption  Is  that  Ah”1  exists  which  will  be  the  case  when 
Ah  contains  large  stable  eigenvalues.  Note  also  that  nR  can  be  pre¬ 
specified  as  long  as  nR  is  greater  than  the  number  of  unstable  eigen¬ 
values.  Further,  it  may  be  necessary  to  adjust  nR  one  integer  less 
to  insure  that  Is  partitioned  such  that  both  of  complex  conjugate 

eigenvalues  are  Included  or  excluded. 

For  this  reduction  technique,  the  reduced  model  is  asymptotically 
correct  for  any  input  level.  As  the  eigenvalues  in  Ah  become 
separated  from  those  in  A^ ,  the  approximation  naturally  becomes  more 
exact. 

4.5.12  Reduction  Calculation  Sequence 

The  numerical  process  for  computing  the  reduced  linear  system  consists 
of: 
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1.  Compute  the  eigenvalues  of  the  full  A  matrix. 

2.  Sort  the  eigenvalues  according  to  real  parts  with  most  positive 
at  the  top.  Count  unstable  eigenvalues  to  insure  retention. 

3.  Compute  eigenvectors  for  sorted  list. 

4.  Compute  T"1  B  and  H  T  and  partition. 

5.  Set  AR  as  block  diagonal  matrix  mode  from  computed  eigenvalues 
at  top  of  list. 

6.  Set  BR  and  HR  as  the  top  partitions  in  T"1  B  and  H  T  respectively. 

7.  Compute  DR  as  -(H  T)H  (T"1  B)H 

4.5.13  Controller  Use  In  Simulation 

The  controller  designed  is  returned  to  the  simulation  program  as  a 
linear  system  described  by  the  four  matrices  F^,  A  ,  G^,  and  SK.  It 
must  be  remembered,  however,  that  all  the  design  analysis  was  per¬ 
formed  about  an  operating  point  defined  by  uQ  and  y  .  For  a  total 
controller,  these  quantities  must  be  added  back  in.  A  total  controller 
block  diagram  is  thus  given  in  Figure  57. 

If  several  controllers  are  designed  around  several  operating  points, 
it  may  be  necessary  to  "gain  schedule"  by  changing  controllers  and  set 
points  as  a  function  of  operating  point  measured  or  commanded.  These 
and  other  decisions  on  the  value  of  the  designed  controller  must  now 
be  based  on  the  results  of  the  simulation. 

4.6  WARNING  MESSAGES 

One  or  more  of  the  following  warning  messages  will  occur  if  the  program 
encounters  difficulty  in  interpreting  analysis  instructions  or  performing 
an  analysis.  These  messages  will  be  preceded  by:  ***WARNING***. 

The  symbols  xxx,  zzz,  or  nnn  are  used  to  indicate  phrases  from  the 
analysis  description  that  are  included  as  part  of  the  warning  message. 

The  following  messages  are  listed  in  alphabetical  order: 
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EASIEST  EXAMPLE 

This  appendix  presents  a  supplementary  ejection  seat  analysis  example. 
This  example  utilizes  the  following  components  which  were  not  included  in 
the  ejection  seat  simulation  example  in  Section  VI. 
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Airplane 
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Airplane  control  surfaces 
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Dart 

0 

AP 

Aerodynamic  plate 

A  simplified  thrust  vector  control  system  is  also  included  in  this  model. 
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